Bonjour,

Je débute dans l'apprentissage des macros et j'ai besoin de votre aide svp pour obtenir un bon fonctionnement du principe suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
Sub CouleurComptesTs() ' Met en couleur les numéros de compte
 
Dim cell As Range
Dim r1, r2, r3, r4, r5 As Range
Dim ensemble As Range
 
Set r1 = Sheets("TS").Range("TsComptePartiel")
Set r2 = Sheets("MODIFS").Range("ModifsComptePartiel")
Set r3 = Sheets("CALENDRIER").Range("CalendierComptePartiel")
Set r4 = Sheets("AFFAIRES").Range("AffairesCompte")
Set r5 = Sheets("TACHES").Range("TacheCompteAffaires")
 
Set ensemble = Union(r1, r2, r3, r4, r5)
 
For Each cell In ensemble
 
    Select Case cell.Value
        Case Is = "533416"
                cell.Interior.ThemeColor = xlThemeColorAccent6
                cell.Font.Color = -16711681
        Case Is = "319209"
                cell.Interior.Color = 6299648
                cell.Font.ThemeColor = xlThemeColorDark1
        Case Is = "531699"
                cell.Interior.ThemeColor = xlThemeColorAccent5
                cell.Font.ThemeColor = xlThemeColorLight2
 
    End Select
 
Next cell
Set ensemble = Nothing
End Sub
Ca bloque à partir de --> Set ensemble = Union(r1, r2, r3, r4, r5)

Merci beaucoup.

Edit : Ajout de la balise code suite conseil eriiic