Copie de couleur de fond de cellule sous condition

Bonjour

Découvrant les riches possibilités d'Excel petit à petit et ne maitrisant pas encore l'outil à la perfection je sollicite votre aide.

Je cherche à copier la couleur de fond d'une cellule sous condition

Exemple :

Je copie A2 sur C2. Si A2 est bleu, C2 est bleu, sinon si A2 est d'une autre couleur, C2 devient ou restew blanche.

Merci de votre aide

bonne journée

bonjour,

voilà comment tester la couleur ... si ton bleu ne correspond pas au vbBlue .. note la valeur affichée dans fenêtre exécution (CTRL+G dans VBE)

Sub CopieA2versC2()
 Dim sh As Worksheet
 Set sh = ThisWorkbook.Sheets("feuil1") 'FEuille à traiter

    sh.Range("C2") = sh.Range("A2")
    Debug.Print "Couleur cellule A2 : " & sh.Range("A2").Interior.Color ' Au cas ou cela ne fonctionne pas avec vbBlue, voir résultat dans fenêtre exécution CTRL+G
    If sh.Range("A2").Interior.Color = vbBlue Then sh.Range("C2").Interior.Color = vbBlue Else sh.Range("C2").Interior.Color = vbWhite

End Sub

merci beaucoup, je vais tester ça

Impeccable