Re- Mel!
Merci Juice d'avoir pris du temps je t'offrirai bien un café ! A+
A l'occasion xD
Du coup, je t'ai simplifier la macro par :
Sub Modif()
Dim Flèche As String
Dim x As Long
For x = 3 To Range("B" & Rows.Count).End(xlUp).Row
If Cells(x, 8) <> "" Then
Flèche = Cells(x, 8)
If Cells(x, 3) > Cells(x, 4) Then Sheets("Carte").Shapes(Flèche).Rotation = 135
If Cells(x, 3) = Cells(x, 4) Then Sheets("Carte").Shapes(Flèche).Rotation = 90
If Cells(x, 3) < Cells(x, 4) Then Sheets("Carte").Shapes(Flèche).Rotation = 45
Sheets("Carte").Shapes(Flèche).Visible = True
End If
Next
End Sub
Plus besoin de la colonne qui affichait "Haut" / "Bas" / "Neutre"
Comme tu peux le voir, il y a une ligne de code [...]
Sheets("Carte").Shapes(Flèche).Visible = True
[...] qui fais apparaître les flèches, et je t'ai rajouté une procédure pour les faire disparaître :
Sub Caché_Mes_Flèches()
Dim x As Long
For x = 1 To Sheets("Carte").Shapes.Count
If Sheets("Carte").Shapes(x).Name Like "Flèche*" Then Sheets("Carte").Shapes(x).Visible = False
Next
End Sub
La condition pour cacher une flèche est que le nom du Shape commence par "Flèche" ! Faut y faire attention ;D
Je te remet ton fichier ci-joint et reste à ta dispo