Mise en forme conditionnelle fleches

Non ca me va, je vais m'arranger sur le format

Merci

Re

Je te retourne le fichier:

Il faut que la flèche soit nommée comme ceci: Arrow_ColonneLigne

Colonne = Colonne de la cellule dont dépend la flèche, Ligne = Ligne de la cellule dont dépend la flèche Arrow_E3 veut dire que la flèche dépend de la cellule E3.

Appuies sur le bouton pour mettre à jour les flèches, tu peux faire des essais avec d'autres valeurs si tu le souhaites.

Merci beaucoup, est-il possible d'avoir le meme sans bouton et que la fleche s'update automatiquement en fonction du premier onglet ( toujours le meme debat )

Tu es un genie!!!!!!!!!!!!!!!!!! Finalement reussi et mon dashboard est pret et magnifique .

Merci beaucoup!

Mon dernier point est de dire que si la valeur est de 0% ou N.a alors fleche blanche vers le cote droit

Sub fleches()
Dim cel As Range
Dim forme As Shape
With Sheet11
    For Each cel In .Range(.Range("AL1"))
        If cel <> "" Then
            Set forme = .Shapes("Arrow_" & Replace(cel.Address, "$", ""))
            If cel >= 0 Then
                forme.Fill.ForeColor.RGB = RGB(0, 150, 0) 'vert
                forme.Rotation = -90
            Else
                forme.Fill.ForeColor.RGB = RGB(150, 0, 0) 'vert
                forme.Rotation = 90

            End If
        End If
    Next cel
End With
End Sub

Je ne suis pas sur du code a entre et ne veux pas casser la macro

Re

Pour flèche blanche sur le côté si 0 ou N.a:

Sub fleches()
Dim cel As Range
Dim forme As Shape
With Sheet11
    For Each cel In .Range(.Range("AL1"))
        If cel <> "" Then
            Set forme = .Shapes("Arrow_" & Replace(cel.Address, "$", ""))
            If cel > 0 Then
                forme.Fill.ForeColor.RGB = RGB(0, 150, 0) 'vert
                forme.Rotation = -90
            ElseIf cel < 0 Then
                forme.Fill.ForeColor.RGB = RGB(150, 0, 0) 'vert
                forme.Rotation = 90
            ElseIf cel = 0 or cel = "N.a" then
                forme.Fill.ForeColor.RGB = RGB(255, 255, 255) 'blanc
        forme.Rotation = 0
            End If
        End If
    Next cel
End With
End Sub

Je ne sais comment te remercier !

Je clos le topic

Re,

Pas de soucis