Dans Excel, vous avez la possibilité de connecter des cellules entre elles. Mais cette fonction entraîne souvent des problèmes. Par exemple, il n’est pas possible d’ajouter de nouvelles colonnes entre les cellules connectées. Si vous voulez savoir combien de cellules sont contenues dans un groupe, utilisez la macro suivante.
Sub CellulesConnectes()
Dim Plage As Range
Sheets("Feuil1").Activate
Set Plage = Range("D5")
MsgBox Plage.MergeArea.Cells.Count & _
" Les cellules sont connectées"
End Sub
Définissez la première cellule du groupe, qui se trouve dans le coin supérieur gauche, en tant que variable de plage. Pour ce faire, utilisez l’instruction Set. Définissez ensuite la propriété MergeArea qui représente la zone fusionnée avec la cellule spécifiée. Avec la propriété Cells, vous adressez toutes les cellules de la zone connectée, que vous comptez et sortez ensuite à l’aide de la méthode Count.
Les cellules connectées ne sont pas toujours faciles à trouver sur la table, surtout pas si elles ne sont pas formatées en conséquence. Ces cellules connectées dorment alors sans être détectées dans votre table jusqu’à ce que vous rencontriez plus ou moins un tel groupe de cellules par hasard. Si vous souhaitez mettre en évidence visuellement ces cellules fusionnées, utilisez la macro du suivanté.
Sub ColorCelluleFusion()
Dim Cellule As Range
For Each Cellule In Worksheets("Feuil4").UsedRange
If Cellule.MergeCells Then _
Cellule.Interior.ColorIndex = 4
Next Cellule
End Sub
Vous pouvez utiliser la propriété UsedRange pour cela. Dans une requête If, vous déterminez si cette cellule appartient à un groupe de cellules. Si c’est le cas, coloriez cette cellule avec la couleur verte.
Pour supprimer à nouveau un groupe de cellules, par exemple si vous souhaitez insérer une nouvelle colonne entre les cellules connectées, utilisez la macro suivante.
Sub SuppressionCelluleFusion()
Dim Cellule As Range
Dim Plage As Range
Sheets("Feuil").Activate
Set Plage = Range("A2:F20")
For Each Cellule In Plage
Cellule.MergeCells = False
Next Cellule
End Sub
Dans la première étape, définissez les cellules fusionnées que vous souhaitez supprimer. Pour ce faire, utilisez l’instruction Set. Ensuite, démarrez une boucle qui traite précisément cette zone cellule par cellule et à l’aide de la propriété MergeCells, supprime chaque cellule du réseau.
Vous savez maintenant comment compter les cellules d’un réseau et comment annuler ce réseau. Mais comment définir et fusionner les cellules? En guise de réponse, regardez la macro suivante.
Sub FusionnerCellules()
Dim Cellule As Range
Dim Plage As Range
Sheets("Feuil10").Activate
Set Plage = Range("A2:F20")
Plage.MergeCells = False
Plage.Merge
End Sub