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

Question

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

Configuration: Windows 7 / Chrome 43.0.2357.65

Gyrus · Answer

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 IfEnd Sub
A+

Exécution d'une macro pour une valeur de cellule

1 réponse

Discussions similaires