Limiter le nombre de caractère de plusieurs colonnes

Passcal -  
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaite limiter le nombre de caractère de plusieurs colonne : colonne A : 6 caractère, colonne B : 8

J'ai utilisé ce code pour la colonne A et je ne sais pas passer à la colonne B

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then: Exit Sub
Application.EnableEvents = False
Target = Left(Target.Value, 6)
Application.EnableEvents = True
End Sub

merci d'avance


A voir également:

2 réponses

via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
Bonjour

Pourquoi passer par du VBA alors que tu peux par Validation de données (Onglet Données) choisir Longueur du Texte et entrer un mini et un maxi ?

Cdlmnt
0
Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 442
 
Bonjour VIA
je me suis fait la même réflexion, mais je me suis demandé en fait si la macro n'avait par pour but de réduire au nombre voulu les caractères existant dans une cellule.
Je ne suis pas sur, mais dans ce cas, je ne suis pas compètent (sauf par formule bien sur)

crdlmnt
0
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
Bonjour Vaucluse

Effectivement à relecture j'en arrive à la même conclusion que toi
Dans ce cas il suffit de modifier ainsi la ligne de la macro
If Intersect(Target, Range("A:A")) Is Nothing And Intersect(Target, Range("B:B")) Is Nothing Then: Exit Sub

Cdlmnt
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 279
 
Bonjour à tous,

comme il utilise l'évènement Change il s'agit bien d'une saisie qui, je pense, pourrait être contrôlée par validation.
A moins que ce ne soit des collés...
eric
0
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
Bonjour Eric

Nous sommes d'accord !
0