Problème avec interior.color

Bonjour,

Je m’excuse d’avance si le sujet paraîtra redondant pour certain mais j’ai fait des recherches depuis ce matin sur mon problème mais je ne trouve pas de solution. C’est pour ça que je crée un nouveau sujet.

Voici mon problème:

j’ai une cellule disons A1 qui possède un fond en couleur jaune. Au traver d’une macro je récupère cette couleur avec la commande: range(“A1”).interior.color

J’ai en retour un nombre.

Lorsque je veux me servir de ce nombre pour affecter la même couleur au fond d’une autre cellule, il ne se passe rien.

Pouvez-vous me dire pourquoi ?

Merci d’avance pour votre aide

Bonjour,

Un exemple dans le fichier joint.

Cdlt.

Public Sub DEMO()
Dim lColor As Long
    lColor = ActiveSheet.Cells(1, 1).Interior.Color
    ActiveCell.Interior.Color = lColor
End Sub

Merci Beaucoup Jean-Eric

J’ai trouvé d’où vient le souci dans mon code et ta réponse m’a aidé à y voir plus clair.