Ajuster automatiquement la hauteur des lignes dans une page
2 réponses
Christophe 25
Bonjour à tous,
Je cherche une macro qui me permettrait d'adapter automatiquement la hauteur
de mes lignes, dans une feuille de calcul, de manière à faire tenir toutes
mes lignes sur une page.
Le nombre de ligne variant de 10 à 38 environ, il s'agit d'en augmenter la
hauteur, voire de la baisser selon les cas...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Christophe,
Tu adaptes le nom de la feuille et de la plage de cellules.
'-------------------------------- Sub test() with worksheets("Feuil1") .Range("A1:A55").EntireRow.AutoFit end with End Sub '--------------------------------
"Christophe 25" a écrit dans le message de groupe de discussion : Bonjour à tous,
Je cherche une macro qui me permettrait d'adapter automatiquement la hauteur de mes lignes, dans une feuille de calcul, de manière à faire tenir toutes mes lignes sur une page. Le nombre de ligne variant de 10 à 38 environ, il s'agit d'en augmenter la hauteur, voire de la baisser selon les cas...
Merci d'avance,
Christophe
Bonjour Christophe,
Tu adaptes le nom de la feuille et de la plage de cellules.
'--------------------------------
Sub test()
with worksheets("Feuil1")
.Range("A1:A55").EntireRow.AutoFit
end with
End Sub
'--------------------------------
"Christophe 25" <Christophe25@discussions.microsoft.com> a écrit dans le message de groupe de discussion : 8A5E4536-075C-4BE4-933C-849E027DEF11@microsoft.com...
Bonjour à tous,
Je cherche une macro qui me permettrait d'adapter automatiquement la hauteur
de mes lignes, dans une feuille de calcul, de manière à faire tenir toutes
mes lignes sur une page.
Le nombre de ligne variant de 10 à 38 environ, il s'agit d'en augmenter la
hauteur, voire de la baisser selon les cas...
Tu adaptes le nom de la feuille et de la plage de cellules.
'-------------------------------- Sub test() with worksheets("Feuil1") .Range("A1:A55").EntireRow.AutoFit end with End Sub '--------------------------------
"Christophe 25" a écrit dans le message de groupe de discussion : Bonjour à tous,
Je cherche une macro qui me permettrait d'adapter automatiquement la hauteur de mes lignes, dans une feuille de calcul, de manière à faire tenir toutes mes lignes sur une page. Le nombre de ligne variant de 10 à 38 environ, il s'agit d'en augmenter la hauteur, voire de la baisser selon les cas...
Merci d'avance,
Christophe
Christophe 25
Bonjour,
Merci pour le code, mais ma demande n'est sans doute pas assez précise, je ne souhaite pas adapter la hauteur des lignes à leur contenu, mais répartir la hauteur des lignes afin qu'elles occupent la totalité de l'espace disponible sur une page, déduction faite des marges bien sûr, sachant que cette hauteur de page varie notamment en fonction de l'orientation de la page (portrait/paysage)...
Christophe
"MichDenis" a écrit :
Bonjour Christophe,
Tu adaptes le nom de la feuille et de la plage de cellules.
'-------------------------------- Sub test() with worksheets("Feuil1") .Range("A1:A55").EntireRow.AutoFit end with End Sub '--------------------------------
"Christophe 25" a écrit dans le message de groupe de discussion : Bonjour à tous,
Je cherche une macro qui me permettrait d'adapter automatiquement la hauteur de mes lignes, dans une feuille de calcul, de manière à faire tenir toutes mes lignes sur une page. Le nombre de ligne variant de 10 à 38 environ, il s'agit d'en augmenter la hauteur, voire de la baisser selon les cas...
Merci d'avance,
Christophe
Bonjour,
Merci pour le code, mais ma demande n'est sans doute pas assez précise, je
ne souhaite pas adapter la hauteur des lignes à leur contenu, mais répartir
la hauteur des lignes afin qu'elles occupent la totalité de l'espace
disponible sur une page, déduction faite des marges bien sûr, sachant que
cette hauteur de page varie notamment en fonction de l'orientation de la page
(portrait/paysage)...
Christophe
"MichDenis" a écrit :
Bonjour Christophe,
Tu adaptes le nom de la feuille et de la plage de cellules.
'--------------------------------
Sub test()
with worksheets("Feuil1")
.Range("A1:A55").EntireRow.AutoFit
end with
End Sub
'--------------------------------
"Christophe 25" <Christophe25@discussions.microsoft.com> a écrit dans le message de groupe de discussion : 8A5E4536-075C-4BE4-933C-849E027DEF11@microsoft.com...
Bonjour à tous,
Je cherche une macro qui me permettrait d'adapter automatiquement la hauteur
de mes lignes, dans une feuille de calcul, de manière à faire tenir toutes
mes lignes sur une page.
Le nombre de ligne variant de 10 à 38 environ, il s'agit d'en augmenter la
hauteur, voire de la baisser selon les cas...
Merci pour le code, mais ma demande n'est sans doute pas assez précise, je ne souhaite pas adapter la hauteur des lignes à leur contenu, mais répartir la hauteur des lignes afin qu'elles occupent la totalité de l'espace disponible sur une page, déduction faite des marges bien sûr, sachant que cette hauteur de page varie notamment en fonction de l'orientation de la page (portrait/paysage)...
Christophe
"MichDenis" a écrit :
Bonjour Christophe,
Tu adaptes le nom de la feuille et de la plage de cellules.
'-------------------------------- Sub test() with worksheets("Feuil1") .Range("A1:A55").EntireRow.AutoFit end with End Sub '--------------------------------
"Christophe 25" a écrit dans le message de groupe de discussion : Bonjour à tous,
Je cherche une macro qui me permettrait d'adapter automatiquement la hauteur de mes lignes, dans une feuille de calcul, de manière à faire tenir toutes mes lignes sur une page. Le nombre de ligne variant de 10 à 38 environ, il s'agit d'en augmenter la hauteur, voire de la baisser selon les cas...