Bloquer un CommandButton Valider et questions sur OptionButton

Bonjour,

Je reviens à vous car je n'arrive pas à me sortir d'une situation. Je ne sais pas si ce sera possible.

J'ai écrit un code qui permet de dire à l'utilisateur attention tel ou tel champs est vide. Je clique sur ok de ma message box , mais je peux quand même valider ma saisie alors que je n'ai pas rempli les champs.
Dois-je utiliser Enabled et le relier par un code ?

De plus dans ce code j'ai 3 optionbuttons, j'en coche un et ma message box m'avertie d'en sélectionner un. Est-ce parce qu'il y en a 3, il faudrait que les 3 soit cochés pour ne pas avoir un message ?
Un autre problème se pose aussi : si je relance mon programme à la suite (sans le fermer, pour le moment j'ai mis unload me donc cela ferme) le dernier optionbutton reste sélectionné. Par conséquent, je ne peux pas le valider pour avoir l'inscription de mes valeurs.
Existe-t-il une propriété ou solution ?

Voici le code de mon test si les champs sont vides :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Sub TestSiVide()   Dim VariTexte Dim Compt01 Dim optb   VariTexte = "" Compt01 = 0 '--------------------------------------- If TextBox1.Text = "" Then VariTexte = VariTexte & Chr(10) & "Saisir la Date" If TextBox2.Text = "" Then VariTexte = VariTexte & Chr(10) & "Saisir le N° de Charge" If TextBox3.Text = "" Then VariTexte = VariTexte & Chr(10) & "Saisir le N° OF" If TextBox4.Text = "" Then VariTexte = VariTexte & Chr(10) & "Saisir le N° OP"   If ListBox1.Text = "" Then VariTexte = VariTexte & Chr(10) & "Sélectionner le nombre de pièces" If ComboBox1.ListIndex = -1 Then VariTexte = VariTexte & Chr(10) & "Sélectionner votre Visa" '--------------------------------------- For Each optb In UserFormA.Controls If Left(optb.Name, 7) = "OptionB" Then If optb.Value = True Then Compt01 = 1 End If Next   If Compt01 = 0 Then VariTexte = VariTexte & Chr(10) & "Choisir entre trempe, revenu ou autre" ' OptionButton   '--------------------------------------- If VariTexte <> "" Then MsgBox VariTexte: Exit Sub   If Compt01 = 0 Then MsgBox VariTexte: Exit Sub       End Sub

---

Et celui de mon code Valider :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() 'valider Dim DateChargement As String, NumeroDeCharge As String, NumeroDOp As String, NumeroOF As String, Nombredepieces As Variant, _ Visa As String     '---------------------------------------------------------------------------------------------------- TestSiVide '----------------------------------------------------------------------------------------------------   'Appelle de la méthode du module1 pour insérer les valeurs Call InsererLesDonneesDansLaFeuille(DateChargement, NumeroDeCharge, NumeroOF, NumeroDOp, ListBox1.Value, ComboBox1.Text) '---------------------------------------------------------------------------------------------------- Unload Me   End Sub

---

Je vous remercie par avance de vos futures pistes.

Cordialement

Bonjour,
Le plus simple il me semble est de transformer ta procédure TestSiVide en une fonction booléenne
Exemple de test sur trois contrôles TextBox

Code:

---

1 2 3 4 5 6 7 8 9

Private Function TestSiVide() As Boolean Dim ctrl As Control, r As Long For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.TextBox And Len(ctrl.Value) = 0 Then Exit Function End If Next TestSiVide = True End Function

---

Et ainsi tu peux transformer la valeur de la propriété Enable du contrôle CommandButton en appelant la fonction
Exemple pour un CommandButton nommé cmdOK

Code:

---

Me.cmdOK.Enabled = TestSiVide

---

Bonjour Philippe,

J'ai une erreur sur la ligne If type of. Je n'ai pas du comprendre ce qu'il fallait faire.
Cette formule prends tous les textbox, si je comprends bien (à faire de même pour combobox et listbox) ?

Le problème : il faut que je garde mes messages box pour l'utilisateur. Sinon il ne va pas comprendre ce qu'est textbox 1 ou 3 ou etc.
J'ai voulu contourner le système avec MSForms qui ne me convient pas je pense.

Je me souviens déjà l'avoir utilisé et il me nommait tous mes contrôles comme je l'avais fait sur VBA alors qu'il faudrait les noms que j'ai écrit dans les labels de mon Userform. D'où la formule MsgBox.

Merci pour cette proposition.

Bonjour,

Citation:

---

J'ai une erreur sur la ligne If type of. Je n'ai pas du comprendre ce qu'il fallait faire.

---

Exact, il fallait placer le test sur deux lignes

Code:

---

1 2 3

If TypeOf ctrl Is MSForms.TextBox Then If Len(ctrl.Value) = 0 Then Exit Function End If

---

Citation:

---

Le problème : il faut que je garde mes messages box pour l'utilisateur. Sinon il ne va pas comprendre ce qu'est textbox 1 ou 3 ou etc.

---

Si le bouton OK n'est pas actif, l'utilisateur ne comprendra t'il pas qu'il doit encore remplir les textbox ?
Cependant, rien ne t'empêche d'ajouter les lignes à afficher. Il faut adapter le code.
Mon but était de te montrer comment modifier la propriété Enable du contrôle CommandButton à l'aide d'une fonction de test

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Si le bouton OK n'est pas actif, l'utilisateur ne comprendra t'il pas qu'il doit encore remplir les textbox ?
Cependant, rien ne t'empêche d'ajouter les lignes à afficher. Il faut adapter le code.
Mon but était de te montrer comment modifier la propriété Enable du contrôle CommandButton à l'aide d'une fonction de test

---

J'essaye de comprendre exactement ce qu'il faut faire et de compiler avec ce que vous me dîtes. Je ne cherche pas un code tout fait, loin de là. J'ai commencé VBA seulement depuis 2 mois et je ne suis pas du tout au point.
Il me faut assimiler ce que vous m'expliquez.

Dans mon programme, je me mets à la place de l'utilisateur le plus bête.

Je sais utiliser la propriété Enabled, je l'ai déjà fait pour des checkbox que j'ai abandonné pour des optionbutton mais pour le coup je ne sais pas si j'ai eu raison car j'ai encore plus de mal.

J'ai donc fait votre code comme ceci et supprimé le mien si j'ai bien compris :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Option Base 1 Private Function TestSiVide() As Boolean   '--------------------------------------------------------- Dim ctrl As Control, r As Long For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.TextBox Then If Len(ctrl.Value) = 0 Then Exit Function End If Next For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.ComboBox Then If Len(ctrl.Value) = 0 Then Exit Function End If Next '--------------------------------------------------------- For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.ListBox Then If Len(ctrl.Value) = 0 Then Exit Function End If Next '--------------------------------------------------------- For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.OptionButton Then If Len(ctrl.Value) = 0 Then Exit Function End If Next   TestSiVide = True End Function

---

Puis j'ai ajouté votre phrase au commandbutton "valider":

Code:

---

Me.CommandButton1.Enabled = TestSiVide

---

Est-ce comme ceci qu'il faut procéder ? Car en faisant ceci mon bouton valider n'est en aucun cas grisé.
J'essaie vraiment de comprendre et non de copier.
En ajoutant mes morceaux de codes du poste #1 des messages box rien ne se passe non plus.

Je n'ai jamais utilisé Function malgré avoir lu certains tutoriaux.

Par conséquent, j'aurai besoin d'un tutoriel très explicatif (alors que j'en ai déjà lu beaucoup) ou que vous preniez un peu de votre temps pour m'expliquer. Sans vouloir abuser.

Je vous remercie

Bonjour,

tu n'es pas obligé de reboucler sur chacun des contrôles, tu peux mettres des If...End if les uns à la suites des autres :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Function TestSiVide() As Boolean   TestSiVide = False   '--------------------------------------------------------- Dim ctrl As Control, r As Long For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.TextBox Then If Len(ctrl.Value) = 0 Then Exit Function End If '--------------------------------------------------------- If TypeOf ctrl Is MSForms.ComboBox Then If Len(ctrl.Value) = 0 Then Exit Function End If '--------------------------------------------------------- If TypeOf ctrl Is MSForms.ListBox Then If Len(ctrl.Value) = 0 Then Exit Function End If '--------------------------------------------------------- If TypeOf ctrl Is MSForms.OptionButton Then If Len(ctrl.Value) = 0 Then Exit Function End If Next   TestSiVide = True End Function

---

Le Code de Phillipe est a adapté suivant tes besoins. Ceci dit, je pense qu'il faut ajouter un bout de code dans la fonction, au dessus de la boucle

Code:

---

TestSiVide = False

---

Ensuite, une fonction c'est un peu comme en math.

Nous avons la fonction f(x) = 4x + 3. Cette fonction a un paramètre (x), et renvoie une valeurs, en l’occurrence, le résultat de l'opération 4x+3.
Une fonction en programmation c'est pareille, mais un peu plus étendue.

Cette fonction TestSiVide() ne prend pas de paramètre, mais va effectuer une opération. En l’occurrence, un simple test sur les différents contrôles de ton userform. Et elle va alors prendre une valeurs de type booléenne, donc "True" ou "False", en fonction des test.

Et Phillipe se sert justement du résultat de cette fonction pour continuer son programme.

Alors après modification et compréhension un peu floues j'ai écrit le code de Philippe comme suivant en ajoutant le conseil de Nico

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Private Function TestSiVide() As Boolean   '--------------------------------------------------------- Dim ctrl As Control, r As Long   For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.TextBox Then If Len(ctrl.Value) = 0 Then Exit Function End If   '---------------------------------------------------------   If TypeOf ctrl Is MSForms.ComboBox Then If Len(ctrl.Value) = 0 Then Exit Function End If   '---------------------------------------------------------   If TypeOf ctrl Is MSForms.ListBox Then If Len(ctrl.Value) = 0 Then Exit Function End If   '---------------------------------------------------------   If TypeOf ctrl Is MSForms.OptionButton Then If Len(ctrl.Value) = 0 Then Exit Function End If   '--------------------------------------------------------- Next   TestSiVide = True End Function

---

J'ai enlevé les unload me dans tous mes codes car l'Userform se fermait dès que je cliquais sur l'optionbutton. Mais j'ai omis une chose c'est que cet optionbutton appelle un autre Userform avec encore un choix optionbutton.
Petite démonstration en image :

Pièce jointe 158064

Premièrement mon bouton valider se grise si j'appuie dessus, tout va bien si je n'ai rien rempli.

Deuxièment, je remplis tout sauf que je ne sélectionne pas les optionbutton tout s'inscrit et se ferme sauf les valeurs des optionbutton que je n'ai pas cochées. Pourquoi ? Car il devrait contrôler mes optionbutton aussi non ?

Troisièmement, si je clique sur chaque optionbutton de chaque userform tout se ferme et je n'ai pas besoin de valider. Seulement (je n'ai plus de unload me) je ne peux pas visualiser pour me relire.

J'ai résolu un problème mais d'autres sont survenus du coup.

J'aimerai comprendre le système. Il va falloir que je relie les données du deuxième userform sur le premier c'est cela ?

Bonjour,
Chaque contrôle a ses spécificités.
Le contrôle OptionButton renvoit TRUE ou FALSE donc si tu testes avec Len() tu auras toujours une valeur positive
Si tu as 3 OptionButton's, il y aura soit 3 FALSE soit 2 FALSE et un TRUE (sauf si tu en mets un à TRUE à l'initialisation du UserForm. Donc il faudrait que tu fasses un contrôle spécifique pour les OptionButton's.
Le code qui additionne la valeur des OptionButton's

Code:

---

1 2 3

If TypeOf ctrl Is MSForms.OptionButton Then totOpt = totOpt + ctrl.Value End If

---

Le code a placer juste après le Next de la boucle For Each

Code:

---

If totOpt = 0 Then Exit Function

---

Ne pas oublier de déclarer la variable totOpt en début de procédure (type Integer).
Attention que s'il y a des OptionButtons's faisant partie d'un autre groupe, il faudrait procéder autrement

Bonjour,

Merci pour ces précisions.

En tout j'ai 9 optionbuttons répartis par 3 sur 3 userform différents. Il faut donc que je procède autrement.

Tout ceci me paraît compliqué. Je crois que je vais refaire des checkbox avec décocher cocher et griser si l'un des 3 est coché..
Le code sera plus long, mais pour moi cela sera plus simple.