Simplifier macro sur optionbutton : IF ...then...

[carlos]

bonjour

J'aimerais savoir pourquoi ca ne marche pas :

If OptionButtonAleatoire = False _
And OptionButtonMontDesc = False _
And OptionButtonGComposé = False _
And OptionButtonSuiteRésultats = False _
Then Me.CheckBoxRgperEleve = False And Me.CheckBoxDistribuerTabPoule = False

et que je suis obligé d'ecrire 2 fois les memes conditions soit

If OptionButtonAleatoire = False _
And OptionButtonMontDesc = False _
And OptionButtonGComposé = False _
And OptionButtonSuiteRésultats = False _
Then Me.CheckBoxRgperEleve = False

If OptionButtonAleatoire = False _
And OptionButtonMontDesc = False _
And OptionButtonGComposé = False _
And OptionButtonSuiteRésultats = False _
Then Me.CheckBoxDistribuerTabPoule = False


Merci

 

[Hervé]

bonjour

J'ai pas de solution à ton souci.

Par contre j'aurais bien aimé savoir si ce fil étais clos :

Lien supprimé


salut

 

[PascalXLD]

Re:Simplifier macro sur optionbutton : IF ...then.

Bonjour

essaies peut-être ceci

If OptionButtonAleatoire = False _
And OptionButtonMontDesc = False _
And OptionButtonGComposé = False _
And OptionButtonSuiteRésultats = False _
Then
Me.CheckBoxRgperEleve = False
Me.CheckBoxDistribuerTabPoule = False
end if

Bien sûr après avoir répondu à Hervé 😉

 

[Denis]

Bonjour Carlos, Hervé, Pascal76 et le Forum
Carlos, il faut savoir que les optionButton, s'excluent mutuellement
La seule solution que je connaise et de les déclarer en groupe dans le Userform_initialize comme ceci
OptionButton1.GroupName = OB1
OptionButton2.GroupName= OB2
etc
ainsi il seront indépendant
à essayer également après avoir répondu à Hervé (Lol)
Bon courage et à +
Denis

 

[carlos]

Bonjour Hervé,Pascal et Denis

J'ai répondu à Hervé qui m'avait concocté une réponse à la hauteur de son niveau .
Merci

Denis, je pense comprendre ce que tu me propose et vais le tester . Merci

Pascal , ca marche impeccable ton code .
Merci

Je me demande si je ne devrais pas creer une boucle sur les remerciements tellement vous me faites tous avancer .

For Expert = 1 to 100000000000000

if optionButtonexpert = true then msgbox 'Merci aux experts' & Experts

Next Expert

Merci