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 Limiter le nb de caracteres dans un textbox

Limiter le nb de caracteres dans un textbox

10 réponses
Avatar
Bruno RCSC
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une valeur de
longueur de 8 caractères (alpha numérique) dans un textbox d'un formulaire ?

Merci pour votre aide.

BH.
Signaler un problème avec ce contenu

10 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
Patrick BASTARD
Bonjour, *Bruno RCSC*

La propriété Maxlenght (dans la fenêtre propriétés ou par code) permet de
limiter ne nombre de caractères.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une
valeur de longueur de 8 caractères (alpha numérique) dans un textbox
d'un formulaire ?
Merci pour votre aide.

BH.


Avatar
Bruno RCSC
Bonsoir,

Merci Patrick mais la réponse est incomplète.

Je précise ma question : je veux que l'on saisisse obligatoirement 8
caractères.

Je cherche la "traduction" de Données/Validation/Longueur du texte égale à
8. J'ai essayé l'enregistreur mais je n'arrive pas à écrire le code pour mon
formulaire.

Maxlenght permet de ne pas dépasser les 8 mais comment obliger à saisir 8
caractères ?

Merci.

BH.
--------------------------
Bonjour, *Bruno RCSC*

La propriété Maxlenght (dans la fenêtre propriétés ou par code) permet de
limiter ne nombre de caractères.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une
valeur de longueur de 8 caractères (alpha numérique) dans un textbox
d'un formulaire ?
Merci pour votre aide.

BH.






Avatar
Fredo P.
Bonsoir

With Selection.Validation
.Delete
.Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="=8", Formula2:="=8"
.ErrorMessage = "Veuillez entrer 8 caractères"
End With

"Bruno RCSC" a écrit dans le message de news:
47b9edc8$0$896$
Bonsoir,

Merci Patrick mais la réponse est incomplète.

Je précise ma question : je veux que l'on saisisse obligatoirement 8
caractères.

Je cherche la "traduction" de Données/Validation/Longueur du texte égale à
8. J'ai essayé l'enregistreur mais je n'arrive pas à écrire le code pour
mon formulaire.

Maxlenght permet de ne pas dépasser les 8 mais comment obliger à saisir 8
caractères ?

Merci.

BH.
--------------------------
Bonjour, *Bruno RCSC*

La propriété Maxlenght (dans la fenêtre propriétés ou par code) permet de
limiter ne nombre de caractères.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une
valeur de longueur de 8 caractères (alpha numérique) dans un textbox
d'un formulaire ?
Merci pour votre aide.

BH.










Avatar
isabelle
bonjour Bruno,

peut ête quelque chose comme ça :

Private Sub TextBox1_AfterUpdate()
If Application.CountA(TextBox1.Value) <> 8 Then
MsgBox "vous devez entrer 8 caractères"
TextBox1.SetFocus
TextBox1.Value = ""
End If
End Sub

isabelle

Bonsoir,

Merci Patrick mais la réponse est incomplète.

Je précise ma question : je veux que l'on saisisse obligatoirement 8
caractères.

Je cherche la "traduction" de Données/Validation/Longueur du texte égale à
8. J'ai essayé l'enregistreur mais je n'arrive pas à écrire le code pour mon
formulaire.

Maxlenght permet de ne pas dépasser les 8 mais comment obliger à saisir 8
caractères ?

Merci.

BH.
--------------------------
Bonjour, *Bruno RCSC*

La propriété Maxlenght (dans la fenêtre propriétés ou par code) permet de
limiter ne nombre de caractères.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une
valeur de longueur de 8 caractères (alpha numérique) dans un textbox
d'un formulaire ?
Merci pour votre aide.

BH.









Avatar
Bruno RCSC
Bonsoir,

Désolé pour cette réponse tardive.
Aucune proposition ne répond à ma problématique.

Isabelle : j'ai adapté le code mais cela m'affiche en permanence le contenu
du Msgbox.

