Autofite ou Rowheight
Résolu
pascalou83400
Messages postés
285
Date d'inscription
Statut
Membre
Dernière intervention
-
pascalou83400 Messages postés 285 Date d'inscription Statut Membre Dernière intervention -
pascalou83400 Messages postés 285 Date d'inscription Statut Membre Dernière intervention -
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
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
-
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
