Probleme avec une boucle macro
Résolu
Manon
-
Manon -
Manon -
Bonsoir à tous,
Voici un code que je n'arrive pas à faire marcher :
If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False then
MsgBox "Vous devez valider au moins une case !", vbExclamation, "ERREUR"
controls("checkbox1").SetFocus
End If
Sheets("B").select
Userform2.Show
Lorsqu'aucune case n'est sélectionnée, le message apparait bien, mais quand je clique 'ok', il continu et affiche le 2ième userform. Alors que normalement il devrait revenir (rester) sur le userform !
Je doit pas être bien loiin.
Merci pour votre aide.
Manon
Voici un code que je n'arrive pas à faire marcher :
If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False then
MsgBox "Vous devez valider au moins une case !", vbExclamation, "ERREUR"
controls("checkbox1").SetFocus
End If
Sheets("B").select
Userform2.Show
Lorsqu'aucune case n'est sélectionnée, le message apparait bien, mais quand je clique 'ok', il continu et affiche le 2ième userform. Alors que normalement il devrait revenir (rester) sur le userform !
Je doit pas être bien loiin.
Merci pour votre aide.
Manon
A voir également:
- Probleme avec une boucle macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
5 réponses
Cela ne marche pas. Il me dit "else sans if". Mais merci quand même d'avoir tenté.
Quelqu'un d'autre à une solution ?
Je pense que cela doit venir de la ligne "control(checkbox).set focus".
Merci de m'aider.
Manon
Quelqu'un d'autre à une solution ?
Je pense que cela doit venir de la ligne "control(checkbox).set focus".
Merci de m'aider.
Manon
Au lieu de mettre un if pour tant controle de saisie met plutot un do while ... loop
do while machin= faux and truc=false
MsgBox "Vous devez valider au moins une case !", vbExclamation, "ERREUR"
controls("checkbox1").SetFocus
loop
do while machin= faux and truc=false
MsgBox "Vous devez valider au moins une case !", vbExclamation, "ERREUR"
controls("checkbox1").SetFocus
loop
Je suis débutante et je n'ai jamais essayé "do while".... Donc pourrais-tu me donner un exemple concret ?
Je voudrait simplement que le 2ième userform ne s'affiche pas, lorsque je clique sur "OK".
Merci.
Je voudrait simplement que le 2ième userform ne s'affiche pas, lorsque je clique sur "OK".
Merci.
Voici la bonne réponse,
If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False then
MsgBox "Vous devez valider au moins une case !", vbExclamation, "ERREUR"
Exit sub
End If
Sheets("B").select
Userform2.Show
Pour qui cela interresse.....
@+ et bonne soiré à tous
If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False then
MsgBox "Vous devez valider au moins une case !", vbExclamation, "ERREUR"
Exit sub
End If
Sheets("B").select
Userform2.Show
Pour qui cela interresse.....
@+ et bonne soiré à tous
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question