Autofite

Résolu
pascalou83400 -  
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

  1. pascalou83400 Auteur
    Bonjour Frenchie83,

    Un grand merci cela fonctionne à merveille.
    Si le 83 est ce que je pense on est voisin.
    Bonne journée.
    0
    1. Frenchie83
      Bonjour
      Ceci devrait aller 
      If Cells(h, totalCols).EntireRow.RowHeight< 170 Then
Cells(h, totalCols).EntireRow.RowHeight = 170

      Cdlt
      0