Erreur d’exécution 13: Incompatibilité d’élément

[roisabri]

Bonjour les amis,

J'ai un userform qui s'appelle warning.
L'objectif est qu'il sera affiché que dans la 2 eme ligne à partir du 11 Colonne.

Donc j'ai utilisé l’évènement SelectionChange. Ci joint le code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

            If Target.Column > 11 And Target.row = 2  Then

            Warning.Show

            End If

           

End Sub

Mais dès que je sélectionne plus de cellules ou bien 1 ligne ou 1 Colonne , il me sort une erreur Erreur d’exécution 13: Incompatibilité d’élément

J'ai pensé à ça , mais ça donne rien ......

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



            If Target.Column > 11 And Target.row = 2  Then

            Warning.Show
      Else: Application.EnableEvents = False

            End If

           

End Sub

Du help please 🙂


Merci beaucoup.

 

[Staple1600]

Re : Erreur d’exécution 13: Incompatibilité d’élément

Bonjour à tous


Ajoutes ceci à ton code
Target.count=1

Test oK chez moi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 11 And Target.Row = 2 And Target.Count = 1 Then
Warning.Show
End If
End Sub

 

[roisabri]

Re : Erreur d’exécution 13: Incompatibilité d’élément

Bonjour Staple,

Merci beaucoup , ça marche, géniale.

A++