Accueil > Forum > > > > Apparition de flèches Excel
Apparition de flèches Excel
mercredi 16 juillet 2008 à 12:06:21 |
Apparition de flèches Excel

Quintino38
|
Bonjour, Je suis (quasi) novice en programmation et je souhaiterais savoir si et comment il est possible de faire apparaïtre différentes flèches enfonction de certaines valeur. Plus précisément: si la valeur de la cellule C21 est inférieuire à -1%, alors une flèche verte orientée vers le bas apparaît. si cette valeur est comprise entre -1% et 1%. alors une flèche orange orientée vers la droite apparaît. si cette valeur est supérieure à 1% alors, une flèche rouge apparaît, orientée vers le haut. Comment dois-je procéder pour parvenir à ce résultat? Merci beaucoup de votre aide
|
|
mercredi 16 juillet 2008 à 15:17:37 |
Re : Apparition de flèches Excel

mortalino
|
Salut, une idée en passant, tu crées 3 images (menu Insertion). et dans l'évènement Worksheet_Change If Target.Address = "$C$21" then Select Case Target.Value Case Is < -1: Shapes("Image 1").Visible = True: Shapes("Image 2").Visible = False: Shapes("Image 3").Visible = False Case -1 To 1: Shapes("Image 1").Visible = False: Shapes("Image 2").Visible = True: Shapes("Image 3").Visible = False Case Else: Shapes("Image 1").Visible = False: Shapes("Image 2").Visible = False: Shapes("Image 3").Visible = True End Select End If @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA
|
|
mercredi 16 juillet 2008 à 15:24:30 |
Re : Apparition de flèches Excel

Molenn
|
Une simple formule =SI avec 3 critères suffit. En fonction de tes conditions, tu fais apparaître un des 3 caractères suivants : é, ê, è Il te suffit ensuite de passer le format de la cellule à la police Wingdings (standard avec Windows) pour avoir tes flèches.
Sinon, sans jouer avec les flèches, mais avec un code couleur sur ta cellule, une simple Mise en forme conditionnelle suffit (Menu Format\Mise en forme conditionnelle).
Molenn
|
|
mercredi 16 juillet 2008 à 15:25:14 |
Re : Apparition de flèches Excel

Molenn
|
Bouh Mortalino !! Surtout pas de code VBA pour faire ça ... Bouuuuuuuuuuh 
|
|
mercredi 16 juillet 2008 à 15:35:37 |
Re : Apparition de flèches Excel

mortalino
|
Lol, salut Molenn  Bah tu me connais, suis très habitué au VBA, et moins avec les formules. En tout cas, je viens de tester ta soluce, c'est pas mal cette bidouille avec la police d'écriture, bien pensé  @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA
|
|
jeudi 17 juillet 2008 à 08:53:31 |
Re : Apparition de flèches Excel

Quintino38
|
Bonjour,
Effectivement la mise en forme conditionnelle est très astucieuse, d'autant plus que l'on peut la croiser avec la formule avec les flèches: genre rouge/vert. Par contre j'ai un léger problème pour mettre les trois conditions: J'ai ainsi inscrit: SI(C21<5%;"é"), et mis en wingdings Comment fait-on pour compléter la formule avec les 2 autres conditions?
Mortalino, ta solution me paraît excellente, mais j'aimerai savoir comment je dois faire pour accéder 1) à l'événement worksheet_change et 2) au nom de mes images. Cela me permettrai d'utiliser des symbôles plus travaillé, comme des panneaux "Attention danger"
Par pur hasard, connaîtriez-vous la transcription de ces astuces sous openoffice -mon travail doit être aux deux formats-?
Merci beaucoup
|
|
jeudi 17 juillet 2008 à 09:05:12 |
Re : Apparition de flèches Excel