Je réitère ma question au cas où : comment accepter le contenu d'un textbox
que s'il est de 8 caractères ?

BH.


"isabelle" a écrit dans le message de news:

bonjour Bruno,

peut ête quelque chose comme ça :

Private Sub TextBox1_AfterUpdate()
If Application.CountA(TextBox1.Value) <> 8 Then
MsgBox "vous devez entrer 8 caractères"
TextBox1.SetFocus
TextBox1.Value = ""
End If
End Sub

isabelle

Bonsoir,

Merci Patrick mais la réponse est incomplète.

Je précise ma question : je veux que l'on saisisse obligatoirement 8
caractères.

Je cherche la "traduction" de Données/Validation/Longueur du texte égale
à 8. J'ai essayé l'enregistreur mais je n'arrive pas à écrire le code
pour mon formulaire.

Maxlenght permet de ne pas dépasser les 8 mais comment obliger à saisir 8
caractères ?

Merci.

BH.
--------------------------
Bonjour, *Bruno RCSC*

La propriété Maxlenght (dans la fenêtre propriétés ou par code) permet
de limiter ne nombre de caractères.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une
valeur de longueur de 8 caractères (alpha numérique) dans un textbox
d'un formulaire ?
Merci pour votre aide.

BH.










Avatar
isabelle
bonjour Bruno,

comment la tu adapté ?

isabelle

Bonsoir,

Désolé pour cette réponse tardive.
Aucune proposition ne répond à ma problématique.

Isabelle : j'ai adapté le code mais cela m'affiche en permanence le contenu
du Msgbox.

Je réitère ma question au cas où : comment accepter le contenu d'un textbox
que s'il est de 8 caractères ?

BH.


"isabelle" a écrit dans le message de news:

bonjour Bruno,

peut ête quelque chose comme ça :

Private Sub TextBox1_AfterUpdate()
If Application.CountA(TextBox1.Value) <> 8 Then
MsgBox "vous devez entrer 8 caractères"
TextBox1.SetFocus
TextBox1.Value = ""
End If
End Sub

isabelle

Bonsoir,

Merci Patrick mais la réponse est incomplète.

Je précise ma question : je veux que l'on saisisse obligatoirement 8
caractères.

Je cherche la "traduction" de Données/Validation/Longueur du texte égale
à 8. J'ai essayé l'enregistreur mais je n'arrive pas à écrire le code
pour mon formulaire.

Maxlenght permet de ne pas dépasser les 8 mais comment obliger à saisir 8
caractères ?

Merci.

BH.
--------------------------
Bonjour, *Bruno RCSC*

La propriété Maxlenght (dans la fenêtre propriétés ou par code) permet
de limiter ne nombre de caractères.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une
valeur de longueur de 8 caractères (alpha numérique) dans un textbox
d'un formulaire ?
Merci pour votre aide.

BH.











Avatar
Frédéric Sigonneau
Peut-être en utilisant l'événement Exit :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) <> 8 Then
TextBox1.Text = ""
MsgBox "8 caractères obligatoires"
End If
End Sub

FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr

Bonsoir,

Désolé pour cette réponse tardive.
Aucune proposition ne répond à ma problématique.

Isabelle : j'ai adapté le code mais cela m'affiche en permanence le contenu
du Msgbox.

Je réitère ma question au cas où : comment accepter le contenu d'un textbox
que s'il est de 8 caractères ?

BH.


"isabelle" a écrit dans le message de news:

bonjour Bruno,

peut ête quelque chose comme ça :

Private Sub TextBox1_AfterUpdate()
If Application.CountA(TextBox1.Value) <> 8 Then
MsgBox "vous devez entrer 8 caractères"
TextBox1.SetFocus
TextBox1.Value = ""
End If
End Sub

isabelle

Bonsoir,

Merci Patrick mais la réponse est incomplète.

Je précise ma question : je veux que l'on saisisse obligatoirement 8
caractères.

