More

    Comment combiner des cellules à l’aide d’Excel VBA

    Utilisation de la méthode « MergeArea » de l’objet « Range

    La méthode “MergeArea” de l’ objet “Range” est utilisée pour renvoyer un objet “Range” qui représente une plage de cellules fusionnées contenant une cellule spécifique. Cette méthode n’a pas d’arguments et ne fonctionne que sur les cellules qui sont déjà combinées avec d’autres cellules.

    Pour fusionner des cellules à l’aide de la méthode “MergeArea”, nous pouvons d’abord utiliser la propriété “Merge” ou la méthode “MergeCells” pour combiner la plage de cellules souhaitée, puis utiliser la méthode “MergeArea” pour faire référence à la plage de cellules fusionnées. L’exemple de code suivant montre comment combiner les cellules G1 à I3 à l’aide de la propriété “Merge”, puis utiliser la méthode “MergeArea” pour faire référence à cette plage de cellules fusionnées.

    Sub MergeCellsUsingMergeAreaMethod()
     'Combining cells G1 to I3
     Range( “G1:I3” ). Merge = True
     'Refers to a range of merged cells containing G2 cells
     Range( “G2” ). MergeArea.Select
    End Sub

    Nous pouvons voir que les cellules G1 à I3 ont été fusionnées en une seule grande cellule, et que la valeur de la cellule G1 reste affichée au milieu de la cellule fusionnée. Nous pouvons également voir que la plage de cellules fusionnées a été sélectionnée par notre code, en utilisant la méthode “MergeArea” pour faire référence à la plage de cellules fusionnées contenant la cellule G2.

    Pour annuler la fusion de cellules à l’aide de la méthode “MergeArea”, nous pouvons d’abord utiliser la propriété “Merge” ou la méthode “MergeCells” pour annuler la fusion de la plage de cellules souhaitée, puis utiliser la méthode “MergeArea” pour faire référence à cette plage de cellules individuelles. L’exemple de code suivant montre comment annuler la fusion des cellules G1 à I3 à l’aide de la propriété “Merge”, puis utiliser la méthode “MergeArea” pour faire référence à cette plage de cellules individuelles.

    Sub UnMergeCellsUsingMergeAreaMethod()
     'Unmerge cells G1 to I3
     Range( “G1:I3” ). Merge = False
     'Refers to the range of individual cells containing G2 cells
     Range( “G2” ). MergeArea.Select
    End Sub

    Nous pouvons voir que les cellules G1 à I3 ont été séparées en cellules individuelles, et que la valeur de la cellule G1 reste affichée dans la cellule G1. Nous pouvons également voir que la plage de ces cellules individuelles a été sélectionnée par notre code, en utilisant la méthode MergeArea pour faire référence à la plage de cellules individuelles contenant la cellule G2.

    Utilisation de la méthode UnMerge d’un objet « Range

    La méthode “UnMerge” de l’ objet “Range” est utilisée pour annuler la fusion de toutes les cellules fusionnées dans une plage de cellules. Cette méthode n’a pas d’arguments et ne fonctionne que sur les plages de cellules qui contiennent au moins une cellule fusionnée.

    Pour annuler la fusion des cellules à l’aide de la méthode “UnMerge”, nous pouvons exécuter la méthode pour la plage de cellules que nous voulons diviser. L’exemple de code suivant montre comment annuler la fusion de toutes les cellules fusionnées dans une feuille de calcul active à l’aide de la méthode “UnMerge”.

    Sub UnMergeCellsUsingUnMergeMethod()
     'Unmerge all merged cells in the active worksheet
     ActiveSheet.Cells.UnMerge
    End Sub

    Nous pouvons voir que toutes les cellules fusionnées de la feuille de calcul active ont été séparées en cellules individuelles et que les valeurs de ces cellules restent affichées à leur emplacement d’origine.

    Dernières articles