Extraction de caractères avec une couleur dans un champ

EDP · 17 Août 2007

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 · 17 Août 2007

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 · 17 Août 2007

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 · 17 Août 2007

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) :

Code:

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 · 17 Août 2007

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.

Extraction de caractères avec une couleur dans un champ

EDP

Guest

GPLIONEL

XLDnaute Occasionnel

Tibo

XLDnaute Barbatruc

porcinet82

XLDnaute Barbatruc

EDP

Guest

Discussions similaires

Extraction de caractères avec une couleur dans un champ

EDP

Guest

GPLIONEL

XLDnaute Occasionnel

Tibo

XLDnaute Barbatruc

porcinet82

XLDnaute Barbatruc

EDP

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency