Autofite ou Rowheight

Résolu
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   -
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
ok j'ai trouvé bonne journée à tous
Pascal
0