Probleme avec une boucle macro
Résolu/Fermé
A voir également:
- Probleme avec une boucle macro
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
21 sept. 2008 à 23:17
21 sept. 2008 à 23:17
Salut,
Entre End If et Sheets("B").select essaies exit sub et else
End If
exit sub
else
Sheets("B").select
Bonne nuit à demain
Entre End If et Sheets("B").select essaies exit sub et else
End If
exit sub
else
Sheets("B").select
Bonne nuit à demain
