Autofite ou Rowheight

Résolu/Fermé

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 24 nov. 2015 à 20:45
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 25 nov. 2015 à 11:18

Bonsoir à tous,

J'ai un problème avec ce code, je veux que mes lignes se mettent à la hauteur suivant le texte et que si ma ligne est inférieure à 170 alors je veux 170 minimum.
Mais mon code me fait des hauteurs aléatoires et je ne comprends pas pourquoi.

' Met les ligne en automatique mais avec un minimum de 170 de hauteur
With Worksheets(I)
For h = 18 To totalRows
Cells(h, totalCols).EntireRow.WrapText = True
Cells(h, totalCols).EntireRow.AutoFit = True

If Cells(h, totalCols).EntireRow.RowHeight < 190 Then
Cells(h, totalCols).EntireRow.RowHeight = 190

End If
Next h
End With

Merci pour votre aide.

Pascal

1 réponse

Réponse 1 / 1

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
24 nov. 2015 à 21:17

petite erreur de code c'est celui la :

' Met les ligne en automatique mais avec un minimum de 170 de hauteur
With Worksheets(I)
For h = 18 To totalRows
Cells(h, totalCols).EntireRow.WrapText = True
Cells(h, totalCols).EntireRow.AutoFit

If Cells(h, totalCols).EntireRow.RowHeight < 170 Then
Cells(h, totalCols).EntireRow.RowHeight = 170

End If
Next h
End With

Pascal

pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
25 nov. 2015 à 11:18

ok j'ai trouvé bonne journée à tous
Pascal

Discussions similaires

Macro problème Row Height dans un tableau

Discussions similaires

Newsletters