Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ctrl la longueur d'une saisie

Ctrl la longueur d'une saisie

2 réponses
Avatar
Jed
Bonjour,
J'aimerai quel est l'=E9v=E9nement qui permet de tester une=20
longueur lors de la saisie d'une cellule ?
Exemple : je saisie la valeur "5" dans Range("AQ11) et je=20
passe =E0 la cellule suivante. j'aimerai =E0 ce moment l=E0=20
afficher un message type " saisie doit =EAtre de 3=20
caracteres".
Ce bout de code fonction quand je reviens sur la cellule=20
mais pas apr=E8s avoir saisie la valeur :

Private Sub Worksheet_SelectionChange(ByVal Target As=20
Range)

Set Plage =3D Intersect(Target, Range("AQ11"))
If Range("AQ11").Validation Then
If Not Plage Is Nothing And Range("AQ11") <> ""=20
Then
Longueur =3D Len(Range("AQ11").Value)
If Longueur <> 3 Then
MsgBox ("La taille doit =EAtre de 3=20
caract=E8res")
Exit Sub
End If
End If
End If

Merci pour un coup de main
Jed
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
denis P
Ce ne serai pas plus simple avec
Donnée -> Validation
Autoriser : longueur du texte
Données : égale à
longueur : 3

denis p.


"Jed" a écrit dans le message de
news:7b6201c4d082$bb07e840$
Bonjour,
J'aimerai quel est l'événement qui permet de tester une
longueur lors de la saisie d'une cellule ?
Exemple : je saisie la valeur "5" dans Range("AQ11) et je
passe à la cellule suivante. j'aimerai à ce moment là
afficher un message type " saisie doit être de 3
caracteres".
Ce bout de code fonction quand je reviens sur la cellule
mais pas après avoir saisie la valeur :

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

Set Plage = Intersect(Target, Range("AQ11"))
If Range("AQ11").Validation Then
If Not Plage Is Nothing And Range("AQ11") <> ""
Then
Longueur = Len(Range("AQ11").Value)
If Longueur <> 3 Then
MsgBox ("La taille doit être de 3
caractères")
Exit Sub
End If
End If
End If

Merci pour un coup de main
Jed
Avatar
jed
Exact !!!
J'étais dans mon code et je n'ai pas pensé à cette
solution!!
Merci pour l'info.
Suis vraiment trop bête!

Cdlt
Jed
-----Message d'origine-----
Ce ne serai pas plus simple avec
Donnée -> Validation
Autoriser : longueur du texte
Données : égale à
longueur : 3

denis p.


"Jed" a écrit dans
le message de

news:7b6201c4d082$bb07e840$
Bonjour,
J'aimerai quel est l'événement qui permet de tester une
longueur lors de la saisie d'une cellule ?
Exemple : je saisie la valeur "5" dans Range("AQ11) et je
passe à la cellule suivante. j'aimerai à ce moment là
afficher un message type " saisie doit être de 3
caracteres".
Ce bout de code fonction quand je reviens sur la cellule
mais pas après avoir saisie la valeur :

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

Set Plage = Intersect(Target, Range("AQ11"))
If Range("AQ11").Validation Then
If Not Plage Is Nothing And Range("AQ11") <> ""
Then
Longueur = Len(Range("AQ11").Value)
If Longueur <> 3 Then
MsgBox ("La taille doit être de 3
caractères")
Exit Sub
End If
End If
End If

Merci pour un coup de main
Jed


.