Hauteur ligne

Fermé
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 16 sept. 2014 à 14:32
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 16 sept. 2014 à 16:33
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.


4 réponses

Normad Messages postés 112 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 10 juin 2015 37
Modifié par Normad le 16/09/2014 à 15:11
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
1
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
16 sept. 2014 à 15:33
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
0
Normad Messages postés 112 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 10 juin 2015 37
16 sept. 2014 à 16:14
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.
0
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
16 sept. 2014 à 16:33
ok merci je vais essayer d'adapter l'exemple.

Bonne journée.
0