Récupérer la couleur d une cellule dans un autre fichier

job75

XLDnaute Barbatruc

• 12 Novembre 2018

• #2

Bonsoir massol,

Sur Excel 2003 il faut connaître les conditions de la MFC.

Sur Excel 2007 et versions suivantes on peut utiliser la propriété .DisplayFormat.

Bien entendu les 2 fichiers doivent être ouverts.

A+

 

Vote positif 0 Vote négatif

M

massol

XLDnaute Junior

• 13 Novembre 2018

• #3

Bonjour,

Etant débutant pouvez-vous préciser ?
A titre d'exemple ci-joint deux fichiers (A et B). Je souhaiterais Récupérer la couleur située dans A (onglet Feuil1) cellule C4 et la retrouver dans le fichier B onglet Feuil 2 cellule B5 (par exemple)..Une tentative de macro dans A mais qui ne fonctionne pas....
Merci...

 

Pièces jointes

• A.xlsm

  12.3 KB · Affichages: 15
• B.xlsm

  7.9 KB · Affichages: 14

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Novembre 2018

• #4

Bonjour massol,

Donc avec des fichiers .xlsm vous êtes sur une version postérieure à Excel 2003 ?

Mais la couleur dans votre fichier A ne provient pas d'une MFC... Alors j'y ai mis une MFC !

Code:

Sub CopierCouleur()
On Error Resume Next
If IsError(Workbooks("B.xlsm")) Then MsgBox "Ouvrez 'B.xlsm'": Exit Sub
Application.Goto Workbooks("B.xlsm").Sheets("Feuil2").[B5]
ActiveCell.Interior.Color = ThisWorkbook.Sheets("Feuil1").[C4].DisplayFormat.Interior.Color
End Sub

DisplayFormat récupère le format affiché quelle que soit son origine.

A+

 

Pièces jointes

• A.xlsm

  22.5 KB · Affichages: 17
• B.xlsm

  14.1 KB · Affichages: 20

Vote positif 0 Vote négatif

M

massol

XLDnaute Junior

• 13 Novembre 2018

• #5

Ca fonctionne parfaitement. Un grand merci !!

Cdlt.
Jérôme.

 

Vote positif 0 Vote négatif