Discussion :

[TruffExcel]

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

[eriiic]

Bonjour,

les plages doivent être sur la même feuille.

Tu peux les mettre dans un array que tu balaies :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    ar = Array(pl1, pl2, pl3, pl4)
    For i = 0 To UBound(ar)
        For Each c In ar(i)
        Stop
        Next c
    Next i

eric

PS : merci d'utiliser l'icone # pour garder la lisibilité d'un code

[TruffExcel]

Merci eriiic, j'essaye ça après le taf.

Cdt.

(j'ai ajouté la balise code dans mon 1er post, c'est tout de suite plus clair)