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

[Pellé]

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]

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