J'ai un UserForm de saisie et je souhaiterais formater celui-ci
pour qu'a l'encodage il apparaisse comme ceci.
Private Sub CommandButton3_Click()
TbIndex.Value = "" des chiffres
TbPrenom.Value = "" 1er lettre de mot en majuscule
TbNom.Value = "" tout en majuscule
TbAdresse.Value = ""
TbCp.Value = "" que 4 chiffre possible sans
espace
TbLocalite.Value = ""
TbTelephone.Value = "" téléphone du type 087/22 55 60 mais la
possibilité de 02/362 20 25
TbGsm.Value = "" Portable du type 0497/325 325
TbEmail.Value = "" vérifie si bien adresse mail
TbAnniversaire.Value = " " de type date 14/03/2005
TbAge.Value = "" si possibe calculer l'âge et
terminer par "ans"
TbIndex = "ne pas oublier !" En surbrillance pour être effacer dès
l'entrée de chiffre
CommandButton4.Visible = True
CommandButton1.Visible = False
CommandButton2.Visible = False
End Sub
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
philip
Bonjour, une solution est de faire un contrôle du contenu des TexBox lorsque l'utilisateur clique sur OK du UserForm et de revenir à l'affichage du Userform si les données ne sont pas conformes. Exemple : If Not IsNumeric(TbIndex.Value) then MsgBox "Le format de l'index n'est pas conforme" exit sub End If Prenom=MAJUSCULE(TbPrenom.Value) If EXACT(Mid(Prenom,1,1);Mid(TbPrenom.Value,1,1))úlse Then MsgBox "Le format du prénom n'est pas conforme" Exit Sub End If
etc, etc...
Bonjour le groupe,
J'ai un UserForm de saisie et je souhaiterais formater celui-ci pour qu'a l'encodage il apparaisse comme ceci.
Private Sub CommandButton3_Click() TbIndex.Value = "" des chiffres TbPrenom.Value = "" 1er lettre de mot en majuscule TbNom.Value = "" tout en majuscule TbAdresse.Value = "" TbCp.Value = "" que 4 chiffre possible sans espace TbLocalite.Value = "" TbTelephone.Value = "" téléphone du type 087/22 55 60 mais la possibilité de 02/362 20 25 TbGsm.Value = "" Portable du type 0497/325 325 TbEmail.Value = "" vérifie si bien adresse mail TbAnniversaire.Value = " " de type date 14/03/2005 TbAge.Value = "" si possibe calculer l'âge et terminer par "ans" TbIndex = "ne pas oublier !" En surbrillance pour être effacer dès l'entrée de chiffre CommandButton4.Visible = True CommandButton1.Visible = False CommandButton2.Visible = False End Sub
Merci de m'aider
Bonjour,
une solution est de faire un contrôle du contenu des TexBox lorsque
l'utilisateur clique sur OK du UserForm et de revenir à l'affichage du
Userform si les données ne sont pas conformes.
Exemple :
If Not IsNumeric(TbIndex.Value) then
MsgBox "Le format de l'index n'est pas conforme"
exit sub
End If
Prenom=MAJUSCULE(TbPrenom.Value)
If EXACT(Mid(Prenom,1,1);Mid(TbPrenom.Value,1,1))úlse Then
MsgBox "Le format du prénom n'est pas conforme"
Exit Sub
End If
etc, etc...
Bonjour le groupe,
J'ai un UserForm de saisie et je souhaiterais formater celui-ci
pour qu'a l'encodage il apparaisse comme ceci.
Private Sub CommandButton3_Click()
TbIndex.Value = "" des chiffres
TbPrenom.Value = "" 1er lettre de mot en majuscule
TbNom.Value = "" tout en majuscule
TbAdresse.Value = ""
TbCp.Value = "" que 4 chiffre possible sans
espace
TbLocalite.Value = ""
TbTelephone.Value = "" téléphone du type 087/22 55 60 mais la
possibilité de 02/362 20 25
TbGsm.Value = "" Portable du type 0497/325 325
TbEmail.Value = "" vérifie si bien adresse mail
TbAnniversaire.Value = " " de type date 14/03/2005
TbAge.Value = "" si possibe calculer l'âge et
terminer par "ans"
TbIndex = "ne pas oublier !" En surbrillance pour être effacer dès
l'entrée de chiffre
CommandButton4.Visible = True
CommandButton1.Visible = False
CommandButton2.Visible = False
End Sub
Bonjour, une solution est de faire un contrôle du contenu des TexBox lorsque l'utilisateur clique sur OK du UserForm et de revenir à l'affichage du Userform si les données ne sont pas conformes. Exemple : If Not IsNumeric(TbIndex.Value) then MsgBox "Le format de l'index n'est pas conforme" exit sub End If Prenom=MAJUSCULE(TbPrenom.Value) If EXACT(Mid(Prenom,1,1);Mid(TbPrenom.Value,1,1))úlse Then MsgBox "Le format du prénom n'est pas conforme" Exit Sub End If
etc, etc...
Bonjour le groupe,
J'ai un UserForm de saisie et je souhaiterais formater celui-ci pour qu'a l'encodage il apparaisse comme ceci.
Private Sub CommandButton3_Click() TbIndex.Value = "" des chiffres TbPrenom.Value = "" 1er lettre de mot en majuscule TbNom.Value = "" tout en majuscule TbAdresse.Value = "" TbCp.Value = "" que 4 chiffre possible sans espace TbLocalite.Value = "" TbTelephone.Value = "" téléphone du type 087/22 55 60 mais la possibilité de 02/362 20 25 TbGsm.Value = "" Portable du type 0497/325 325 TbEmail.Value = "" vérifie si bien adresse mail TbAnniversaire.Value = " " de type date 14/03/2005 TbAge.Value = "" si possibe calculer l'âge et terminer par "ans" TbIndex = "ne pas oublier !" En surbrillance pour être effacer dès l'entrée de chiffre CommandButton4.Visible = True CommandButton1.Visible = False CommandButton2.Visible = False End Sub
