Microsoft 365 Reporter le texte et sa couleur dans une autre cellule

[Patoche42]

Bonjour,
je souhaiterais copier le texte d'une cellule de la feuille1 avec sa couleur de police dans la feuille "Progr REP."
J'ai réussi à recopier le texte avec tout bêtement un " =Feuil2!N39 " mais je n'arrive pas a faire suivre la couleur de la police.
En utilisant cette méthode j'avais des "0" qui apparaissaient sur les cellules recopier ce que j'ai résolu avec une forme conditionnelle →si =0 le texte sera en blanc.
je vous mets mon fichier en pièce jointe.
Petite précision, je suis complètement ignorant des macros donc si je dois passer par là, merci de me détailler la démarche.
En vous remerciant par avance

 

[Dudu2]

Bonjour,
On ne peut pas faire venir des éléments de format d'une autre cellule par formule.
Il faut faire une fonction personnalisée, transformer le classeur .xlsx en .xslm à cause de la fonction personnalisée VBA nécessaire, puis, l'utiliser dans les formules. Comme elle retourne 0 tu peux l'utiliser en addition.
Par exemple:

 

[patricktoulon]

bonsoir
astucieux Dudu2

 

[Patoche42]

Bonjour,
Merci beaucoup pour ta réponse.
Pour la couleur pas de soucis mais j'ai des "#" qui apparaissent à la place des lettres quand j'étale la formule sur les côtés.

Aurais tu une solution pour ça ?

 

[patricktoulon]

bonjour
essaie donc "&" a la place de "+"

Function ColorFrom(Cellule As Range) As Variant
   'Copie la couleur du texte de la Cellule en paramètre dans la cellule qui appelle la fonction
   Application.Caller.Font.Color = Cellule.Font.Color
ColorFrom = Empty
End Function

 

[Dudu2]

Bonjour,
Il y a une première solution qui consiste à concaténer au lieu d'additionner puisque la fonction retourne un Variant...
Voilà Patrick t'a indiqué la manip !

 

[Dudu2]

L'autre solution peut-être plus simple pour toi est de tout récupérer de la cellule source:

Function ContentAndFontColorFrom(Cellule As Range) As Variant
   'Copie la couleur du texte de la Cellule en paramètre dans la cellule qui appelle la fonction
   Application.Caller.Font.Color = Cellule.Font.Color
   ContentAndFontColorFrom = Cellule.Value
End Function

 

[patricktoulon]

re
hoh moi j'aime bien l'astuce
j'ai essayé d'intégrer le background aussi mais là ça marche plus je n'en vois pas la raison

Option Explicit

Function ColorFrom(Cellule As Range, _
                   Optional font_color As Boolean = False, _
                   Optional back_color As Boolean = True) As Variant
'Copie la couleur du texte de la Cellule en paramètre dans la cellule qui appelle la fonction
    With Application.Caller
        If font_color Then .Font.Color = Cellule.Font.Color
        If back_color = True Then .Interior.Color = Cellule.Interior.Color
    End With
    ColorFrom = Empty
End Function

=AB9&colorfrom(AB9;1;1)

 

[Patoche42]

Merci pour vos réponses
ça marche nickel !!!
Vous êtes balaises les gars.👍
Il faut vraiment que j'apprenne les fonctions VBA un jour.
Merci encore

 

[patricktoulon]

tu a choisi quelle option viviepat?

 

[Patoche42]

La dernière de dudu2 qui est pour moi la plus simple

 

[Dudu2]

En effet ça ne marche pas pour l'interior.color. Ça part en #VALEUR! sans raison véritablement compréhensible.

 

[patricktoulon]

voilà un truc a approfondir Dudu2

 

[Dudu2]

Certes, patricktoulon, j'ai déjà essayé plein de trucs... qui ne marchent pas ! Je doute qu'on trouvera une solution. Et c'est bien dommage.
Dès qu'on touche à l'interior, il est pas d'accord 😛

 

[patricktoulon]

je pense avoir la solution je ferais un test dans l'aprem