Extraction de caractères avec une couleur dans un champ

[EDP]

Bonjour.

J'ai dans un champ A1 un texte dont une première partie à gauche est en caractères de couleur noire, et l'autre partie de droite en caractères de couleur bleue.

Exemple : Ich bin müde. Je suis fatigué.

J'aimerais pouvoir extraire du champ le texte en bleu pour le mettre dans le champ immédiatement à droit, soit B1.

Il y a rarement un point entre les textes allemand et français; la couleur permet de distinguer les deux langues.

Comment procéder ?

Merci d'avance.

Bien cordialement

 

[GPLIONEL]

Re : Extraction de caractères avec une couleur dans un champ

Bonjour EDP

S'il y a toujours un point entre texte noir et le bleu :
=droite(a1;nbcar(a1)-cherche(".";a1))

 

[Tibo]

Re : Extraction de caractères avec une couleur dans un champ

Bonjour EDP et bienvenue,

J'ai vu un Copier-Coller du même message sur un autre Forum.

Méthode pas toujours appréciée des Forumeurs.

Cela dit, si la réponse de Lionel te convient, n'hésite pas à le faire savoir également ailleurs.

Sinon, tu peux toujours joindre un fichier pour plus de précisions.

A te lire

@+

 

[porcinet82]

Re : Extraction de caractères avec une couleur dans un champ

Salut,

Comme Lionel, je te propose une macro, si il y a toujours un point entre les deux phrases (tes data sont en colonnes, la partie avant le point sera en col B et apres le point en col C) :

Sub test()
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
    Cells(i, 2).Value = Left(Cells(i, 1).Value, InStr(1, Cells(1, 1).Value, "."))
    Cells(i, 3).Value = Mid(Cells(1, 1).Value, InStr(1, Cells(1, 1).Value, ".") + 2, Len(Cells(i, 1).Value))
Next i
End Sub

@+

 

[EDP]

Re : Extraction de caractères avec une couleur dans un champ

Tout d'abord, merci pour votre aide.

Comme vous l'aurez compris, je désire améliorer mon allemand.

Il n'y a malheureusement pas souvent de point entre les deux textes, raison pour laquelle la couleur est la seule manière d'extraire la traduction française.