Comment colorer les lignes alternées pour les données fusionnées dans Excel ?

Il est très utile de formater les lignes alternées avec une couleur différente dans un grand ensemble de données pour en faciliter la lecture. Toutefois, il peut arriver que certaines cellules fusionnées soient présentes dans vos données. Comment mettre en évidence alternativement les lignes avec une couleur différente, y compris lorsqu’elles contiennent des cellules fusionnées, comme illustré dans la capture d’écran ci-dessous, dans Excel ?

Colorer les lignes alternées pour les Fusionné avec Utiliser la mise en forme conditionnelle

Colorer les lignes alternées pour les Fusionné avec du code VBA

---

Colorer les lignes alternées pour les Fusionné avec Utiliser la mise en forme conditionnelle

Dans Excel, la puissante fonctionnalité Utiliser la mise en forme conditionnelle vous permet d’accomplir cette tâche aussi rapidement que possible. Procédez comme suit :

1. Sélectionnez la plage de données contenant les cellules fusionnées que vous souhaitez colorer en alternance, puis cliquez sur Accueil > Utiliser la mise en forme conditionnelle > Nouvelle règle, comme illustré dans la capture d’écran :

2. Dans la boîte de dialogue Nouvelle règle de mise en forme qui s’ouvre, procédez comme suit :

• Sélectionnez Utiliser une formule pour déterminer les cellules à mettre en formedans la zone Sélectionner un type de règle;
• Saisissez ensuite cette formule :=MOD(COUNTA($A$2:$A2),2)=0 dans la zone de texte Mettre en forme les valeurs pour lesquelles cette formule est vraie.
• Remarque : A2 correspond à la première cellule de votre plage de données.

3. Cliquez ensuite sur le bouton Format pour accéder à la boîte de dialogue Définir le format des cellules. Sous l’onglet Remplissage, choisissez une couleur pour mettre en évidence les lignes — voir la capture d’écran :

4. Cliquez sur OK > OK pour fermer les boîtes de dialogue. Les lignes contenant les cellules fusionnées sont désormais remplies avec la couleur spécifiée, comme le montre la capture d’écran :

5. Cliquez à nouveau sur Accueil > Utiliser la mise en forme conditionnelle > Nouvelle règle pour ouvrir la boîte de dialogue Nouvelle règle de mise en forme. Procédez comme suit :

• Sélectionnez Utiliser une formule pour déterminer les cellules à mettre en formedans la zone Sélectionner un type de règle;
• Saisissez ensuite cette formule :=MOD(COUNTA($A$2:$A2),2)=1dans la zone de texte Mettre en forme les valeurs pour lesquelles cette formule est vraie.
• Cliquez ensuite sur le bouton Format pour choisir une autre couleur avec laquelle mettre en évidence les lignes.
• Remarque : A2 correspond à la première cellule de votre plage de données.

6. Cliquez ensuite sur OK>OK pour fermer les boîtes de dialogue. Vous pouvez désormais constater que la plage « Sélectionner les données » a été ombrée avec deux couleurs différentes alternées en fonction des éléments fusionnés, comme illustré dans la capture d’écran ci-dessous :

---

Colorer les lignes alternées pour les Fusionné avec du code VBA

Outre la méthode classique via la mise en forme conditionnelle, vous pouvez également utiliser un code VBA pour appliquer aisément des couleurs alternées aux lignes fusionnées.

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez ensuite sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Colorer les lignes alternées pour les Fusionné

Sub Kutools_AlternateColor()
'Update by ExtendOffice
Dim xRg As Range
Dim xCRg As Range
Dim xIRg As Range
Dim xC1, xC2 As Integer
Dim xR1 As Integer
Dim xCnt As Long
Dim xLColor, xDCR1, xDCR2 As Long
Set xRg = Application.InputBox("Please select the data range:", "KutoolsforExcel", "", Type:=8)
If TypeName(xRg) = "Nothing" Then Exit Sub
Set xCRg = Application.InputBox("Please select the column with the merged cells:", "KutoolsforExcel", "", Type:=8)
If TypeName(xCRg) = "Nothing" Then Exit Sub
Set xIRg = Intersect(xRg, xCRg)
If xIRg Is Nothing Then
MsgBox "the data range doesn't contain merged cells"
Exit Sub
End If
xC1 = xRg.Column
xC2 = xIRg.Column
xR1 = xRg.Row
xLColor = RGB(221, 235, 247)
xDCR1 = RGB(221, 235, 247)
xDCR2 = RGB(250, 232, 222)
xRw = 0
Do
xLColor = xDCR1 + xDCR2 - xLColor
xCnt = Cells(xRw + xR1, xC2).MergeArea.Rows.Count
Cells(xRw + xR1, xC1).Resize(xCnt, xRg.Columns.Count).Interior.Color = xLColor
xRw = xRw + xCnt
Loop While xRw < xRg.Rows.Count - 1
End Sub

3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Dans la première boîte de dialogue qui s’ouvre, sélectionnez la plage de données que vous souhaitez utiliser (voir la capture d’écran) :

4. Dans la deuxième boîte de dialogue, sélectionnez la colonne contenant les données fusionnées. Voir la capture d’écran :

5. Cliquez ensuite sur le bouton OK ; les lignes sont désormais ombrées alternativement en fonction des cellules fusionnées, comme illustré dans la capture d’écran ci-dessous :

---

Vidéo : Colorer les lignes alternées pour les Fusionné

---

Articles connexes :