Exécution d'une macro pour une valeur de cellule [Résolu/Fermé]

Signaler
-
 Adri -
Bonjour,

J'ai dans excel 2010 indiqué les instructions suivantes, pour exécuter deux macros en fonction des valeurs indiquées dans la colonne A

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then

Select Case Target.Value

Case Is = 1

Macro1

Case Is = 2

Macro2

End Select

End If

End Sub

Ceci fonctionne parfaitement à un détail prêt : lorsque je supprime ou que j'insère une ligne j'ai l'erreur d'exécution 13 qui apparaît ! (Incompatibilité de type),

Pourriez-vous me renseigner?

Merci

1 réponse

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
477
Bonjour,

Essaie avec
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Select Case Target.Value
Case Is = 1
Macro1
Case Is = 2
Macro2
End Select
End If
End Sub

A+
Merci ! Fonctionne parfaitement