VBA – Fusionner et Défusionner des Cellules
In this Article
Dans ce tutoriel, nous allons examiner les différentes façons de fusionner des cellules à l’aide de VBA.
Fusionner des Cellules à l’Aide de VBA
Vous pouvez fusionner des cellules en VBA à l’aide de la méthode Range.Merge. Le code suivant fusionne les cellules A1:C1 :
Sub FusionnerCellules()
Range("A1:C1").Merge
End Sub
Le résultat est le suivant :
Défusionner des Cellules à l’Aide de VBA
Vous pouvez défusionner une plage de cellules à l’aide de la méthode Range.UnMerge. Supposons que vous ayez fusionné la plage de cellules A1:D1. Vous pouvez utiliser l’une des références de cellule de la plage pour défusionner les cellules. Le code suivant vous montre comment défusionner les cellules A1:D1, dans ce cas nous utilisons la référence à la cellule B1 :
Sub DéfusionnerCellules()
Range("B1").UnMerge
End Sub
Autres Exemples de Fusion
Fusion de Lignes à l’Aide de VBA
Vous pouvez fusionner des lignes à l’aide de VBA en spécifiant les numéros des lignes que vous souhaitez fusionner. Le texte de la cellule A1 est présenté ci-dessous :
Le code suivant fusionnera les lignes 1 à 4 :
Sub FusionnerLignes()
Range("1:4").Merge
End Sub
Le résultat est le suivant :
Fusionner des Colonnes à l’Aide de VBA
Vous pouvez fusionner des colonnes en utilisant VBA et les lettres des colonnes. Le code suivant fusionnera les colonnes A:C.
Sub FusionnerColonnes()
Range("A:C").Merge
End Sub
Le résultat est le suivant :
Fusionner et Centrer le Contenu des Cellules Horizontalement
Vous pouvez fusionner et centrer le contenu des cellules horizontalement dans une plage de cellules. Pour ce faire, vous devez fusionner les cellules concernées et définir la propriété d’alignement horizontal de l’objet plage sur xlCenter. Nous avons le texte dans la cellule A1 comme indiqué ci-dessous :
Le code suivant fusionne la plage de cellules A1:D1 et centre le contenu de la cellule A1 horizontalement sur cette plage de cellules :
Sub FusionnerCentrerContenuHorizontalement()
Range("A1:D1").Merge
Range("A1:D1").HorizontalAlignment = xlCenter
End Sub
Le résultat est le suivant :
Fusionner et Centrer le Contenu des Cellules Verticalement
Vous pouvez fusionner et centrer le contenu des cellules verticalement dans une plage de cellules. Pour ce faire, vous devez fusionner les cellules concernées et définir la propriété d’alignement vertical de l’objet plage sur xlCenter. Nous avons le texte dans la cellule A1 comme indiqué ci-dessous :
Le code suivant fusionne la plage de cellules A1:A4 et centre le contenu de la cellule A1 verticalement sur cette plage de cellules :
Sub FusionnerCentrerContenuVerticalement()
Range("A1:A4").Merge
Range("A1:D1").VerticalAlignment = xlCenter
End Sub
Le résultat est le suivant :
Fusionner les Cellules d’une Plage de Cellules par Rangées Individuelles
Vous pouvez fusionner des cellules dans une plage de cellules de façon à obtenir des cellules fusionnées individuelles par rangées. Vous devez définir le paramètre optionnel Across de la méthode Merge sur True. Nous avons le texte dans la cellule A1 comme indiqué ci-dessous :
Le code suivant fusionnera la plage de cellules A1:D1 :
Sub FusionnerCellulesParRangées()
Range("A1:C3").Merge Across:=True
End Sub
Le résultat est le suivant :