Masque de saisie VBA

Version imprimable

21/04/2008, 19h43
e040098k

Masque de saisie VBA

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
21/04/2008, 20h15
patbou

bonsoir

regardes du coté de la fonction vba "format"

Salut

A mettre dans le code de la feuille concernée

Code:

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.

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:

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

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:

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