J'ai une cellule avec du contenu de texte enveloppé dans Excel et je veux formater la cellule de manière à ce que sa hauteur s'adapte au contenu qui peut s'étendre sur plusieurs lignes. Comment puis-je obtenir ce comportement ?
Depuis http://support.microsoft.com/kb/149663
Pour ajuster la hauteur de la ligne afin de faire tenir tout le texte dans une cellule, suivez les étapes suivantes :
Sélectionnez la ligne.
Dans Microsoft Office Excel 2003 et dans les versions antérieures d'Excel, pointez sur Row dans le menu Format, puis cliquez sur AutoFit.
Dans Microsoft Office Excel 2007, cliquez sur l'onglet Accueil, cliquez sur Format dans le groupe Cellules, puis cliquez sur Ajustement automatique de la hauteur de la ligne.
Fonctionne également lorsque toutes les lignes sont sélectionnées
Notez que l'autofit ne fonctionne pas sur les cellules fusionnées. Vous devez le faire manuellement.
Voir cette réponse de Microsoft : Vous ne pouvez pas utiliser la fonction AutoFit pour les lignes ou les colonnes qui contiennent des cellules fusionnées dans Excel
Si cela ne se 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) de sorte que tout soit visible (d'un aspect vertical).
La seule façon de le faire fonctionner comme prévu est de surligner toute la feuille avec CTRL-A, de décliquer sur le bouton “Wrap Text” dans la barre d'outils, puis de la sélectionner à nouveau. Aucun autre paramètre ne change, mais chaque ligne est maintenant à la hauteur “appropriée” pour son contenu.
Une solution VBA consiste à utiliser les éléments suivants :
Call Application.ActiveCell.AutoFit
J'ai créé le code VB suivant pour redimensionner la ligne d'en-tête lorsqu'une cellule se trouve dans une plage (B2:B1500), car les valeurs de date supérieures au 28/12/2014 entraîneraient l'affichage dans l'en-tête d'un avertissement indiquant que ces dates, dans une feuille de temps, passeraient à la semaine 1 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