If Target = 2 Then

[yolutho]

Bonjour,

Afin d'exectuer une macro via un menu déroulant j'ai utilisé cette macro.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target = 2 Then
Call Menu_déroulant
End If
End Sub

Cependant lorsque j'insère une ligne/supprime une ligne le message d'erreur suivant apparaît :

Erreur d'exectuion '13':
Incompatibilité de type

Comment puis-je solutionner la chose ?

Merci.

 

[Pierrot93]

Re : If Target = 2 Then

Bonjour,

modifie peut être le test ainsi :

If Target.Column <> 1 Or Target.count > 1 Then Exit Sub

bon après midi
@+

 

[yolutho]

Re : If Target = 2 Then

Je viens d'effectuer les modifications et bam ça fonctionne merci.