Probleme avec script vba excel

[matrix]

Bonjour,

Je rencontre un léger problème avec un script:

Private Sub CommandButton1_Click()
If OptionButton1 Or OptionButton2 = vbNullString Then
MsgBox "VOULEZ-VOUS FAIRE UNE FACTURE OU SOUMISSION?"
Else


Me.MultiPage1.Pages(1).Visible = True
MultiPage1.Value = 1
DTPicker1 = Date

End If
End Sub


Je voudrais que si je click sur le CommandButton1 mais qu'aucun des 2 OptionButton n'est coché, qu'il m'affiche le message MsgBox "VOULEZ-VOUS FAIRE UNE FACTURE OU SOUMISSION?". et qu'il n'affiche pas Me.MultiPage1.Pages(1).Visible = True, tant qu'il n'a pas coché un des 2 OptionButton.

Merci pour vôtre aide 🙂

 

[Staple1600]

Re : Probleme avec script vba excel

Bonjour

If OptionButton1 = vbNullString Or OptionButton2 = vbNullString Then

 

[matrix]

Re : Probleme avec script vba excel

Merci pour ton aide.

même en ayant changé pour:

Private Sub CommandButton1_Click()
If OptionButton1 = vbNullString Or OptionButton2 = vbNullString Then
MsgBox "VOULEZ-VOUS FAIRE UNE FACTURE OU SOUMISSION?"
Else

Me.MultiPage1.Pages(1).Visible = True
MultiPage1.Value = 1
DTPicker1 = Date

End If
End Sub


il affiche Me.MultiPage1.Pages(1).Visible = True sans avoir coché un des 2 OptionButton. Tu vois pourquoi?

 

[Staple1600]

Re : Probleme avec script vba excel

Re

Et comme ça

If OptionButton1 = False Or OptionButton2 = False Then

 

[matrix]

Re : Probleme avec script vba excel

Super merci beaucoup pour ton aide.
Ça fonctionne très bien! 🙂

 

[matrix]

Re : Probleme avec script vba excel

Désolé,mais là, je ne comprend vraiment pas.

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 toi ?

 

[Staple1600]

Re : Probleme avec script vba excel

Re


If OptionButton1 = False Or OptionButton2 = False Then


veux dire qu si un des deux n'est pas coché alors Msgbox

 

[matrix]

Re : Probleme avec script vba excel

J'ai remplacé "Or" par "And" dans If OptionButton1 = False Or OptionButton2 = False Then

et maintenant, ça fonctionne.

Merci 🙂