XL 2010 Obliger la validation d'un bouton d'option.

[gillesda]

Bonjour tout le monde.
J’ai cherché sans trouver c’est pourquoi je suis là.
Je souhaite que l’utilisateur d’une application sélectionne impérativement un bouton d’option.
Le problème actuel c’est qu’il peut facilement passer la demande et valider. Pour contourner, j’avais pensé « cacher » le bouton valider tant que les OB ne sont pas remplis mais je cale. Je vous donne mon code si vous voulez bien me dire ce qu’il faut adopter. Je suis loin de maîtriser VBA.
Je vous remercie.
Gilles.DA


Private Sub BTvalider_Click()
If QuantiteTB = "" Or TBdate = "" Or EntreeOB = "" Or SortieOB = "" Then
MsgBox ("Toutes les informations doivent être remplies."): Beep
Else

If Sheets("listing").Range("A4") = "" Then
Sheets("listing").Range("A4") = SelectConsoCB
Else
Sheets("listing").ListObjects(1).ListRows.Add 'ListObject(1) 'est mon tableau 1.
End If

'recherche de la première ligne vide à partir de la toute dernière ligne de la feuille2.
dlt = Sheets("listing").Range("A1048576").End(xlUp).Row 'dlt = dernière ligne

'paramétrage des valeurs à coller sur la feuille 2.
Sheets("listing").Range("A" & dlt) = SelectConsoCB
Sheets("listing").Range("B" & dlt) = DesignationTB
Sheets("listing").Range("C" & dlt) = MarqueTB
Sheets("listing").Range("D" & dlt) = DescriptionTB
Sheets("listing").Range("E" & dlt) = CondiTB
Sheets("listing").Range("F" & dlt) = QuantiteTB
TBdate = Format(TBdate, "dd/mm/yyyy") ' pour mettre la date en "français"..
Sheets("listing").Range("G" & dlt) = TBdate

'paramétrage des boutons d'option.
Dim l As Integer ' la variable ligne
If EntreeOB.Value = True Then
Range("H" & dlt).Value = "Entrés"
End If

If SortieOB.Value = True Then Range("H" & dlt).Value = "Sortis"
End If

'End If

'permet de vider le UserForm ContFRM
Unload Me 'permet de vider le USF
ContFRM.Show ' et de le réouvrir vide.

End If

End Sub

 

[vgendron]

Hello

avec le fichier, ce serait plus pratique pour debugger ton prog
sinon, à priori un optionbutton est True or False
donc ton test: if EntreeOB="" n'est pas bon
perso, les option bouton, je les initialise à une valeur par défaut toujours au début

 

[gillesda]

A Vgendron, à tous.
Merci de ta réponse avisée Vgendron. J'en prends note.
Une lueur....(he oui)...j'ai caché mon CommandButton en validant la date et l'ai fait ré-apparaître en validation l'un des OB.
C'est un peut-être pas académique mais ça fonctionne.
Merci.

 

[Phil69970]

Bonjour à tous

@gillesda

Juste en passant :

C'est un peut-être pas académique mais ça fonctionne.

Je confirme cela parait pas du tout académique !!!

Mais faire une demande sans fichier on peut que faire des supputations et des réponses pas forcément en rapport avec la demande....

Avec un fichier on peut :
- Voir et comprendre ce que tu veux faire
- Voir et comprendre le code que tu as fait
- Et surtout corrigé le code et répondre correctement à ta question avec un code fonctionnel et pas "tarabiscoté"

Pour aller de Lyon à Paris tu peux prendre l’autoroute c'est direct et rapide ou bien passer par Perpignan, Bordeaux, Nantes, Lille et enfin Paris....
Dans les 2 cas tu iras bien à Paris mais pas tout à fait dans les mêmes délais ......
Pour se promener c'est pas mal car tu vois du pays mais pour un PC tu attends devant ton écran.

Bonne lecture

 

[gillesda]

Bien vu les remarques...je vais prendre l'autoroute sans tarder.

Bien cordialement.

 

[Katido]

Bonjour,

Une autre piste : on peut mettre l'Optionbutton en TriState avec la valeur de départ Null
Le bouton apparait alors en gris. Si l'utilisateur appuie dessus, il passe à vrai ou faux. S'il n'appuis jamais, il reste en gris avec la valeur Null

 

[Dranreb]

Bonsoir.
La façon correcte de rendre un CommandButton inutilisable c'est de mettre à False sa propriété Enabled.

 

[gillesda]

Bonjour,

Une autre piste : on peut mettre l'Optionbutton en TriState avec la valeur de départ Null
Le bouton apparait alors en gris. Si l'utilisateur appuie dessus, il passe à vrai ou faux. S'il n'appuis jamais, il reste en gris avec la valeur Null

Bonjour et merci Katido.
J'apprends un peu tous les jours.
Bien cordialement.

 

[gillesda]

Bonsoir.
La façon correcte de rendre un CommandButton inutilisable c'est de mettre à False sa propriété Enabled.

Merci Dranreb.
Comme je l'ai dit à Katido, j'apprends un peu tous les jours.
N'ayant toutes les bases, je tâtonne et parvient parfois au résultat ou contourne la difficulté.
Je vous remercie.
Bien cordialement.