Macro pour décocher +sieurs cases déjà cochées

Pellé · 3 Juillet 2005

Bonjour,

voilà, j'ai un petit soucis, enfin...plutôt 2 !

Tout d'abord, je souhaiterai savoir s'il est possible via une macro de décocher simultanément plusieurs cases cochées (crées par la barre d'outils - formulaire) en un seul clic.

D'autre part, j'ai créé un fichier avec plusieurs listes déroulantes sur la même feuille. Afin de pouvoir parer à d'éventuelles extentions, j'ai délibérément laissé des lignes vides dans chacune de mes listes. Aussi, je souhaiterai savoir s'il est possible par l'intermédiaire d'une macro (macro RAZ?????) d'afficher les lignes vides de toutes mes listes déroulantes dès lors qu'on clic sur le bouton macro (une sorte de mise à jour).

Merci d'avance aux personnes qui pourront m'éclairer

Morgane

MichelXld · 3 Juillet 2005

bonjour Morgane

pour les Checkbox de la barre formulaires , tu peux tester

Sub Test()
Dim i As Byte

For i = 1 To 5
ActiveSheet.Shapes('Check Box ' & i).OLEFormat.Object.Value = False
Next i
End Sub

pour les checkbox de la boite à outils controles ( objets à privilégier )

Sub Essai()
Dim i As Byte

For i = 1 To 5
Feuil1.OLEObjects('Checkbox' & i).Object.Value = False
Next i
End Sub

bonne journée
MichelXld

Message édité par: MichelXld, à: 03/07/2005 13:01

Macro pour décocher +sieurs cases déjà cochées

Pellé

Guest

MichelXld

XLDnaute Barbatruc

Discussions similaires