Comment puis-je obtenir une cellule dans Excel pour ajuster automatiquement sa hauteur pour s'adapter au contenu du texte enveloppé? [dupliquer]

23

J'ai une cellule avec un contenu de texte enveloppé dans Excel et je souhaite formater la cellule de sorte que sa hauteur s'ajuste pour s'adapter au contenu qui peut s'étendre sur plusieurs lignes. Comment puis-je obtenir ce comportement?

microsoft-excel microsoft-excel-2007 Manga Lee
la source
Je ne suis pas sûr d'Excel 2007, mais j'utilise Excel 2003 et là qui va automatiquement, lorsque j'entre des données multilignes dans une cellule, la hauteur de la ligne est fixée lorsque j'appuie sur Entrée.
fretje

Réponses:

26

Depuis http://support.microsoft.com/kb/149663

Pour ajuster la hauteur de la ligne pour tenir tout le texte dans une cellule, procédez comme suit:

Sélectionnez la ligne.

Dans Microsoft Office Excel 2003 et dans les versions antérieures d'Excel, pointez sur Ligne dans le menu Format, puis cliquez sur Ajustement automatique.

Dans Microsoft Office Excel 2007, cliquez sur l'onglet Accueil, cliquez sur Format dans le groupe Cellules et puis cliquez sur Ajustement automatique de la hauteur de ligne.

Fonctionne également lorsque toutes les lignes sont sélectionnées

vaichidrewar
la source
11

Essayer

Sélectionnez la colonne -> colonne clic droit -> Format de cellule -> onglet Alignement -> Retour à la ligne du texte

hyperslug
la source
2
La cellule a déjà cette mise en forme et je veux que la cellule ajuste également sa hauteur. Je souhaite que la hauteur de la ligne de la cellule s'ajuste de sorte que tout le contenu enveloppé de la cellule soit visible.
Manga Lee
3
Je ne sais pas si vous pouvez y arriver à mesure que le contenu de la cellule change, mais une fois que vous avez terminé, double-cliquez sur la bordure entre le numéro de ligne et celle ci-dessous, la taille automatiquement pour s'adapter au contenu.
Col
+1: Ce n'est pas une mauvaise réponse. Si vous Wrap Textdésactivez puis réactivez, Excel redimensionnera la hauteur de la ligne pour qu'elle corresponde à la ligne la plus haute. Ne convient pas si la hauteur des lignes change dynamiquement mais si vous avez affaire à du texte statique, cela devrait être OK.
Li-aung Yip
Cela a fonctionné pour moi sur Excel 2019.
猫 IT
2

S'il ne le fait pas automatiquement, placez votre curseur sur la petite ligne entre les numéros de ligne (ex: entre 1 et 2) et double-cliquez, cela redimensionnera la ligne (directement au-dessus de la petite ligne, dans l'exemple: 1) pour que tout soit visible (d'un aspect vertical).

Lance Roberts
la source
C'est quelque chose que vous pouvez faire lorsque vous avez peu de choses à faire, mais plus vous aurez à faire face à cela, ce qui signifie une perte de temps et d'énergie, brisant la concentration et l'élan à cause de ces tâches. La solution proposée par Bertieb fonctionne comme un charme sur Excel 2019.
猫 IT
0

Connaissez-vous la macro? Mettez le code suivant dans

Application.ActiveCell.WrapText = True

dans votre sous-programme Worksheet_SelectionChange.

Toc
la source
0

Une solution VBA consiste à utiliser les éléments suivants: 

 Call Application.ActiveCell.AutoFit
richardtallent
la source
0

La seule façon de le faire fonctionner comme prévu est de mettre en surbrillance la feuille entière avec CTRL-A, de cliquer sur le bouton "Wrap Text" dans la barre d'outils, puis de le sélectionner à nouveau. Aucun autre paramètre ne change, mais chaque ligne a désormais la hauteur «appropriée» pour son contenu.

simpleuser
la source
0

J'ai créé le code VB suivant pour redimensionner la ligne d'en-tête lorsqu'une cellule dans une plage (B2: B1500) car les valeurs de date supérieures au 28/12/2014 entraîneraient l'en-tête pour afficher un avertissement indiquant que ces dates, dans une feuille de temps, entreraient dans Semaine1 de 2015:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub
Mickg01
la source