Erreur 424
Résolu
LPGui
-
LPGui -
LPGui -
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
A voir également:
- Erreur 424
- Erreur 0x80070643 - Accueil - Windows
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
3 réponses
Bonjour
ton code est une macro événementielle et doit être inscrit dans le module feuille concerné
worksheet_change se déclenche lors d'un changement de valeur après validation dans la cellule
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
LPGui
Merci, mais le problème est, maintenant, "End Sub" attendu ?
michel_m
Messages postés
18903
Statut
Contributeur
3 317
Désolé, j'avais testé et c'était OK---> a toi de te relire
