Discussion :

[Prue]

J'essaye désespérément de faire ce qui est marqué dans le sujet et je ne comprends pas pourquoi cela ne marche pas. Je n'ai pas de message d'erreur. C'est juste qu'il ne se passe rien

Code :

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

1
2
3
Sub test()
Range("A1").Interior.Color = Range("B1").Interior.Color
End Sub

Merci d'avance pour votre aide

[fring]

Bonjour,

Cela fonctionne pourtant très bien.
Tu obtiens quoi comme message en faisant ceci :

Code :

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

MsgBox "Couleur n° " & Range("B1").Interior.Color

[Gorfael]

Salut Prue et le forum
Si la macro ne trouve pas d'erreur c'est qu'elle fonctionne => donc, ce n'est pas interior qui est colorié
Si l'apect de ta cellule B1 est colorié, ça provient sans doute d'une MFC et il te reste à appliquer la même en A1
A+

[Prue]

Désolée d'avoir tant tardé mais j'ai tellement de boulot que j'en avais oublié ce problème

D'ailleurs, je n'arrive pas à le reproduire Effectivement, la syntaxe que j'ai essayé fonctionne maintenant, c'est un mystère

En tout cas quand même pour tout