Option Explicit
Private Sub Worksheet_Activate() ' dans le module de l'onglet "Feuil2"
With [h6]
.FormulaR1C1 = "=Feuil1!RC[-5]"
.Interior.Color = Sheets("Feuil1").Range("c6").Interior.Color
.Font.Color = Sheets("Feuil1").Range("c6").Font.Color
End With
End Sub
Bonsour®
Une formule ne peut renvoyer qu'une valeur...
VBA obligatoire ou ...
ruse ...
Magique quasiment sans macro !! (calculate sinon F9)
Regarde la pièce jointe 364841
Bonjour, chouaggy, le Forum,
Comme ceci ?
Code:Option Explicit Private Sub Worksheet_Activate() ' dans le module de l'onglet "Feuil2" With [h6] .FormulaR1C1 = "=Feuil1!RC[-5]" .Interior.Color = Sheets("Feuil1").Range("c6").Interior.Color .Font.Color = Sheets("Feuil1").Range("c6").Font.Color End With End Sub
A bientôt
supprimer la MEFC ...ouais pas mal mais ca a pas l'air de fonctionner pour la couleur de remplissage de la cellule
Re-bonjour,
Afin que nul ne perde son temps, merci de bien vouloir déposer le fichier de travail, sans aucune donnée confidentielle, et préciser l'endroit où le code doit agir.
A bientôt
...voilà un exemple !!