Vba rendre obligatoire la saisie dans les formulaires
9 réponses
fbr
Bonjour,
Quels moyens a t'on pour rendre obligatoire la saisie dans les formulaires?
Par exemple tant qu'un textbox n'est pas rempli, on ne peut pas passer à
l'onglet suivant.
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
anonymousA
Bonjour,
soit tu portes le focus sur le textbox à l'ouverture du userform et tu en empêches la sortie par les evenements disponibles sur le textbox tant que quelque chose n'est pas rempli. Soit tu laisses l'utilisateur écrire ce qu'il veut comme il veut et tu fais un test à la sortie du formulaire pour vérifier que le textbox a été rempli. SI c'est le cas, tu poursuis, autrement tu envoies un message pour prévenir l'utilisateur. Perso, je préfère la dernière option.
A+
Bonjour,
soit tu portes le focus sur le textbox à l'ouverture du userform et tu
en empêches la sortie par les evenements disponibles sur le textbox
tant que quelque chose n'est pas rempli.
Soit tu laisses l'utilisateur écrire ce qu'il veut comme il veut et tu
fais un test à la sortie du formulaire pour vérifier que le textbox a
été rempli. SI c'est le cas, tu poursuis, autrement tu envoies un
message pour prévenir l'utilisateur. Perso, je préfère la dernière
option.
soit tu portes le focus sur le textbox à l'ouverture du userform et tu en empêches la sortie par les evenements disponibles sur le textbox tant que quelque chose n'est pas rempli. Soit tu laisses l'utilisateur écrire ce qu'il veut comme il veut et tu fais un test à la sortie du formulaire pour vérifier que le textbox a été rempli. SI c'est le cas, tu poursuis, autrement tu envoies un message pour prévenir l'utilisateur. Perso, je préfère la dernière option.
A+
fbr
Je choisi la 2eme possibilités dans ce cas que faut il faire? Si ce n'est pas trop demander
merci d'avance
"anonymousA" a écrit dans le message de news:
Bonjour,
soit tu portes le focus sur le textbox à l'ouverture du userform et tu en empêches la sortie par les evenements disponibles sur le textbox tant que quelque chose n'est pas rempli. Soit tu laisses l'utilisateur écrire ce qu'il veut comme il veut et tu fais un test à la sortie du formulaire pour vérifier que le textbox a été rempli. SI c'est le cas, tu poursuis, autrement tu envoies un message pour prévenir l'utilisateur. Perso, je préfère la dernière option.
A+
Je choisi la 2eme possibilités dans ce cas que faut il faire? Si ce n'est
pas trop demander
merci d'avance
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1147261681.106733.40950@u72g2000cwu.googlegroups.com...
Bonjour,
soit tu portes le focus sur le textbox à l'ouverture du userform et tu
en empêches la sortie par les evenements disponibles sur le textbox
tant que quelque chose n'est pas rempli.
Soit tu laisses l'utilisateur écrire ce qu'il veut comme il veut et tu
fais un test à la sortie du formulaire pour vérifier que le textbox a
été rempli. SI c'est le cas, tu poursuis, autrement tu envoies un
message pour prévenir l'utilisateur. Perso, je préfère la dernière
option.
Je choisi la 2eme possibilités dans ce cas que faut il faire? Si ce n'est pas trop demander
merci d'avance
"anonymousA" a écrit dans le message de news:
Bonjour,
soit tu portes le focus sur le textbox à l'ouverture du userform et tu en empêches la sortie par les evenements disponibles sur le textbox tant que quelque chose n'est pas rempli. Soit tu laisses l'utilisateur écrire ce qu'il veut comme il veut et tu fais un test à la sortie du formulaire pour vérifier que le textbox a été rempli. SI c'est le cas, tu poursuis, autrement tu envoies un message pour prévenir l'utilisateur. Perso, je préfère la dernière option.
A+
anonymousA
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été saisi , alors ca se complique mais ce n'est pas forcément infaisable.
A+
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu
écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été
saisi , alors ca se complique mais ce n'est pas forcément infaisable.
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été saisi , alors ca se complique mais ce n'est pas forcément infaisable.
A+
fbr
Merci cela fonctionne bien, mais cela ne les bloquent pas completement car la procédure continu. Peut t'on continuer le code en ecrivant si ce champs est vide alors msgbox "machintruc" et cela stop le reste des actions"? merci "anonymousA" a écrit dans le message de news:
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été saisi , alors ca se complique mais ce n'est pas forcément infaisable.
A+
Merci cela fonctionne bien, mais cela ne les bloquent pas completement car
la procédure continu. Peut t'on continuer le code en ecrivant si ce champs
est vide alors msgbox "machintruc" et cela stop le reste des actions"?
merci
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1147264909.520933.209070@j33g2000cwa.googlegroups.com...
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu
écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été
saisi , alors ca se complique mais ce n'est pas forcément infaisable.
Merci cela fonctionne bien, mais cela ne les bloquent pas completement car la procédure continu. Peut t'on continuer le code en ecrivant si ce champs est vide alors msgbox "machintruc" et cela stop le reste des actions"? merci "anonymousA" a écrit dans le message de news:
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été saisi , alors ca se complique mais ce n'est pas forcément infaisable.
A+
Damien Kergosien
Bonjour fbr il faudrait compléter la procédure avec Me.TextBox1.setfocus pour resélectionner le texbox1 et doncc inviter explicitement à une saisie.
Damien
Merci cela fonctionne bien, mais cela ne les bloquent pas completement car la procédure continu. Peut t'on continuer le code en ecrivant si ce champs est vide alors msgbox "machintruc" et cela stop le reste des actions"? merci "anonymousA" a écrit dans le message de news:
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été saisi , alors ca se complique mais ce n'est pas forcément infaisable.
A+
Bonjour fbr
il faudrait compléter la procédure avec
Me.TextBox1.setfocus
pour resélectionner le texbox1 et doncc inviter explicitement à une
saisie.
Damien
Merci cela fonctionne bien, mais cela ne les bloquent pas completement car la
procédure continu. Peut t'on continuer le code en ecrivant si ce champs est
vide alors msgbox "machintruc" et cela stop le reste des actions"?
merci
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1147264909.520933.209070@j33g2000cwa.googlegroups.com...
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu
écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été
saisi , alors ca se complique mais ce n'est pas forcément infaisable.
Bonjour fbr il faudrait compléter la procédure avec Me.TextBox1.setfocus pour resélectionner le texbox1 et doncc inviter explicitement à une saisie.
Damien
Merci cela fonctionne bien, mais cela ne les bloquent pas completement car la procédure continu. Peut t'on continuer le code en ecrivant si ce champs est vide alors msgbox "machintruc" et cela stop le reste des actions"? merci "anonymousA" a écrit dans le message de news:
Imaginons que tu aies un bouton (commandbutton) appelé Validation. Tu écris la procédure suivante dans le Userform
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose"
End Sub
si tu veux des tests plus élaborés sur la nature de ce qui a été saisi , alors ca se complique mais ce n'est pas forcément infaisable.
A+
anonymousA
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation , tu testes si la textbox est vide ( et c'est bien ce que fait len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose" Exit Sub End if
'ici la suite normale de ta macro si le test de validation conduit à l'assurance qu'il y a quelque chose dans le TextBox
End Sub
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation ,
tu testes si la textbox est vide ( et c'est bien ce que fait
len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en
envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then
MsgBox "saisir quelque chose"
Exit Sub
End if
'ici la suite normale de ta macro si le test de validation conduit à
l'assurance qu'il y a quelque chose dans le TextBox
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation , tu testes si la textbox est vide ( et c'est bien ce que fait len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose" Exit Sub End if
'ici la suite normale de ta macro si le test de validation conduit à l'assurance qu'il y a quelque chose dans le TextBox
End Sub
fbr
merci beaucoup cela fonctionne parfaitement "anonymousA" a écrit dans le message de news:
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation , tu testes si la textbox est vide ( et c'est bien ce que fait len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose" Exit Sub End if
'ici la suite normale de ta macro si le test de validation conduit à l'assurance qu'il y a quelque chose dans le TextBox
End Sub
merci beaucoup cela fonctionne parfaitement
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1147275149.483402.60810@i40g2000cwc.googlegroups.com...
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation ,
tu testes si la textbox est vide ( et c'est bien ce que fait
len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en
envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then
MsgBox "saisir quelque chose"
Exit Sub
End if
'ici la suite normale de ta macro si le test de validation conduit à
l'assurance qu'il y a quelque chose dans le TextBox
merci beaucoup cela fonctionne parfaitement "anonymousA" a écrit dans le message de news:
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation , tu testes si la textbox est vide ( et c'est bien ce que fait len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose" Exit Sub End if
'ici la suite normale de ta macro si le test de validation conduit à l'assurance qu'il y a quelque chose dans le TextBox
End Sub
fbr
Petit détail supplémentaire que je n'avais pas vérifié :
Ma procédure se bloque lorsque une zone obligatoire n'est pas saisie, mais lorsque, on retourne dans la cellule pour saisir qqchose et que l'on valide, cela ne fais plus, rien. comme si le bouton était désactivé, je vous écris le détail de ma sub :
Private Sub CmdVisuFeuille_Click() 'Contrôle les saisies obligatoires si pas saisie on annule la validation et on retourne dans la celulle visée
'Zone obligatoire : Commercial 1 If Len(Me.CboCommercial1.Text) = 0 Then MsgBox "Saisie du commercial obligatoire, procédure annulée" Call Me.CboCommercial1.SetFocus Exit Sub
'Ferme le formulaire et ouvre la feuille
Dim MaRep MaRep = MsgBox("Saisie terminée? Sinon vous devrez continuez sur la feuille", vbYesNoCancel) 'Pose la question après avoir cliqué sur le bouton "terminer et... "pour verifier le clic
If MaRep = vbYes Then 'pose la condition du oui non annuler Call CmdValider_Click Unload Me Sheets("memo").Select End If 'ferme la condition End Sub
Je crois qu'il faut que j'organise ca un peu mieux pour faire le lien entre la fin de la vérification des zones obligatoires et la validation des données.
merci
"fbr" a écrit dans le message de news:
merci beaucoup cela fonctionne parfaitement "anonymousA" a écrit dans le message de news:
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation , tu testes si la textbox est vide ( et c'est bien ce que fait len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose" Exit Sub End if
'ici la suite normale de ta macro si le test de validation conduit à l'assurance qu'il y a quelque chose dans le TextBox
End Sub
Petit détail supplémentaire que je n'avais pas vérifié :
Ma procédure se bloque lorsque une zone obligatoire n'est pas saisie, mais
lorsque, on retourne dans la cellule pour saisir qqchose et que l'on valide,
cela ne fais plus, rien. comme si le bouton était désactivé, je vous écris
le détail de ma sub :
Private Sub CmdVisuFeuille_Click()
'Contrôle les saisies obligatoires si pas saisie on annule la validation et
on retourne dans la celulle visée
'Zone obligatoire : Commercial 1
If Len(Me.CboCommercial1.Text) = 0 Then MsgBox "Saisie du commercial
obligatoire, procédure annulée"
Call Me.CboCommercial1.SetFocus
Exit Sub
'Ferme le formulaire et ouvre la feuille
Dim MaRep
MaRep = MsgBox("Saisie terminée? Sinon vous devrez continuez sur la
feuille", vbYesNoCancel)
'Pose la question après avoir cliqué sur le bouton "terminer et... "pour
verifier le clic
If MaRep = vbYes Then 'pose la condition du oui non annuler
Call CmdValider_Click
Unload Me
Sheets("memo").Select
End If 'ferme la condition
End Sub
Je crois qu'il faut que j'organise ca un peu mieux pour faire le lien entre
la fin de la vérification des zones obligatoires et la validation des
données.
merci
"fbr" <brossefred@aol.com> a écrit dans le message de news:
u7zKbwMdGHA.3712@TK2MSFTNGP03.phx.gbl...
merci beaucoup cela fonctionne parfaitement
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1147275149.483402.60810@i40g2000cwc.googlegroups.com...
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation ,
tu testes si la textbox est vide ( et c'est bien ce que fait
len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en
envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then
MsgBox "saisir quelque chose"
Exit Sub
End if
'ici la suite normale de ta macro si le test de validation conduit à
l'assurance qu'il y a quelque chose dans le TextBox
Petit détail supplémentaire que je n'avais pas vérifié :
Ma procédure se bloque lorsque une zone obligatoire n'est pas saisie, mais lorsque, on retourne dans la cellule pour saisir qqchose et que l'on valide, cela ne fais plus, rien. comme si le bouton était désactivé, je vous écris le détail de ma sub :
Private Sub CmdVisuFeuille_Click() 'Contrôle les saisies obligatoires si pas saisie on annule la validation et on retourne dans la celulle visée
'Zone obligatoire : Commercial 1 If Len(Me.CboCommercial1.Text) = 0 Then MsgBox "Saisie du commercial obligatoire, procédure annulée" Call Me.CboCommercial1.SetFocus Exit Sub
'Ferme le formulaire et ouvre la feuille
Dim MaRep MaRep = MsgBox("Saisie terminée? Sinon vous devrez continuez sur la feuille", vbYesNoCancel) 'Pose la question après avoir cliqué sur le bouton "terminer et... "pour verifier le clic
If MaRep = vbYes Then 'pose la condition du oui non annuler Call CmdValider_Click Unload Me Sheets("memo").Select End If 'ferme la condition End Sub
Je crois qu'il faut que j'organise ca un peu mieux pour faire le lien entre la fin de la vérification des zones obligatoires et la validation des données.
merci
"fbr" a écrit dans le message de news:
merci beaucoup cela fonctionne parfaitement "anonymousA" a écrit dans le message de news:
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation , tu testes si la textbox est vide ( et c'est bien ce que fait len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose" Exit Sub End if
'ici la suite normale de ta macro si le test de validation conduit à l'assurance qu'il y a quelque chose dans le TextBox
End Sub
fbr
Quelqu'"un aurait une solution je n'arrive pas à avancer? merci fred "fbr" a écrit dans le message de news:
Petit détail supplémentaire que je n'avais pas vérifié :
Ma procédure se bloque lorsque une zone obligatoire n'est pas saisie, mais lorsque, on retourne dans la cellule pour saisir qqchose et que l'on valide, cela ne fais plus, rien. comme si le bouton était désactivé, je vous écris le détail de ma sub :
Private Sub CmdVisuFeuille_Click() 'Contrôle les saisies obligatoires si pas saisie on annule la validation et on retourne dans la celulle visée
'Zone obligatoire : Commercial 1 If Len(Me.CboCommercial1.Text) = 0 Then MsgBox "Saisie du commercial obligatoire, procédure annulée" Call Me.CboCommercial1.SetFocus Exit Sub
'Ferme le formulaire et ouvre la feuille
Dim MaRep MaRep = MsgBox("Saisie terminée? Sinon vous devrez continuez sur la feuille", vbYesNoCancel) 'Pose la question après avoir cliqué sur le bouton "terminer et... "pour verifier le clic
If MaRep = vbYes Then 'pose la condition du oui non annuler Call CmdValider_Click Unload Me Sheets("memo").Select End If 'ferme la condition End Sub
Je crois qu'il faut que j'organise ca un peu mieux pour faire le lien entre la fin de la vérification des zones obligatoires et la validation des données.
merci
"fbr" a écrit dans le message de news:
merci beaucoup cela fonctionne parfaitement "anonymousA" a écrit dans le message de news:
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation , tu testes si la textbox est vide ( et c'est bien ce que fait len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose" Exit Sub End if
'ici la suite normale de ta macro si le test de validation conduit à l'assurance qu'il y a quelque chose dans le TextBox
End Sub
Quelqu'"un aurait une solution je n'arrive pas à avancer? merci fred
"fbr" <brossefred@aol.com> a écrit dans le message de news:
uwpq3BNdGHA.1276@TK2MSFTNGP03.phx.gbl...
Petit détail supplémentaire que je n'avais pas vérifié :
Ma procédure se bloque lorsque une zone obligatoire n'est pas saisie, mais
lorsque, on retourne dans la cellule pour saisir qqchose et que l'on
valide, cela ne fais plus, rien. comme si le bouton était désactivé, je
vous écris le détail de ma sub :
Private Sub CmdVisuFeuille_Click()
'Contrôle les saisies obligatoires si pas saisie on annule la validation
et on retourne dans la celulle visée
'Zone obligatoire : Commercial 1
If Len(Me.CboCommercial1.Text) = 0 Then MsgBox "Saisie du commercial
obligatoire, procédure annulée"
Call Me.CboCommercial1.SetFocus
Exit Sub
'Ferme le formulaire et ouvre la feuille
Dim MaRep
MaRep = MsgBox("Saisie terminée? Sinon vous devrez continuez sur la
feuille", vbYesNoCancel)
'Pose la question après avoir cliqué sur le bouton "terminer et...
"pour verifier le clic
If MaRep = vbYes Then 'pose la condition du oui non annuler
Call CmdValider_Click
Unload Me
Sheets("memo").Select
End If 'ferme la condition
End Sub
Je crois qu'il faut que j'organise ca un peu mieux pour faire le lien
entre la fin de la vérification des zones obligatoires et la validation
des données.
merci
"fbr" <brossefred@aol.com> a écrit dans le message de news:
u7zKbwMdGHA.3712@TK2MSFTNGP03.phx.gbl...
merci beaucoup cela fonctionne parfaitement
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
1147275149.483402.60810@i40g2000cwc.googlegroups.com...
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation ,
tu testes si la textbox est vide ( et c'est bien ce que fait
len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en
envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then
MsgBox "saisir quelque chose"
Exit Sub
End if
'ici la suite normale de ta macro si le test de validation conduit à
l'assurance qu'il y a quelque chose dans le TextBox
Quelqu'"un aurait une solution je n'arrive pas à avancer? merci fred "fbr" a écrit dans le message de news:
Petit détail supplémentaire que je n'avais pas vérifié :
Ma procédure se bloque lorsque une zone obligatoire n'est pas saisie, mais lorsque, on retourne dans la cellule pour saisir qqchose et que l'on valide, cela ne fais plus, rien. comme si le bouton était désactivé, je vous écris le détail de ma sub :
Private Sub CmdVisuFeuille_Click() 'Contrôle les saisies obligatoires si pas saisie on annule la validation et on retourne dans la celulle visée
'Zone obligatoire : Commercial 1 If Len(Me.CboCommercial1.Text) = 0 Then MsgBox "Saisie du commercial obligatoire, procédure annulée" Call Me.CboCommercial1.SetFocus Exit Sub
'Ferme le formulaire et ouvre la feuille
Dim MaRep MaRep = MsgBox("Saisie terminée? Sinon vous devrez continuez sur la feuille", vbYesNoCancel) 'Pose la question après avoir cliqué sur le bouton "terminer et... "pour verifier le clic
If MaRep = vbYes Then 'pose la condition du oui non annuler Call CmdValider_Click Unload Me Sheets("memo").Select End If 'ferme la condition End Sub
Je crois qu'il faut que j'organise ca un peu mieux pour faire le lien entre la fin de la vérification des zones obligatoires et la validation des données.
merci
"fbr" a écrit dans le message de news:
merci beaucoup cela fonctionne parfaitement "anonymousA" a écrit dans le message de news:
Je ne vois pas ce que tu veux dire. Si dans le bouton de validation , tu testes si la textbox est vide ( et c'est bien ce que fait len(Me.Textbox1)=0 ) alors il te suffit de bloquer la validation en envoyant un Exit Sub avant la suite de ta macro
Private Sub Validation_Click()
If Len(Me.TextBox1) = 0 Then MsgBox "saisir quelque chose" Exit Sub End if
'ici la suite normale de ta macro si le test de validation conduit à l'assurance qu'il y a quelque chose dans le TextBox
