Discussion :

[samy35]

Bonjour;
j'ai des difficultés pour extraire une chaîne de caractère voici mon exemple:

j'ai la colonne A qui contient ce genre de caractère (je n'ai mis que 2 lignes comme exemple)

1- BBBB - SAAAT\Agrandissement\ Capturs\Centre Ouest\LC510 - PALM BEACH SUD\Etat commutateur Manuel 3

2- BBBB - SAAAT\ Potable\Capturs\Sectorisation\Zones FFF - Chaîne côtière\Débit LC270 - Azur Plage

je veux extraire juste la chaine qui débute par LC et qui se termine avant le "\"
(exp: LC510 - PALM BEACH SUD) et (LC270 -Azure plage) et les mettre dans 2 colonnes séparés exp:
B

c

LC510

PALM BEACH SUD

LC270

Azure plage

merci d'avance.

[EngueEngue]

La galère...
Supposons qu'en A1:A1000 tu aies tes chaînes de caractères immondes.

En Z1 tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1);SIERREUR(CHERCHE("\";DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1))-1;NBCAR(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1))))

Et tu traines jusqu'à Z1000...

Puis en B1 tu mets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(Z1;5)

Et en C1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(Z1;NBCAR(Z1)-8)

Et si tu veux te passer de la colonne Z1...
B1=

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(GAUCHE(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1);SIERREUR(CHERCHE("\";DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1))-1;NBCAR(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1))));5)

C1=

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(GAUCHE(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1);SIERREUR(CHERCHE("\";DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1))-1;NBCAR(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1))));NBCAR(GAUCHE(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1);SIERREUR(CHERCHE("\";DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1))-1;NBCAR(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1)))))-8)

[Marc-L]

Bonjour,

vite fait en passant, ce n'est pas une galère en VBA si c'est toujours la même chaine "LC" à extraire
et toujours le tiret pour effectuer la séparation en colonne.

A suivre …

[EngueEngue]

non en vba c'est plus simple, mais le creusage de tête excel m'a fait du bien

[spookyz]

Bonjour à tous,
essaye ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub separ()
 
For i = 1 To 2
lachaine = Cells(i, 1)
posilc = InStr(1, lachaine, "LC", 0)
posisla = InStr(posilc, lachaine, "\", 0)
longchai = posisla - posilc
chaine1 = Mid(lachaine, posilc, longchai)
leschaines = Split(chaine1, "-")
 
Cells(i, 2) = leschaines(0)
Cells(i, 3) = leschaines(1)
 
Next i
End Sub

par contre dans ton exemple la deuxieme ligne ne fini pas par le \
ça pose probleme pour ce que je te propose mais on peu l'arranger
cordialement

[samy35]

Merci beaucoup pour vos réponses;

j'ai testé toutes vos réponses mais c'est celle de EngueEngue qui m'a résolue mon problème, Mais bon je voulais en code vba mais c'est déjà pas mal car elle me donne un coup de pouce.

celle de vcottineau marche aussi ! j'aurais aimé que le code vba de Spookyz marche car il est en vba et ça aurait été une vrai solution pour moi!

j'aimerai bien l'avoir en vba car je suis nulle en programmation!

merci.

[Invité]

Un simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(DROITE(A1;NBCAR(A1)-CHERCHE("LC";A1)+1);5)

devrait suffire avec la chaine de texte à extraire dans la colonne A.

Après s'il y a plusieurs occurrences de "LC" dans la même ligne...

EDIT: J'avais pas vu la deuxième colonne...