Autofite ou Rowheight

Résolu
pascalou83400 Messages postés 277 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 18 février 2025 - 24 nov. 2015 à 20:45
pascalou83400 Messages postés 277 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 18 février 2025 - 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 277 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 18 février 2025
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
0
pascalou83400 Messages postés 277 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 18 février 2025
25 nov. 2015 à 11:18
ok j'ai trouvé bonne journée à tous
Pascal
0