Cmt répéter un événement avec de nvlles entrées


#1

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


fermé automatiquement #2

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.