De-sélectionner des boutons d'options

[fabien114]

[presque Résolu] De-sélectionner des boutons d'options

Bonjour,

J'aurais une petite question à porpos des boutons d'options.

Sur ma feuille Excel j'ai plusieurs boutons d'options dans différente "zone de groupe". Je cherche à ajouter un petit bouton qui me dé-sélectionne tous mes bouton d'options de la feuille en question.

Merci d'avance

Ci joint un exemple.

 

[Papou-net]

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.

 

[Guest]

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

Re, Fabien,

dans le fichier joint 'DecocherBoutonsOptions'

Pour l'appeler: ALT+F8

A+

 

[Papou-net]

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

Re, Fabien,

dans le fichier joint 'DecocherBoutonsOptions'

Pour l'appeler: ALT+F8

A+

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.

 

[Guest]

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

Hello Papou,

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

A+

 

[fabien114]

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 🙄🙄

 

[fabien114]

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.

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