|
|
|
|
Mise en forme d'un tableau croisé dynamique
Dernière réponse le 5 mai 2009 à 13:34:37 identifiant-comment, le 27 avr 2009 à 16:17:25Bien sûr :
|
:)
|
Bonsoir,
|
Bonjour Eriiiiic,
|
Bonsoir,
Private Sub Worksheet_Activate()
Columns("A:A").ColumnWidth = 20
Columns("B:C").ColumnWidth = 8
Columns("D:D").ColumnWidth = 6
Columns("E:G").ColumnWidth = 16
Columns("H:H").ColumnWidth = 4
End Sub
C'est un exemple, mets les colonnes ou plages de colonnes qui t'interessent et leur valeur. Tu peux le faire aussi par enregistrement de macro. Dans ce cas après l'enregistrement tu enlèves toutes les lignes où il n'y a pas Columns("x:x").ColumnWidth = , et tu remplaces Sub Macro1() par Private Sub Worksheet_Activate() A chaque rafraichissement il suffit d'activer une autre feuille et de revenir dessus pour que les largeurs se remettent. Ou bien on peut le faire avec l'evenement double-clic de la feuille. Si tu préfères ça met ce code à la place : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Columns("A:A").ColumnWidth = 20
....
....
cancel = true
End Sub
eric |
Salut
|
Salut xkristi !
|
Bonjour !
|
Ok, je crois que je cerne mieux le problème. C'est que je ne mets pas la même mise en forme pour toutes mes étiquettes ni pour toutes mes données.
|

