Attribuer la même macro à 50 boutons d'option

[Magic_Doctor]

Bonjour,

Je voudrais donc attribuer la même macro à 50 boutons différents en évitant le pensum de l'attribuer individuellement à chacun des boutons.
Je pense qu'il faut passer par un module de classe ou quelque chose dans le genre.

Voici l'instruction dans la macro, qui consiste à ajuster la largeur de certaines colonnes nommées :

[ColonneIndicesDonnéesDC].EntireColumn.AutoFit
[ColonneClassesDC2].EntireColumn.AutoFit
If [ColonneClassesDC1].ColumnWidth + [ColonneClassesDC2].ColumnWidth + [ColonneClassesDC3].ColumnWidth < 14 Then
[ColonneClassesDC1].ColumnWidth = (14 - [ColonneClassesDC2].ColumnWidth) / 2
[ColonneClassesDC3].ColumnWidth = (14 - [ColonneClassesDC2].ColumnWidth) / 2
Else
[ColonneClassesDC1].ColumnWidth = 1.5
[ColonneClassesDC3].ColumnWidth = 1.5
End If

Merci pour toute indication.

 

[vbacrumble]

Re : Attribuer la même macro à 50 boutons d'option

Bonjour


Effectivement un module de classe pourrait te faciliter les choses

Farfouille dans les archives du forum, il y a des exemples

Au hasard, cherche ceux réalisés par MichelXLD.

 

[BOISGONTIER]

Re : Attribuer la même macro à 50 boutons d'option

Bonjour,

Exemple de module de classe avec case à cocher:

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormCheckBoxClasse.xls

JB

 

[Magic_Doctor]

Re : Attribuer la même macro à 50 boutons d'option

Bonjour,

J'ai fini enfin par trouver dans la BD du forum un exemple (par Myrta) qui correspond à ce que je cherche.
Dans cet exemple sont utilisés des "Check Box", alors que dans ma feuille des "Option Button".
J'ai donc essayé d'adapter scrupuleusement (sans comprendre grand-chose...) dans ma feuille l'exemple avec les "Check Box", en templaçant bien entendu "CheckBox" par "OptionButton".
Rien à faire, ça ne marche pas !
Qui plus est "OptionButton" n'est pas reconnu dès l'ouverture du fichier...

Si l'un d'entre vous pouvait m'en donner l'explication.
Ci-joint l'exemple de Myrta et ma feuille.

Merci d'avance.