XL 2016 Ajuster les lignes au Contenu

  • Initiateur de la discussion Initiateur de la discussion KTM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

KTM

XLDnaute Impliqué
Bonjour chers tous
Jai une plage de données "A4:K2000"
La largeur de chaque colonnes est déjà fixée.
La hauteur des lignes est fixé à 45,1.
Je voudrais à laide d'une macro VBA ajuster les lignes au contenu si le texte déborde sinon maintenir les 45,1.
Jai élaboré un code mais il fonctionne pas comme je le souhaite.
Besoin d'aide....
VB:
Sub DimLigne()
Dim col As Range
Dim x As Long
x = 45.1
Application.ScreenUpdating = False
With ActiveSheet
For Each col In .Range("A4:K" & .Range("B" & Rows.Count).End(xlUp).Row + 1)
col.EntireRow.AutoFit
If col.RowHeight < x Then col.RowHeight = x
Next
End With
End Sub
 
Bonjour,
Testez le code ci-dessous :
VB:
Sub DimLigne()
Const x = 45.1
Application.ScreenUpdating = False
    With ActiveSheet.Range("A4:K" & ActiveSheet.Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row + 1)
        .Rows.AutoFit
        .WrapText = True
       'Il n'est pas utile de parcourir chaque cellule
        For Each Line In .Rows
            If Line.RowHeight < x Then Line.RowHeight = x
        Next
    End With
End Sub
 
Bonjour,
Un essai avec cela
VB:
Sub HauteurLigneAuto()
    Dim I As Long
    Selection.Rows.AutoFit
    For I = 4 To 2000
        If Selection.Rows(I).RowHeight < 45,1 Then Selection.Rows(I).RowHeight = 45,1
    Next I
    Range("A1").Select
End Sub

Attention s'il y a un texte long dans une colonne après la colonne K, cela ajustera également la hauteur de ligne.
 
Bonjour,
Testez le code ci-dessous :
VB:
Sub DimLigne()
Const x = 45.1
Application.ScreenUpdating = False
    With ActiveSheet.Range("A4:K" & ActiveSheet.Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row + 1)
        .Rows.AutoFit
        .WrapText = True
       'Il n'est pas utile de parcourir chaque cellule
        For Each Line In .Rows
            If Line.RowHeight < x Then Line.RowHeight = x
        Next
    End With
End Sub
ok merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
568
Réponses
13
Affichages
830
Réponses
2
Affichages
665
Retour