Bjr,
Je souhaite incrémenter une suite d’instruction en copiant-collant une première qui fonctionne bien.
Le code consiste à affecter à chaque objet (forme) une couleur en fonction de valeurs saisies dans une cellule.
Les instructions se présentent comme suit :
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value >= 100 Then
ActiveSheet.Shapes("Shape 1").Fill.ForeColor.RGB = RGB(255, 192, 0)
Else
ActiveSheet.Shapes("Shape 1").Fill.ForeColor.RGB = RGB(230, 230, 230)
End If
End If
End Sub
Sauf que qd je fais un copier-coller sous cette instruction en prenant soin de changer “A1” en “A2” et “Shape 1” en “Shape 2” et d’enléver End Sub, ça ne marche pas. J’ai dû louper un détail ou je ne fais pas correctement bien les choses.
Qlq1 pour m’aider svp ! Merci par avance