Alan a demandé s’il existe un moyen d’identifier rapidement et facilement les cellules fusionnées dans un classeur créé par quelqu’un d’autre. Il existe, en réalité, plusieurs façons différentes d’identifier ces cellules.

Une méthode pour identifier les cellules consiste à utiliser les capacités de recherche d’Excel. Suivez ces étapes:

  1. Appuyez sur Ctrl + F. Excel affiche l’onglet Rechercher de la boîte de dialogue Rechercher et remplacer.

  2. Si nécessaire, cliquez sur le bouton Options pour vous assurer que la boîte de dialogue Rechercher et remplacer est développée pour afficher toutes les options. (Voir la figure 1.)

  3. Assurez-vous que la case Rechercher est vide.

  4. Avec le point d’insertion dans la zone Rechercher, cliquez sur le bouton Format. Excel affiche la boîte de dialogue Rechercher un format.

  5. Assurez-vous que l’onglet Alignement est affiché. (Voir la figure 2.)

  6. Assurez-vous que la case à cocher Fusionner les cellules est activée (il doit y avoir une coche dans la case à cocher).

  7. Cliquez sur OK pour fermer la boîte de dialogue Rechercher un format.

  8. Cliquez sur Rechercher tout.

Excel recherche toutes les cellules fusionnées et, si elles sont localisées, les cellules s’affichent au bas de la boîte de dialogue Rechercher et remplacer. Vous pouvez ensuite sélectionner l’une des plages trouvées et la plage correspondante est sélectionnée dans la feuille de calcul.

Si vous préférez, vous pouvez une macro pour trouver les différentes cellules fusionnées dans la feuille de calcul. La macro suivante montre peut-être la méthode la plus simple pour y parvenir:

Sub FindMerged1()

Dim c As Range     For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             MsgBox c.Address & " is merged"

End If     Next End Sub

Cette macro particulière parcourt toutes les cellules de la feuille de calcul (enfin, au moins celles qui sont dans UsedRange) et, si la cellule fait partie d’une cellule fusionnée, une boîte de message s’affiche. Notez que la propriété pertinente en cours de vérification est la propriété MergeCells. Ce paramètre est défini sur True si la cellule est fusionnée avec une autre cellule.

Bien sûr, une macro comme celle-ci peut prendre un certain temps à s’exécuter si la feuille de calcul contient beaucoup de cellules et même plus si un bon nombre de ces cellules sont fusionnées. Votre macro s’exécuterait plus rapidement si elle ne s’arrêtait pas à chaque cellule fusionnée et afficherait une boîte de dialogue. La version suivante adopte une approche différente, remplissant chaque cellule fusionnée avec une couleur jaune:

Sub FindMerged2()

Dim c As Range     For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             c.Interior.ColorIndex = 36         End If     Next End Sub

Une variante de cette approche pourrait être de créer une fonction définie par l’utilisateur qui renvoie simplement True ou False si la cellule est fusionnée:

Function FindMerged3(rCell As Range)

FindMerged3 = rCell.MergeCells End Function

Avec cette fonction simple, vous pouvez ensuite utiliser la mise en forme conditionnelle pour mettre en évidence les cellules si elles sont fusionnées. (Si la fonction renvoie True, alors la mise en forme conditionnelle applique la mise en forme que vous spécifiez à la cellule.)

Enfin, si vous voulez une liste de cellules qui sont fusionnées dans la feuille de calcul, vous pouvez simplement demander à votre macro de rassembler la liste au lieu de colorer les cellules:

Sub FindMerged4()

Dim c As Range     Dim sMsg As String

sMsg = ""

For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             If sMsg = "" Then                 sMsg = "Merged worksheet cells:" & vbCr             End If             sMsg = sMsg & c.Address & vbCr         End If     Next     If sMsg = "" Then         sMsg = "No merged worksheet cells."

End If

MsgBox sMsg End Sub

Cette variante affiche une seule boîte de message à la fin de la macro, indiquant les adresses de toutes les cellules fusionnées situées dans la feuille de calcul.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (3905) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

lien: / excelribbon-Identifying_Merged_Cells [Identification des cellules fusionnées].