hauteur ligne Fermé

Question

Bonjour, 

Je cherche un code qui me permettrai de mettre automatiquement la hauteur de ligne adapté au texte, mais avec une hauteur minimum de 130.

J'ai adapté ce code, mais ca ne marche pas.

Range(Cells(18, 1), Cells(totalRows, totalCols)).Select
            Selection.WrapText = True
            Selection.HorizontalAlignment = xlCenter
            Selection.VerticalAlignment = xlCenter
            Selection.EntireRow.AutoFit
             If S Selection.EntireRow.AutoFit  < 130 Then Selection.EntireRow.RowHeight = 130

Merci pour votre aide.


Configuration: Windows 7 / Chrome 37.0.2062.120

Normad · Answer

Il faudrait le code en entier, car là on ne sait pas ce que représente les variables totalRows et totalCols... ensuite si possible c'est mieux de le faire sans sélection (Select) d'autant qu'il faudra faire le test de hauteur ligne par ligne.
En clair il faut faire une boucle qui va de la première ligne a traiter à la dernière. 

Exemple de code pour les lignes 1 à 10 :

       For i = 1 To 10        Rows(i).AutoFit        If Rows(i).RowHeight < 130 Then Rows(i).RowHeight = 130    Next i

pascalou83400 · Answer

Bonjour Normad,

J'ai un informaticien qui m'a écrit une boucle et je rentre mes codes, enfin j'essaie.

En plus je cherche la suppression des lignes en dessous du tableau , mais ca ne marche pas, je me retrouve à un moment avec ma mise en page en dessus de la dernière lignes ou avec des lignes fantômes.

Sinon ci-joint le code.

https://www.cjoint.com/?3IqpJ5GSgPb

Merci pour votre aide.

Pascal

Normad · Answer

Une partie du code se trouve dans un autre fichier et à voir comme ça, pas mal de chose alourdissent le code (copy et paste, select...).
Il nécessite plus qu'une rapide et simple réponse sur un forum d'entraide si vous ne pouvez pas vous-même adapter et intégrer les réponses comme celle de mon denier message.

pascalou83400 · Answer

ok merci je vais essayer d'adapter l'exemple.

Bonne journée.

Hauteur ligne

4 réponses

Discussions similaires