bonjour
je cherche le moyen d'extraire des mots d'une chaîne de caractères
exemple
en a1
cette phrase: rdv chez le client à (retour chariot)18h00
j'aimerais en b2 rdv; en c2 chez; c2 le; d2 client; e2 18h00
cette phrase n'est qu'un exemple bien sur
cette phrase changera mais le nombre de mots et d'espaces restera identique
merci de votre aide
j'arrive à extrire le premier mot mais c'est ensuite que ça se gatte
Re : Extraire des mots d'une chaine de cararctères
Bonjour
Suivant l'outil utilisé pour extraire les mots la procédure change
En Vba le plus simple est la procédure Split
Avec des formules il faut combiner la recherche des positions de l'espace et l'extraction des caractères, ou alors développer une fonction personnalisée
Avec des formules
B2 =GAUCHE($A$2;CHERCHE(" ";A2;1))
C2 =STXT(A2;NBCAR(B2) +1;CHERCHE(" ";$A$2;5)-NBCAR(B2) )
D2 =STXT($A$2;NBCAR(C2) +1+NBCAR(B2);CHERCHE(" ";$A$2;NBCAR(C2) +1+NBCAR(B2))-NBCAR(C2) -NBCAR(B2))
........
Re : Extraire des mots d'une chaine de cararctères
Bonsoir,
Voir PJ
Code:
Function decoupeH(chaîne, sep)
Dim b()
a = Split(chaîne, sep)
ReDim b(0 To Application.Caller.Columns.Count - 1)
For i = LBound(a) To UBound(a)
b(i) = a(i)
Next
decoupeH = b
End Function
-Sélectionner G1:L1
=decoupeH(A1;" ")
-Valider avec Maj+ctrl+entrée