Problème avec OptionBoutonRésolu

Question

Bonjour,


Avec le peux de connaissance que j'ai en vba, je sais que dans le script:

Private Sub CommandButton1_Click()

If OptionButton1 False Or OptionButton2 False Then

MsgBox "VOULEZ-VOUS FAIRE UNE FACTURE OU SOUMISSION?"

Else


MultiPage1.Pages(1).Visible = True

MultiPage1.Value = 1

DTPicker1 = Date


End If

End Sub


Si je choisit un des 2 OptionButton, il devrait afficher:

MultiPage1.Pages(1).Visible = True

MultiPage1.Value = 1

DTPicker1 = Date


mais portant, il continu de m'afficher le msg ainsi que de ne pas faire apparaitre :

MultiPage1.Pages(1).Visible = True

MultiPage1.Value = 1

DTPicker1 = Date


Quelle serait l'explication selon vous ?

delaux · Accepted Answer

Salut,
A mon avis le OR de ton if est à remplacer par un AND.
En effet, dans ton code il suffit que l'un des 2 soit à faux pour que le message s'affiche.

bon dev
________________________
Thomas
N'oubliez pas "Réponse Acceptée" ...

Aide VBFrance, VBFrance t'aidera

cs_Exploreur · Answer

Salut,

c'est pas plutôt :

OptionButton.Value = False ??

A+
Exploreur

 Linux a un noyau, Windows un pépin

avyrex1926 · Answer

Merci [auteur/DELAUX/1195933.aspx delaux], tu as vue juste. Tous fonctionne.

cs_MPi · Answer

Salut,
Et comme Exploreur te suggère, il est préférable de mettre le .Value
Autrement tu risques d'avoir des surprises..., ce qui m'est déjà arrivé, mais je ne me rappelle plus si c'était VBA, VB6 ou autre (?)

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

avyrex1926 · Answer

Merci MPi, je vais suivre ton conseil.

Problème avec OptionBouton

5 réponses

Votre réponse

Discussions similaires