Checkboxes

[franpier]

Bonjour
Il y a plusieurs checkboxes (case à cocher) dans une boîte de dialogue.
Voici la macro
sub gerer_les_cases()
with dialogsheets("dialogue1")
.checkboxes("1").value = 1
.checkboxes("2").value = 1
.checkboxes("3").value = 1
end with
Dialogsheets("dialogue1").show
end sub
Je voudrais en une macro genre ( for each ) activer ou désactiver toutes les cases en même temps tel que pour les "textbox" & i dans USERFORM
Merci
Franpier

 

[laetitia90]

Re : Checkboxes

bonjour franpier
on parle bien de case a cocher & non active x

Sub es()
Dim i As CheckBox
For Each i In Feuil1.CheckBoxes: i.Value = xlOff: Next
End Sub

bien sur xlOn pour cocher

 

[franpier]

Re : Checkboxes

Bonjour laetitia90
Les checkboxes sont dans une boîte de dialogue au lieu d'être dans un classeur mais cela fonctionne aussi.
Alors j'ai remplacé feuil1 par boîte de dialogue et xlon pour activer et xloff pour desactiver.
Merci