Erreur VBA

Galuchot · 17 Mai 2017

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 · 17 Mai 2017

Bonsoir.
Mettez au début :

VB:

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

Jean-Eric · 18 Mai 2017

Bonjour,
Une proposition à étudier.
Cdlt.

VB:

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 · 18 Mai 2017

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 · 18 Mai 2017

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 · 18 Mai 2017

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

Erreur VBA

Galuchot

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Jean-Eric

XLDnaute Occasionnel