Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Flèche automatique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion desatan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

desatan

XLDnaute Occasionnel
Bonjour à tous,

Je voudrais savoir si il est possible d'automatiser des flèches ?

Par exemple, si en A1=+5%, en B1=-10%

Je voudrais qu'un flèche fasse référence à A1 et donc qu'elle monte et soit de couleur verte et une autre flèche sur B1 en rouge et vers le bas ?

Les valeurs A1 et B1 sont amenés à changer régulièrement.

Merci par avance
 
Trier par date Trier par votes
Re : Flèche automatique

bonjour,

Code: 
If Sheets("feuil2").Range("A2") = 0 Then Sheets("feuil1").Shapes("Flèche vers le bas 2").Visible = False

Pour mettre le critère sur une autre feuille il faut indiquer la feuille puis la cellule. Dans ce cas: Si la feuille2, cellule A2 =0 alors la forme "nom" de la feuille 1 ne sera pas visible. Par contre, si par la suite tu modifie les nom des onglets, il faudra aussi les renommer dans le code.

cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Flèche automatique

A4L9, j'essaye de reproduire ce que tu as fait mais je n'y arrive pas :-(

J'ai mis le code dans mon fichier, j'ai adapté les noms de feuilles et les cellules mais comment dire à ma forme automatique d'appliquer ce code ?
Quand je fais affecter macro ca ne fonctionne pas ?
MErci par avance
 
Vote positif 0 Vote négatif
Re : Flèche automatique

re,

ou as tu placé le code? il faut de la mettre dans la feuille ou les flèche doivent apparaitre et non dans un module. Si tu as créé des flèches dans ton dossier, il faut également changer le nom de la forme. Lorsque tu sélectionne une forme son nom apparait en haut à gauche. Dans le fichier que j'ai envoyé il s'agissait des flèches 2,3,4 et 5. Mais dans ton fichier il peut s'agir des 6,7 et 8 par exemple.
Si je ne suis pas clair n'hésite pas à me le dire^^

de plus, affecter une macro à un objet créé un bouton. Cela signifie que pour que la macro se fasse, il faut d'abord cliquer sur le bouton pour la déclencher. Dans le fichier transmis, le code si situe dans la feuille ou se trouve les flèches, avec "worsheet" et "activate" de sélectionner dans les listes déroulante en haut de la fenêtre vba. Ce qui signifie que la macro s'exécute lors de l'activation (sélection) de la feuille.

si tu le souhaite je peut regarder directement sur ton fichier

cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Flèche automatique

Arf c'est effectivement le nom de la forme que je n'avais pas vu.
J'ai refait mais la forme rest noire :-( et je n'arrive pas à la placer là où je veux :-(
Je ne peux pas t'envoyer mon doc, c'est professionnel.
Merci pour ton aide
 
Vote positif 0 Vote négatif
Re : Flèche automatique

Dans le fichier envoyé il y a quatre flèches: 2 vertes vert le haut et 2 rouges vers le bas. La couleur n'as pas été définie par la macro mais directement dans la mise en forme de la forme. Si tu n'as pas gérer la couleur avant c'est normal qu'elle ne change pas. Pour le placement, dans le code il y a les lignes avec left et top. Elles donnent la position des flèches. En modifiant la valeur tu peut changer le placement. Ce code n'est pas obligatoire mais permet d'afficher les formes au même endroit même si elles ont été préalablement déplacée.

je vais voir pour un code plus simple à adapter
 
Vote positif 0 Vote négatif
Re : Flèche automatique

Oui seulement deux sont apparentes, car la rouge disparait et la verte s'affiche si A2 est positif et vice versa. De même que les deux disparaissent si le résultat est 0 ou s'il n'y a rien dans la cellule.

peut tu m'indiquer le nom des onglets que tu utilise? que je les intègre dans le code.
 
Vote positif 0 Vote négatif
Re : Flèche automatique

re,

je te propose le mode opératoire suivant:

- dans ta feuille "synthèse 1", créé deux flèches vers le bas et deux flèches vers le haut
- met tes deux flèches vers le bas en rouge et celles vers le haut en vert avec la mise en forme d'objet
- dans la fenêtre vba, sélectionne la feuille "synthèse 1" et colle le code ci dessous
- modifie les cellules pour ton classeur, et indique les numéros des flèches au lieu des ??? que j'ai mis
- pour l'instant le position des flèches est restée en haut à gauche avec les données du code mais cela pourra se modifier facilement une fois que ça fonctionnera 😉

peut être à tu déjà fait la manip mais comme je n'ai pas ton classeur ce n'est pas facile de se rendre compte.



Code: 
Private Sub Worksheet_Activate()


'désactive le rafraichissement de l'écran
Application.ScreenUpdating = False

'masquer les flèches si le résultat est nul ou inexistant

                                                                 ' numéro des flèches à indiquer au lieu des ???
If Sheets("données").Range("A2") = 0 Then Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Visible = False
If Sheets("données").Range("A2") = 0 Then Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Visible = False

If Sheets("données").Range("A2") = "" Then Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Visible = False
If Sheets("données").Range("A2") = "" Then Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Visible = False

If Sheets("données").Range("B2") = 0 Then Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Visible = False
If Sheets("données").Range("B2") = 0 Then Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Visible = False

If Sheets("données").Range("B2") = "" Then Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Visible = False
If Sheets("données").Range("B2") = "" Then Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Visible = False

'si A2 est négatif la flèche rouge apparait
    If Sheets("données").Range("A2") < 0 Then Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Visible = False
    If Sheets("données").Range("A2") < 0 Then Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Visible = True

'position de la flèche à son apparition
        Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Top = 80
        Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Left = 15

'si A2 est positif la flèche verte apparait
    If Sheets("données").Range("A2") > 0 Then Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Visible = True
    If Sheets("données").Range("A2") > 0 Then Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Visible = False

'position de la flèche à son apparition
        Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Top = 80
        Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Left = 15
        
'si B2 est négatif la flèche rouge apparait
    If Sheets("données").Range("B2") < 0 Then Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Visible = False
    If Sheets("données").Range("B2") < 0 Then Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Visible = True
    
'position de la flèche à son apparition
        Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Top = 80
        Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Left = 75
        
'si B2 est positif la flèche verte apparait
    If Sheets("données").Range("B2") > 0 Then Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Visible = True
    If Sheets("données").Range("B2") > 0 Then Sheets("Synthèse1").Shapes("Flèche vers le bas ???").Visible = False
    
'position de la flèche à son apparition
        Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Top = 80
        Sheets("Synthèse1").Shapes("Flèche vers le haut ???").Left = 75
        
'active le rafraichissement de l'écran
Application.ScreenUpdating = True

End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
197
F22Raptor
F
P
  • Résolu(e)
XL 2021 Insertion de formules
Réponses
10
Affichages
240
Saboh12617
S
P
  • Résolu(e)
XL 2021 Insertion de formules
Réponses
4
Affichages
160
Lolote83
L
Y
  • Résolu(e)
XL 2016 Calculs automatique XO pour des valeurs dans un tableau
Réponses
3
Affichages
140
dysorthographie
B
  • Résolu(e)
Autres Changer la couleur de fond de cellules.
Réponses
4
Affichages
274
BIBIX
B
B
  • Question Question
XL 2016 Extraire un nombre d'une chaine de caractère
2
Réponses
18
Affichages
734
Eric 45
E
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
665
wDog66
W
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
776
benjy555
B
T
  • Résolu(e)
XL 2016 Problème sécutité Microsoft Office dans Excel 2016
Réponses
6
Affichages
211
TooFatBoy
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
361
pompaero
C
  • Question Question
Microsoft 365 Transposer des valeurs en 2 colonnes en fonction d'une référence produit
Réponses
9
Affichages
887
Cagnet
C
C
  • Résolu(e)
XL 2019 Meilleure option suivant les valeurs
Réponses
7
Affichages
634
cotignac
C
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
5
Affichages
670
Pi4
P
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
M
  • Question Question
Google Sheets Formule à rallonge avec conditions
Réponses
13
Affichages
365
Moreno076
M
A
  • Question Question
XL 2010 Enregistrer en PDF
Réponses
2
Affichages
427
Appo1985
A
J
  • Résolu(e)
XL 2016 tri automatique pour mettre en couleur sans condition
Réponses
4
Affichages
351
julien81
J
N
  • Résolu(e)
XL 2013 Problème de formulation EXCEL
Réponses
3
Affichages
332
Ninoo82
N
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
321
vgendron
Y
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
2
Affichages
607
YOU06
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…