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

Réponse 1 / 1
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
 518
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+
Signaler

Merci ! Fonctionne parfaitement
Posez votre question