Comment ajuster automatiquement la hauteur des lignes fusionnées dans Excel ?
Dans Excel, ajuster rapidement et précisément la hauteur des lignes est essentiel pour présenter clairement vos données. En général, vous pouvez utiliser la fonction Ajuster automatiquement la hauteur des lignes afin de redimensionner automatiquement la hauteur d’une ligne en fonction du contenu de ses cellules. Toutefois, lorsque vous travaillez avec des cellules fusionnées, vous remarquerez peut-être que cette fonction ne réagit pas comme prévu. En effet, Excel ignore complètement les cellules fusionnées lors de l’utilisation de cette option, rendant impossible l’ajustement automatique de la hauteur de ligne pour afficher tout le contenu. Par conséquent, vous devez généralement ajuster manuellement la hauteur de chaque ligne contenant des cellules fusionnées afin de rendre tout le texte visible — une tâche fastidieuse et sujette aux erreurs, surtout si vous avez de nombreuses cellules fusionnées.
Cet article présente plusieurs méthodes pratiques pour ajuster automatiquement la Hauteur de ligne des Fusionné de manière efficace, vous faisant gagner du temps et vous aidant à conserver une feuille de calcul propre et lisible :
Ajuster automatiquement la Hauteur de ligne des Fusionné à l’aide d’un code VBA
Utiliser le renvoi à la ligne et un ajustement manuel
Ajuster automatiquement la Hauteur de ligne des Fusionné à l’aide d’un code VBA
Supposons que votre feuille de calcul contienne plusieurs plages fusionnées avec des quantités variables de contenu, comme illustré dans la capture d’écran ci-dessous. Si vous souhaitez que toutes vos données soient entièrement visibles sans ajuster manuellement chaque ligne, une solution basée sur du code VBA vous permet d’ajuster automatiquement la hauteur des lignes au contenu de chaque cellule fusionnée en une seule opération. Cette méthode s’avère particulièrement utile lorsque votre feuille comporte de nombreuses plages fusionnées ou lorsque le contenu de ces cellules est fréquemment mis à jour, vous permettant ainsi de simplifier considérablement le processus d’ajustement.
Avant d’exécuter tout code VBA, pensez à enregistrer votre classeur dans un format compatible avec les macros pour préserver tout votre travail non sauvegardé. Bien que VBA soit une méthode sécurisée intégrée à Excel, assurez-vous que les macros sont activées et que les paramètres de sécurité de votre système autorisent leur exécution.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis copiez-collez le code suivant dans la fenêtre du module :
Code VBA : Ajuster automatiquement la Hauteur de ligne de plusieurs FusionnéOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
Remarques :
(1.) Si vous devez ajuster d’autres plages fusionnées, il vous suffit de copier la ligne Call AutoFitMergedCells(Range("a1:b2")) autant de fois que nécessaire et de modifier l’adresse pour chaque plage fusionnée que vous souhaitez ajuster automatiquement.
(2.) N’oubliez pas de remplacer Sheet4 dans le script par le nom de la feuille de calcul où se trouvent vos données fusionnées. Si vous ignorez le nom de votre feuille de calcul, consultez l’onglet en bas de la fenêtre Excel.
(3.) Lors de l’exécution de macros, assurez-vous qu’aucune cellule contenant des données critiques ou sensibles ne soit incluse accidentellement dans la plage sélectionnée, afin d’éviter toute modification de mise en forme inattendue.
3. Appuyez sur la touche F5 pour exécuter ce code. Une fois l’exécution terminée, toutes les cellules fusionnées spécifiées ajusteront automatiquement leur hauteur de ligne afin d’afficher entièrement leur contenu, comme illustré ci-dessous :
Cette solution VBA offre un moyen pratique et entièrement automatisé de gérer la taille des cellules fusionnées. Toutefois, elle exige l’accès à l’onglet Développeur ainsi que l’autorisation d’utiliser des macros — un point essentiel à considérer si vous travaillez dans un environnement où les macros sont désactivées ou soumises à des restrictions.
Utiliser le renvoi à la ligne et un ajustement manuel
Dans de nombreux cas, vous pouvez combiner la fonction Renvoyer à la ligne avec un léger ajustement manuel de la hauteur de ligne pour garantir que tout le contenu soit clairement visible, sans avoir recours au VBA ni à des outils complexes.
Étape 1 : Activer le renvoi à la ligne
- Sélectionnez la ou les cellule(s) fusionnée(s) que vous souhaitez formater.
- Accédez à l’onglet Accueil et cliquez sur Renvoyer à la ligne dans le groupe Alignement.
Cela permettra au contenu de passer automatiquement à la ligne suivante dans la zone fusionnée.
Étape 2 : Vérifiez l’affichage et ajustez manuellement la Hauteur de ligne si nécessaire
Si votre texte n’est pas très long, il s’insérera désormais parfaitement dans la cellule fusionnée.
Si le contenu est plus long et n’est toujours pas entièrement visible, faites glisser manuellement la bordure de la ligne située sous la cellule fusionnée pour augmenter la hauteur de ligne jusqu’à ce que tout le contenu s’affiche.
Article associé :
Comment ajuster automatiquement la largeur des colonnes dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels