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
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