De-sélectionner des boutons d'options

Papou-net

XLDnaute Barbatruc

• 25 Novembre 2009

• #2

Re : De-sélectionner des boutons d'options

Bonjour fabien114,

Vois si l'exemple te convient : si oui, tu peux masquer les colonnes I à N que j'ai laissées apparentes pour que tu puisses juger de la démarche.
Chaque groupe de bouton est rattaché à une cellule de I2 à N2, et pour mettre toutes les options à blanc, il suffit d'effacer la plage de cellules I2:N2 (ce que fait le bouton RAZ).

Espérant avoir répondu.

Cordialement.

 

Pièces jointes

• Fabien114.xls

  43 KB · Affichages: 43

Vote positif 0 Vote négatif

G

Guest

Guest

• 25 Novembre 2009

• #3

Re : De-sélectionner des boutons d'options

Re, Fabien,

dans le fichier joint 'DecocherBoutonsOptions'

Pour l'appeler: ALT+F8

A+

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 25 Novembre 2009

• #4

Re : De-sélectionner des boutons d'options

Hasco à dit:

Re, Fabien,

dans le fichier joint 'DecocherBoutonsOptions'

Pour l'appeler: ALT+F8

A+

Cliquez pour agrandir...

Bonjour Hasco, fabien114

Propre et nette ta méthode, Hasco !

Mais sans vouloir vendre la mienne à tout prix, j'ai oublié de préciser qu'elle permet de récupérer les positions des boutons cochés, ce qui peut ensuite aider à calculer facilement le montant du devis.

Elle est pas belle la vie ?

Cordialement.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 25 Novembre 2009

• #5

Re : De-sélectionner des boutons d'options

Hello Papou,

Je préfère ne pas devancer les demandes......😉

A+

 

Vote positif 0 Vote négatif

F

fabien114

Guest

• 26 Novembre 2009

• #6

Re : De-sélectionner des boutons d'options

Bonjour,

Merci Papou-net, ta méthode est intéressante pour récupérer les choix. 🙂

Merci Hasco, c'est nickel comme cela. Je vais utiliser la méthode qui est plus simple et moins lourde à mettre en place (j'ai une 30e de feuille comme cela) car pour l'instant je n'ai pas besoin de récupérer les cases cochés. 🙂

Merci à vous deux 🙄🙄

 

Vote positif 0 Vote négatif

F

fabien114

Guest

• 8 Décembre 2009

• #7

Re : De-sélectionner des boutons d'options

Bonjour,

Idem "pour les case à cocher".

J'ai essayer de remplacer "option" par "checkbox" mais ça ne fonctionne pas.

Code:

Sub DecocherBoutonsOptions()
    Dim shp As Object
    For Each shp In ActiveSheet.Shapes
        If shp.Name Like "Option*" Then shp.DrawingObject.Value = xlOff
    Next
End Sub

 

Vote positif 0 Vote négatif