Erreur 424
Résolu
Bonjour,
Je cherche à limiter le nombre de caractères dans une cellule.
Voici mon code mais je ne comprend d'où vient l'erreur.
Merci de votre aide.
Sub Macro1()
If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then
If Len(Target) > 5 Then
Target.Value = Left(Target.Value, 5)
End If
End If
End Sub
Je cherche à limiter le nombre de caractères dans une cellule.
Voici mon code mais je ne comprend d'où vient l'erreur.
Merci de votre aide.
Sub Macro1()
If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then
If Len(Target) > 5 Then
Target.Value = Left(Target.Value, 5)
End If
End If
End Sub
3 réponses
-
Merci pour votre aide, tout fonctionne !
-
ContributeurBonjour,
et pourquoi pas une validation de données tout simplement ?
eric
-
ContributeurBonjour
ton code est une macro événementielle et doit être inscrit dans le module feuille concerné
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B1:B10")) Is Nothing Then
If Len(Target) > 5 Then
Target = Left(Target, 5)
End If
End If
End Sub
worksheet_change se déclenche lors d'un changement de valeur après validation dans la cellule
