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

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

Newsletters