Changement de couleur de flèches

Le 06/05/2017 à 10:05

bonjour

je cherche a changer la couleur des flèches en fonction d'une cellule

je vous envoie mon fichier

merci pour vos réponses

cordialement

97classeur1.xlsm (11.45 Ko)

Le 06/05/2017 à 11:48

Bonjour,

A mettre dans le module de la feuille, les flèches seront colorées en rouge (valeur 2) si ça ne te convient pas, change de valeur :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) <> "H1" Then Exit Sub

    If LCase(Target.Value) = "françois" Then

        ActiveSheet.Shapes("fleche1").Line.ForeColor.SchemeColor = 2
        ActiveSheet.Shapes("fleche2").Line.ForeColor.SchemeColor = 2

    Else

        ActiveSheet.Shapes("fleche1").Line.ForeColor.SchemeColor = 48
        ActiveSheet.Shapes("fleche2").Line.ForeColor.SchemeColor = 48

    End If

End Sub

Tu parles de la cellule H13 mais tu demandes à ce que la cible soit H1 ?

bonjour je cherche a changer la couleur des fleches en fonction de la cellule "H13 "
c'est a dire si en cellule h1 j'ai "francois" j'aimerais que la fleche 1 et la fleche 2 change de couleur

Attention, François prend un ç cédille sinon, adapte dans le code !

Le 06/05/2017 à 15:53

merci a toi pour ta reponse

j'ai une dernière chose a vous demander

j'aimerais changer la valeur en h1 a partir de la feuille 2

et changer les couleur de fleche sur les autre prenom

la formule que j'ai essayer ne fonctionne pas

merci encore pour ton aide

cordialement

40classeur1.xlsm (18.12 Ko)

Le 06/05/2017 à 18:41

Bonjour,