Checkboxes

franpier · 7 Février 2012

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 · 7 Février 2012

Re : Checkboxes

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

Code:

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

bien sur xlOn pour cocher

franpier · 8 Février 2012

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

Checkboxes

franpier

XLDnaute Nouveau

laetitia90

XLDnaute Barbatruc

franpier

XLDnaute Nouveau

Discussions similaires