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

Dudu2

XLDnaute Barbatruc

• 12 Novembre 2020

• #2

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:

 

Pièces jointes

• Fiche à 4 REP.PROD..xlsm

  29 KB · Affichages: 7

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Novembre 2020

• #3

bonsoir
astucieux Dudu2

 

Vote positif 0 Vote négatif

P

Patoche42

XLDnaute Junior

• 13 Novembre 2020

• #4

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 ?

 

Pièces jointes

• Capture.JPG

  42.2 KB · Affichages: 19

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Novembre 2020

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 13 Novembre 2020

• #6

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 !

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 13 Novembre 2020

• #7

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

VB:

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

 

Pièces jointes

• Fiche à 4 REP.PROD..xlsm

  29.2 KB · Affichages: 16

Vote positif 0 Vote négatif

Solution

patricktoulon

XLDnaute Barbatruc

• 13 Novembre 2020

• #8

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

VB:

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)

 

Vote positif 0 Vote négatif

P

Patoche42

XLDnaute Junior

• 13 Novembre 2020

• #9

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Novembre 2020

• #10

tu a choisi quelle option viviepat?

 

Vote positif 0 Vote négatif

P

Patoche42

XLDnaute Junior

• 13 Novembre 2020

• #11

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 13 Novembre 2020

• #12

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Novembre 2020

• #13

voilà un truc a approfondir Dudu2

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 13 Novembre 2020

• #14

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Novembre 2020

• #15

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

 

Vote positif 0 Vote négatif