Magic_Doctor
XLDnaute Barbatruc
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.
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.