Discussion :

[Tchupacabra]

Bonjour,

j'ai une feuille Excel qui se remplit dynamiquement (liaison base de donnée).
A la fin du traitement, j'ai 6 colonnes que j'aimerais qu'elles remplissent la totalité de la page...
J'ai commencé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Columns("A:A").Columns.AutoFit
Columns("B:B").Columns.AutoFit
Columns("C:C").Columns.AutoFit
Columns("D:D").Columns.AutoFit
Columns("E:E").Columns.AutoFit
Columns("F:F").Columns.AutoFit

mais cela ne règle pas le problème d'élargir proportionnellement les colonnes pour tout remplir...

Quelqu'un sait-il faire cela ?

Merci d'avance !
@ bientôt

[LeForestier]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1°) Columns("A:F").AutoFit

serait suffisant.
Quand à adapter la largeur de la feuille..
tu peu jouer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        ActiveSheet.PageSetup.CenterVertically = True
        ActiveSheet.CenterHorizontally = True
        ActiveSheet.PageSetup.Zoom = 120

120 pour l'exemple
A+

[Tchupacabra]

Salut,

merci pour ta réponse...
cependant, ce n'est pas exactement ce que je recherchais.
Je vais donc essayer d'être un peu plus précis.
Dans mon cas, lorsque j'applique Columns("A:F").AutoFit, des cellules ont encore du contenu coupé par un retour à la ligne (ex: une adresse email).
Par contre, j'ai remarqué que le double clique sur le bord de l'entête d'une colonne fonctionné (le contenu des cellules n'est pas renvoyé à la ligne).

En fait, plutôt qu'un zoom, j'aurais aimé que seul la taille de la cellule change (sans changer la taille de la police)