Sujet Précédent Sujet Suivant

Erreur 424

Résolu/Fermé
LPGui - 8 déc. 2015 à 11:23
 LPGui - 8 déc. 2015 à 21:42
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

3 réponses

Réponse 1 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 déc. 2015 à 11:47
Bonjour

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
1
LPGui
8 déc. 2015 à 12:09
Merci, mais le problème est, maintenant, "End Sub" attendu ?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
8 déc. 2015 à 12:28
Désolé, j'avais testé et c'était OK---> a toi de te relire
0
Réponse 2 / 3
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
8 déc. 2015 à 12:39
Bonjour,

et pourquoi pas une validation de données tout simplement ?
eric
0
Réponse 3 / 3
LPGui
8 déc. 2015 à 21:42
Merci pour votre aide, tout fonctionne !
0

Discussions similaires

Instagram "Désolé, une erreur s'est produite"
bananamilk -
cedric.masdeb -

60 réponses
Erreur vidéo inconnue sur le Freebox Player
mouhaaV2.0 -
Perejoe59 -

60 réponses
Free erreur 38 : impossible d'envoyer des SMS
warnawak -
marcellou -

58 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse
Problème de décodeur TV Bouygues Telecom
Massi119 -
Turone37 -

188 réponses