[Excel] Problème avec fonction concatener

Question

Bonjour, j'ai un petit souci sous Excel, je souhaite concaténer deux cellules contenant du texte en une seule.
Pour cela, j'utilise la fonction 'concatener' d'Excel, par contre, mon problème est un problème de mise en forme, mon texte contient des lettres de différentes couleurs et je veux que ces couleurs apparaissent dans le chaîne concaténée, ce qui n'est pas le cas.
Est-ce que quelqu'un a une idée, svp  ??

Exemple : cellule A1 en noir, B1 en rouge
A1 : ATGC               
B1 : ATGC

Dans ce cas, je voudrai que la chaine concaténer ait les quatre premières lettres en noir, puis les quatre autres en rouge.

Merci d'avance

buzus · Answer

impossible avec la foction concaténer.
Essai en faisant une macro en VB et encore je sais pas si ça va marcher.
A priori je dirai impossible.

Utilisateur anonyme · Answer

Bonjour,

A1 : ATGC 
B1 : ATGC 

C1 : =CONCATENER(A1;B1)

D1 = CopieSpécial ( Valeur seulement )


Sub TransfertCouleur()
    
    Dim Couleur1 As Long, Couleur2 As Long
    
    Couleur1 = Range("A1").Font.ColorIndex
    Couleur2 = Range("B1").Font.ColorIndex
    
    Range("D1").Select
    With ActiveCell.Characters(Start:=1, Length:=4).Font
        .ColorIndex = Couleur1
    End With
    With ActiveCell.Characters(Start:=5, Length:=4).Font
        .ColorIndex = Couleur2
    End With

End Sub
'


Lupin

[Excel] Problème avec fonction concatener

2 réponses

Discussions similaires

Newsletters