Bon, on avance bien. J'ai trouvé le problème, je pense :
Private Sub Bouton173354_Cliquer()
Dim num ' numéro du connecteurs courant
Dim verif ' si le numéro existe
Dim tableau As Variant
Dim i ' compteur
' ces deux boucles recherchent s'il y a des connecteurs droits
For Each f In Worksheets
On Error Resume Next
For Each sh In Sheets(f.Name).Shapes
If Left(sh.Name, 5) = "trait" Then
tableau = Split(sh.Name, " ")
num = tableau(1)
i = 5
verif = False
While Cells(i, 1) <> ""
If Right(Cells(i, 1), 3) = num Or Right(Cells(i, 1), 4) = num Then
ActiveSheet.Shapes.Range(Array(sh.Name)).Select
With Selection.ShapeRange.Line
.Font.Color = RGB(0, 0, 0)
.Weight = 3
End With
verif = True
End If
i = i + 1
Wend
If Not verif Then
ActiveSheet.Shapes.Range(Array(sh.Name)).Select
With Selection.ShapeRange.Line
.ForeColor.RGB = RGB(255, 0, 0)
.Weight = 5
End With
End If
End If
Next
Next
End Sub
J'ai l'impression que la formule et "à l'envers" : C'est si ça n'est pas vérifié qu'il le colore en rouge ... Quoiqu'il en soit, le résultat est le même.
En revanche, si je retire la section dans la liste, il ne le colorise pas en noir à nouveau ...
Tu en penses quoi ?