Autofite

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   -
Bonjour à tous,

Petit probleme avec ce code, je lui demande de mettre en autofite, mais de garder une hauteur minimum de 170.
Mais voila il me met tout en 170 ?
Donc j'ai fait une erreur, mais je nesais pas ou ?

Merci pour votre aide. 

' Met les ligne en automatique mais avec un minimum de 170 de hauteur
        For h = 18 To totalRows
             Cells(h, totalCols).EntireRow.WrapText = True
            Cells(h, totalCols).EntireRow.AutoFit
            
            If Cells(h, totalCols).EntireRow.AutoFit < 170 Then
                Cells(h, totalCols).EntireRow.RowHeight = 170
            End If
         Next h




2 réponses

Réponse 1 / 2
Frenchie83 Messages postés 2254 Statut Membre 339
 
Bonjour
Ceci devrait aller 
If Cells(h, totalCols).EntireRow.RowHeight< 170 Then
Cells(h, totalCols).EntireRow.RowHeight = 170

Cdlt
0
Réponse 2 / 2
pascalou83400 Messages postés 285 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Frenchie83,

Un grand merci cela fonctionne à merveille.
Si le 83 est ce que je pense on est voisin.
Bonne journée.
0