Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probleme avec script vba excel

  • Initiateur de la discussion Initiateur de la discussion matrix
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

matrix

XLDnaute Occasionnel
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 🙂
 
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?
 
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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
430
K
Réponses
0
Affichages
676
kheiro31
K
S
Réponses
0
Affichages
973
shelbie
S
S
Réponses
0
Affichages
729
S
Réponses
0
Affichages
703
J
Réponses
6
Affichages
2 K
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…