Sujet Précédent Sujet Suivant

[Excel] Problème avec fonction concatener

Fermé
Drexler1982 - 3 août 2007 à 11:10
 Utilisateur anonyme - 3 août 2007 à 17:37
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

2 réponses

Réponse 1 / 2
buzus
3 août 2007 à 11:58
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.
0
Drexler1982
3 août 2007 à 12:22
Bon, merci quand même je vais faire ça manuellement, comme au bon vieux temps.

Merci encore Buzus.
0
Réponse 2 / 2
Utilisateur anonyme
3 août 2007 à 17:37
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
0