Exécuter macro Si

Re : Exécuter macro Si

Salut Marc_Du78 !

Il te faut une macro évènementielle du type :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I12")) Is Nothing Then


Mais, Il manque une précision !

"Je désirerais que, lorsque le chiffre affiché est égal à celui saisie en "I12"... "

Le chiffre affiché dans quelle cellule ? Dans la plage de A30:A35 ?

Vu que dans ta plage de A30:A35 tu inscris déjà tes chiffres de 1 à 6, pas la peine de faire référence à I12.

Il y a un problème dans ton explication, revois et corrige, en attendant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A30:A35")) Is Nothing Then
If Target = 1 Or Target = 2 Or Target = 3 Or Target = 4 Or Target = 5 Or traget = 6 Then
MsgBox "Nombre Atteint"
End If
End If
End Sub


@ +++

ChrisOne