Hauteur ligne
pascalou83400
Messages postés
277
Date d'inscription
Statut
Membre
Dernière intervention
-
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Hauteur ligne
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- Formulaire en ligne de meta - Guide
4 réponses
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 :
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
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
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
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.
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.
