Sujet Précédent Sujet Suivant

Autofite

Résolu/Fermé
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - Modifié par pijaku le 28/10/2015 à 08:52
pascalou83400 Messages postés 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022 - 28 oct. 2015 à 08:31
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 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
28 oct. 2015 à 05:39
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 273 Date d'inscription dimanche 20 juillet 2014 Statut Membre Dernière intervention 24 janvier 2022
28 oct. 2015 à 08:31
Bonjour Frenchie83,

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