Discussion :

[Martin31]

Bonjour à tous !

Je cherche en vain à faire un autofit restreint, je m'explique :

lorsqu'on fait un autofit sur une ligne, excel choisit d'agrandir ou de diminuer la ligne concernée en fonction de la cellule la plus grande.

Je souhaiterait faire un autofit de la ligne mais uniquement d'après la hauteur nécessaire pour une cellule en particulier, avez vous une idée "propre" pour faire cela ?

Merci d'avance pour toutes vos idées/suggestions !!

Cordialement

N.B.
J'ai bien une idée qui consiste à faire un copier coller de la cellule en question sur une nouvelle feuille, faire un autofit, récupérer la hauteur de ligne et la renvoyer dans la ligne d'origine mais non seulement ce n'est pas propre mais en plus c'est long quand il y a beaucoup de lignes !

[joe.levrai]

Bonjour,

une idée :

- compter le nombre de retours à la ligne de la cellule souhaitée
- y appliquer un coefficient de 15, qui est la taille standard d'une cellule ne contenant qu'une ligne de texte


dans cet exemple, c'est la cellule A1 qui donnera la taille à appliquer à la ligne

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub toto()
Dim feuille As Worksheet, ligne As Range
Set feuille = ThisWorkbook.Worksheets(1)
Set ligne = feuille.Rows(1)
 
ligne.RowHeight = (UBound(Split(Cells(1, 1), vbLf)) + 1) * 15
 
End Sub

[Valtrase]

Salut

ce n'est pas propre mais en plus c'est long quand il y a beaucoup de lignes !

Tu ne dois faire l'opération qu'une fois si je ne m'abuse, ensuite c'est la colonne qui prends la largeur de la cellule

[Martin31]

Salut

Tu ne dois faire l'opération qu'une fois si je ne m'abuse, ensuite c'est la colonne qui prends la largeur de la cellule

Disons que il faut copier toute la colonne concernée en conservant sa largeur et ensuite parcourir les cellules une à une en enregistrant la hauteur puis ensuite réappliquer celles ci une à une également.
Pas impossible bien sûr mais si il y a mieux et ben... c'est mieux

[Martin31]

Bonjour,

une idée :

- compter le nombre de retours à la ligne de la cellule souhaitée
- y appliquer un coefficient de 15, qui est la taille standard d'une cellule ne contenant qu'une ligne de texte


dans cet exemple, c'est la cellule A1 qui donnera la taille à appliquer à la ligne

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub toto()
Dim feuille As Worksheet, ligne As Range
Set feuille = ThisWorkbook.Worksheets(1)
Set ligne = feuille.Rows(1)
 
ligne.RowHeight = (UBound(Split(Cells(1, 1), vbLf)) + 1) * 15
 
End Sub

Excellent, effectivement en écriture avec une police de 12 ca marche très bien ! Merci beaucoup !
Cela me permet même de répondre à une interrogation que je me posais pour prendre la plus grande hauteur de deux cellules parmi toute la ligne.

Étonnant que ça n'existe pas comme argument de la fonction autofit, faut que j'écrive à Microsoft

Merci encore