Comment faire en sorte que la fonction "Ajustement automatique de la hauteur de la ligne" d'Excel s'adapte réellement à la hauteur de la ligne ?

Il existe parfois la méthode nucléaire pour résoudre les problèmes d'autosatisfaction.

Ce que je fais, c'est copier le texte de chaque cellule et coller les données dans le Bloc-notes, puis supprimer la ligne. Ensuite, je copie et insère immédiatement une ligne qui est vide mais qui a le même formatage et le même comportement que la ligne qui a été supprimée. (Vous devez copier et insérer la rangée entière en utilisant les boutons de rangée gauche).

Une fois que c'est fait, vous devez revenir en arrière et insérer le texte du bloc-notes dans chaque cellule. (Utilisez F2 ou activer autrement le mode édition de chaque cellule avant d'insérer du texte). C'est une tâche pénible, et c'est donc une solution de dernier recours, surtout pour les feuilles de calcul de taille gigantesque.

C'est parfois la seule solution, car le problème réside dans le programme lui-même.

Je ne l'ai pas testé en profondeur, mais cela fonctionne pour moi. Essentiellement, il ajustera automatiquement toutes les feuilles, puis reviendra en arrière et fixera la largeur de la colonne à la largeur originale, à moins qu'elle n'ait été étendue par l'ajustement automatique. Je n'avais que 10 colonnes et jamais plus de 1000 lignes, donc j'ai ajusté le code selon les besoins.

Sub ResizeCells()
    Dim sheetCounter As Integer
    Dim rowCounter As Integer
    Dim colCounter As Integer
    Dim totalWidth As Double
    Dim oldColWidths(1 To 10) As Double

    For sheetCounter = 1 To ThisWorkbook.Sheets.Count
        ActiveWorkbook.Worksheets(sheetCounter).Select
        totalWidth = 0

        ' Extend the columns out to 200
        For colCounter = 1 To 10
            oldColWidths(colCounter) = Cells(1, colCounter).ColumnWidth
            totalWidth = totalWidth + oldColWidths(colCounter)
            Cells(1, colCounter).ColumnWidth = 200
        Next

        For rowCounter = 4 To 1000
            If Cells(rowCounter, 1).Value <> "" Or Cells(rowCounter, 2).Value <> "" Or Cells(rowCounter, 3).Value <> "" Then
                Rows(rowCounter & ":" & rowCounter).EntireRow.AutoFit
            End If
        Next

        ' do autofit
        For colCounter = 1 To 10
            Cells(1, colCounter).EntireColumn.AutoFit
        Next

        ' reset to original values if current width is less than the original width.
        For colCounter = 1 To 10
            If Cells(1, colCounter).ColumnWidth < oldColWidths(colCounter) + 0.25 Then
                Cells(1, colCounter).ColumnWidth = oldColWidths(colCounter)
            End If
        Next
    Next
End Sub

Pour paraphraser Dunc :

J'ai résolu un problème similaire en.. :

1. Sélection de l'ensemble de la feuille de calcul.

2. Double-cliquez sur la ligne dans la marge entre les deux rangées.

Pour répondre spécifiquement à votre problème de ligne supplémentaire, je suppose qu'il y a un caractère à cet endroit. Il ne s'agit peut-être pas d'un caractère visible, mais il y a bien quelque chose.

Je n'ai pas pris le temps de lire les autres commentaires. Pourquoi la ligne au bas du premier bloc et pas dans le second ?

C'est parce que le texte se termine trop près du bord droit de la cellule. Si vous ajustez la colonne pour qu'elle soit un peu plus large et que vous double-cliquez entre les rangées, le texte sera redimensionné en conséquence.

Moi aussi, j'ai enduré ce minuscule mais extrêmement distrayant bug pendant de nombreuses années. Je n'ai pas d'autre solution que de jouer avec la largeur de la rangée pour la cellule contenant le plus de texte, et finalement le programme cède et affiche le texte correctement.