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

A voir également:

Erreur 424
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Instagram une erreur s'est produite ✓ - Forum Instagram

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

LPGui
8 déc. 2015 à 12:09

Merci, mais le problème est, maintenant, "End Sub" attendu ?

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 311
8 déc. 2015 à 12:28

Désolé, j'avais testé et c'était OK---> a toi de te relire

Réponse 2 / 3

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
8 déc. 2015 à 12:39

Bonjour,

et pourquoi pas une validation de données tout simplement ?
eric

Réponse 3 / 3

LPGui
8 déc. 2015 à 21:42

Merci pour votre aide, tout fonctionne !

Discussions similaires

Erreur de lecture des tv film et series sur mon appli iptv smarters pro

Code erreur 3000

Erreur 3005 sur France TV

Erreur 5000 message No Renderer Found

Free erreur 38 : impossible d'envoyer des SMS