Discussion :

[e040098k]

Bonjour,

Voila je cherche à limiter la saisie dans une cellule à trois caractères (3 lettres ou 3 chiffres)

Je poste dans vba car ma cellule est déja "valider" (données-->Validation) par une liste donc cette solution n'est pas possible dans mon cas.

Quelqu'un à une idée ?

Merci

[patbou]

bonsoir

regardes du coté de la fonction vba "format"

[zyhack]

Salut

A mettre dans le code de la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
'tu peux remplacer A1 par une autre cellule ou une plage de cellule
's'il faut l'appliquer à toute la feuille supprimer ce premier if
  If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
  On Error Resume Next
  'la vérification ce fait ici
  'pour cet exemple je ne vérifie que la longueur de la chaine
  If Len(Target.Value) > 3 Then
    MsgBox ("trop long")
  End If
End If
End Sub

il y a peut être plus simple mais pour l'instant je ne vois pas.
en espérant avoir répondu à ton attente.

[fring]

Bonsoir,

Si je peux me permettre, l'idée est la bonne mais il faudrait ajouter une ligne de code sinon rien n'empêchera d'écrire "anticonstitutionnellement"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
'tu peux remplacer A1 par une autre cellule ou une plage de cellule
's'il faut l'appliquer à toute la feuille supprimer ce premier if
  If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
  On Error Resume Next
  'la vérification ce fait ici
  'pour cet exemple je ne vérifie que la longueur de la chaine
  If Len(Target.Value) > 3 Then
    MsgBox ("trop long")
    Target.Value = Left(Target.Value, 3) '<-- ajout de cette ligne
  End If
End If
End Sub

[zyhack]

Comme je l'avais précisé dans les commentaires

'pour cet exemple je ne vérifie que la longueur de la chaine

pour ma part j'utiliserais plutot un inputbox avec la valeur tronqué en proposition ce qui permet de confirmer ou modifier le texte saisi et au cas ou annuler est choisi une chaine vide est renvoyée.

du syle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  Do
    resultat = InputBox("Le texte saisie ne doit comporter que trois caractère", "Limitation de la saisie", Left(Target.Value, 3))
    If Len(resultat) <= 3 Then Exit Do
  Loop
  Target.Value = resultat

le seul problème et de savoir ce que veux e040098k