Molenn
|
Il ne faut pas inscrire dans ta formule SI(C21<5% ... parce qu'Excel ne le comprend pas. Le pourcentage n'est qu'un mode d'affichage. Mais bohn, il suffit de savoir que 5%, c'est 0,05  Ta formule devient donc, pour reprendre ton énoncé de départ : =SI(C21<-0,1;"é";SI(C21<0,1;"ê";"è")) Pour répondre à une question adressée à Mortalino, pour accéder à worksheet_change, il faut aller dans l'éditeur VB (taper alt+F11 dans EXCEL) Molenn
|
|
jeudi 17 juillet 2008 à 10:08:19 |
Re : Apparition de flèches Excel

Quintino38
|
Je suis allé sous VBA (par alt+ F11)
J'ai sélectionné "worksheet", puis "change" à la place de "selection_change", j'ai copié-collé le code ci-dessus, mais malheureusement rien ne se passe.
Apparemment le nom de mes images est respectivement "Forme automatique 30" pour le panneau attention; "Forme automatique 29" pour la flèche vers le bas et "Forme automatique 28" pour la flèche vers le haut.
Cela donne (pour la case G20, si G20<3% alors flèche vers le bas, si -3%<G20<3%, panneau attention et si G20>3% alors flèche vers le haut):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$20" Then
Select Case Target.Value
Case Is < -0.03: Shapes("TableaudeBord_Formeautomatique29").Visible = True: Shapes("TableaudeBord_Formeautomatique30").Visible = False: Shapes("TableaudeBord_Formeautomatique28").Visible = False
Case -0.03 To 0.03: Shapes("TableaudeBord_Formeautomatique29").Visible = False: Shapes("TableaudeBord_Formeautomatique30").Visible = True: Shapes("TableaudeBord_Formeautomatique28").Visible = False
Case Else: Shapes("TableaudeBord_Formeautomatique29").Visible = False: Shapes("TableaudeBord_Formeautomatique30").Visible = False: Shapes("TableaudeBord_Formeautomatique28").Visible = True
End Select
End If
End Sub
|
|
Cette discussion est classée dans : valeur, flèches, flèche, apparaît, orientée
Répondre à ce message
Sujets en rapport avec ce message
Récupérer la valeur d'un listbox par le Scrollbar [ par PHILOUVB ]
Bonsoir à tous je suis à la recherche d'une méthode me permettant de récupérer la valeur de mon listbox en sachant que je ne me sers que du Scrollbar
Besoin d'aide pour la syntaxe d'une formule [ par Joseph67 ]
Bonjour, Je récupère dans mon classeur Directeur.xlsm en A1 le nom d'un classeur (par exemple 999, le nom est toujours un nombre). Comment écrire la
Erreur avec GetVariable() sur un composant flash [ par croq_mort ]
Dans mon programme une option doit permettre de taper un nom de variable et indiquer dans une MsgBox la valeur de celle-ci. Il y a donc un champ de te
Afficher la valeur d'une variable dans une cellule d'une feuille excel [ par delced3 ]
Bonjour, Je débute en programmation, et je voudrais créer une interface ou utilisateur renseigne des "textbox" qui seront transféré dans un fichier E
[déplacé VB.NET -> VBA] Comment récupérer la valeur d'un bouton option [ par bugalet ]
Bonjour à tous, je n'arrive pas à récupérer dans un programme VB la valeur d'un bouton d'option créé sur une feuille Excel, et j'avoue que n'est pas v
Combobox, pas d'affichage de la valeur sélectionnée [ par davidatx ]
Bonjour Voilà un petit soucis que je ne m'explique pas J'ai créé un userform avec des boutons et une jolie combobox. Je rempli cette combobox de cet
[Déplacé VB6 --> VBA] Macro qui prend en compte la valeur donnée par une formule dans une cellule [ par pouetpouetLE80 ]
Bonjour, Je vous sollicite car je débute sous Excel et j'ai un petit problème: Je travaille sur une plage d'environ 40 lignes et de 50 colonnes. Cha
type de donnée incompatible [ par kalamita ]
salut svp j'ai besoin d'aide dans ma requte sql de commandtext dans dataenvirenement j'ai un mqg d'erreur "type de données incompatible...." la valeu
Comparer une cellule a une colonne. [ par Tagolococo ]
Tout d'abord bonjour, hé oui je suis un petit nouveau sur vbafrance ^^ J'aurais besoin d'aide d'un spécialiste dans le domaine suivant. Je travail ac
Valeur courante d'un timer [ par VbNicoG ]
Bonjour à tous, Est il possible de récupérer la valeur courante d'un timer ? Ex : [code=vb] Public t as new timer Public Value as integer Public su
Livres en rapport
|
Derniers Blogs
OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc [HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc
Forum
RE : VITESSERE : VITESSE par Renfield
Cliquez pour lire la suite par Renfield
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|