Erreur VBA

[Galuchot]

Bonsoir,

J'ai créé une macro pour mettre un "ü" lorsque je clique dans les cellules A4:A112. Ma macro s'effectue correctement cependant si par erreur je sélectionne plusieurs cellules de la colonne A, un message d'erreur* s'affiche.

*Erreur d'exécution '13': Incompatibilité de type
Option possible: Fin ou Débogage ou Aide

Voici mon code VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Intersect(Target, Range("Croix1"))
If isect Is Nothing Then Exit Sub
If Target = "ü" Then
Target = ""
Else
Target = "ü"
End If
End Sub

Merci d'avance

 

[Dranreb]

Bonsoir.
Mettez au début :

If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then Exit Sub

 

[Jean-Eric]

Bonjour,
Une proposition à étudier.
Cdlt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("Croix1")) Is Nothing Then
        Target.Value = IIf(Target.Value = "ü", vbNullString, "ü")
    End If
End Sub

 

[Dranreb]

Bonsoir Jean-Eric.
Ça planterait lors d'une sélection de l'intégralité de la feuille.
Pour l'éviter on peut utiliser Target.CountLarge

 

[Jean-Eric]

Bonsoir Dranreb,
Une mauvaise habitude, mais pour ma défense, je ne sélectionne jamais l'intégralité d'une feuille !?
Galuchot prendra en compte ta remarque pertinente.
Cdlt.

 

[Galuchot]

Bonjour,

Merci beaucoup Dranreb ça fonctionne.
Et Jean-Eric c'était juste quand je sélectionné plusieurs (+ de 2) cellules dans la colonne A

Bonne journée et merci encore