Je cherche la "traduction" de Données/Validation/Longueur du texte égale
à 8. J'ai essayé l'enregistreur mais je n'arrive pas à écrire le code
pour mon formulaire.

Maxlenght permet de ne pas dépasser les 8 mais comment obliger à saisir 8
caractères ?

Merci.

BH.
--------------------------
Bonjour, *Bruno RCSC*

La propriété Maxlenght (dans la fenêtre propriétés ou par code) permet
de limiter ne nombre de caractères.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une
valeur de longueur de 8 caractères (alpha numérique) dans un textbox
d'un formulaire ?
Merci pour votre aide.

BH.











Avatar
Bruno RCSC
Bonjour,

Le code adapté à mon programme
Private Sub Immat_AfterUpdate()
If Application.CountA(Me.immat) <> 8 Then
MsgBox "vous devez entrer 8 caractères"
Me.Immat = ""
Me.Immat.SetFocus
End If
End Sub
J'ai aussi essayé
If Application.CountA(Me.Immat.Value) <> 8 Then

Y a t'il matière à correction ?

BH.


bonjour Bruno,

comment la tu adapté ?

isabelle



Avatar
isabelle
bonjour Bruno,

regarde la proposition de Frederic, je crois bien que ça fera ton bonheur.

isabelle

Bonjour,

Le code adapté à mon programme
Private Sub Immat_AfterUpdate()
If Application.CountA(Me.immat) <> 8 Then
MsgBox "vous devez entrer 8 caractères"
Me.Immat = ""
Me.Immat.SetFocus
End If
End Sub
J'ai aussi essayé
If Application.CountA(Me.Immat.Value) <> 8 Then

Y a t'il matière à correction ?

BH.


bonjour Bruno,

comment la tu adapté ?

isabelle







Avatar
Bruno RCSC
Bonsoir,

Merci à vous deux.
Effectivement, le code de Frédéric est parfait.
Impossible de passer au champ suivant s'il n'y a pas 8 caractères de saisi.
Encore merci.

Bonne soirée.

BH.



"Frédéric Sigonneau" a écrit dans le message de news:
%233pWoD$
Peut-être en utilisant l'événement Exit :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) <> 8 Then
TextBox1.Text = ""
MsgBox "8 caractères obligatoires"
End If
End Sub

FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr

Bonsoir,

Désolé pour cette réponse tardive.
Aucune proposition ne répond à ma problématique.

Isabelle : j'ai adapté le code mais cela m'affiche en permanence le
contenu du Msgbox.

Je réitère ma question au cas où : comment accepter le contenu d'un
textbox que s'il est de 8 caractères ?

BH.


"isabelle" a écrit dans le message de news:

bonjour Bruno,

peut ête quelque chose comme ça :

Private Sub TextBox1_AfterUpdate()
If Application.CountA(TextBox1.Value) <> 8 Then
MsgBox "vous devez entrer 8 caractères"
TextBox1.SetFocus
TextBox1.Value = ""
End If
End Sub

isabelle

Bonsoir,

Merci Patrick mais la réponse est incomplète.

Je précise ma question : je veux que l'on saisisse obligatoirement 8
caractères.

Je cherche la "traduction" de Données/Validation/Longueur du texte
égale à 8. J'ai essayé l'enregistreur mais je n'arrive pas à écrire le
code pour mon formulaire.

Maxlenght permet de ne pas dépasser les 8 mais comment obliger à saisir
8 caractères ?

Merci.

BH.
--------------------------
Bonjour, *Bruno RCSC*

La propriété Maxlenght (dans la fenêtre propriétés ou par code) permet
de limiter ne nombre de caractères.

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,

Sous Excel 2002.

Comment doit on procéder pour obliger un opérateur à saisir une
valeur de longueur de 8 caractères (alpha numérique) dans un textbox
d'un formulaire ?
Merci pour votre aide.

BH.