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. Frenchie83
    Bonjour
    Ceci devrait aller 
    If Cells(h, totalCols).EntireRow.RowHeight< 170 Then
Cells(h, totalCols).EntireRow.RowHeight = 170

    Cdlt
    0
    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