Dans ce didacticiel, nous allons examiner les différentes manières de fusionner des cellules à l'aide de VBA.
Fusionner des cellules à l'aide de VBA
Vous pouvez fusionner des cellules dans VBA à l'aide de la méthode Range.Merge. Le code suivant fusionnera les cellules A1:C1 :
| 12345 | Sous-cellules de fusion()Plage("A1:C1").FusionnerFin du sous-marin |
Le résultat est:
Annuler la fusion des cellules à l'aide de VBA
Vous pouvez annuler la fusion d'une plage de cellules fusionnée à l'aide de la méthode Range.UnMerge. Disons que vous avez fusionné la plage de cellules A1:D1. Vous pouvez utiliser l'une des références de cellule de la plage pour annuler la fusion des cellules. Le code suivant vous montre comment annuler la fusion des cellules A1:D1, dans ce cas, nous utilisons la cellule B1 :
| 12345 | Sous-UnmergeCells()Plage("B1").UnFusionFin du sous-marin |
Plus d'exemples de fusion
Fusionner des lignes à l'aide de VBA
Vous pouvez fusionner des lignes à l'aide de VBA en spécifiant les numéros de ligne que vous souhaitez fusionner. Nous avons le texte dans la cellule A1 ci-dessous :
Le code suivant fusionnera les lignes 1 à 4 :
| 12345 | Sub MergeRows()Plage ("1:4").FusionnerFin du sous-marin |
Le résultat est:
Fusionner des colonnes à l'aide de VBA
Vous pouvez fusionner des colonnes à l'aide de VBA et des lettres de colonne. Le code suivant fusionnera les colonnes A:C.
| 12345 | Sous-fusionner les colonnes()Plage("A:C").FusionnerFin du sous-marin |
Le résultat est:
Fusionner et centrer le contenu des cellules horizontalement
Vous pouvez fusionner et centrer le contenu des cellules horizontalement sur une plage de cellules. Vous devez fusionner les cellules d'intérêt et également définir la propriété d'alignement horizontal de l'objet de plage au centre. Nous avons le texte dans la cellule A1 comme indiqué ci-dessous :
Le code suivant fusionnera la plage de cellules A1:D1 et centrera le contenu de la cellule A1 horizontalement sur cette plage de cellules :
| 123456 | Sub MergeandCenterContentsHorizontalement()Plage("A1:D1").FusionnerRange ("A1:D1").HorizontalAlignment = xlCenterFin du sous-marin |
Le résultat est:
Fusionner et centrer le contenu des cellules verticalement
Vous pouvez fusionner et centrer le contenu des cellules verticalement dans une plage de cellules. Vous devez fusionner les cellules d'intérêt et également définir la propriété d'alignement vertical de l'objet de plage au centre. Nous avons le texte dans la cellule A1 comme indiqué ci-dessous :
Le code suivant fusionnera la plage de cellules A1:A4 et centrera le contenu de la cellule A1 verticalement sur cette plage de cellules :
| 123456 | Sub MergeandCenterContentsVertically()Plage ("A1:A4").FusionnerRange ("A1:D1").VerticalAlignment = xlCenterFin du sous-marin |
Le résultat est:
Fusionner des cellules dans une plage de cellules
Vous pouvez fusionner des cellules dans une plage de cellules. Vous devez définir le paramètre facultatif 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 :
| 12345 | Sub MergeCellsAcross()Plage("A1:D1").Fusionner à travers:=TrueFin du sous-marin |
Le résultat est:
