Discussion :

[Nouky95]

Bonjour à tous,

Pouvez vous m'aider à trouver le code VBA qui correspond au besoin suivant :
- si dans une plage de cellule (exemple R10:NZ10) il existe au moins une cellule de couleur vert (5287936) ou vert pale (5296274), je souhaiterai que la cellule (exemple F10) prenne la couleur vert (5287936).

Merci par avance de vos conseils éclairés
Cordialement

[patricktoulon]

re
bonsoir
comment sont elles colorées ces cellules par la palette ou MFC

[Nouky95]

Bonjour Patrick,
Elles sont colorées à partir de la palette
Bon dimanche

[patricktoulon]

bonjour
dans ce cas la

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
Sub test()
    Dim cel As Range
    Set cel = Range("F10")
    cel.Interior.Color = SameColor(cel, Range("R:NZ"))
    'adaptation dans une boucle
    'for each cel in range("F1:F20")
    ' cel.Interior.Color = SameColor(cel, Range("R:NZ"))
    'Next
End Sub
'
'
Function SameColor(cel As Range, Rng As Range)
    For Each cels In Rng.Rows(cel.Row).Cells
        Select Case cels.Interior.Color
        Case 5287936, 5296274, etc    ' mettre toutes eventuelles couleurs ici, c'est la premiere couleur trouvée qui sera pris en compte
            SameColor = cels.Interior.Color: Exit For
        Case Else: SameColor = xlNone
        End Select
    Next
End Function

[Nouky95]

Merci beaucoup
Bonne journée

[Nouky95]

Bonjour Patrick,
Je ne comprends dans ton code tu ne fais pas référence au code couleur or dans ma ligne je peux avoir plusieurs couleurs et je veux uniquement mettre en vert F10 si une des cases de la ligne est en vert
Merci pour ton aide