Discussion :

[alk54]

Hello !

Merci d'avance pour votre aide précieuse :

Je cherche depuis une bonne heure comment extraire une suite de caractères au milieu d'une autre, exemple concret :

en A1 j'ai :
03/07/2017;200038579;4822575354;S;1,00;2,50;21;

en A2 :
11/07/2017;300003017;4822581676;S;1,00;11,80;92.69;

Dans un deuxième tableau (autre fichier), j'ai un tableau trié par la 3ème valeur entre les points virgules (4822575354 et 4822581676 dans l'exemple ici), auquel je souhaite faire correspondre la dernière valeur (21 et 92.69).
Mon but serait donc d'avoir :

4822575354 en A1 et 21 en A2
4822581676 en A1 et 92.69 en A2

J'ai cru comprendre que je devrais utiliser plusieurs fonctions en une seule, mais compte tenu de mon niveau en Excel, je peux y passer plusieurs mois...
J'espère m'être exprimé clairement !

Merci encore,

[BENNASR]

bonsoir
supposons en A 1 tu as : 03/07/2017;200038579;4822575354;S;1,00;2,50;21;
insérer la formule suivante en b1 : =DROITE(GAUCHE(A1;20);9)
tu aura : 200038579

[alk54]

Merci pour ta réponse !
Malheureusement, c'est la deuxième série dont j'ai besoin (4822575354 dans l'exemple), mais c'est surtout que le reste de mes données n'est pas aussi bien trié.

J'ai aussi ce genre de lignes :

02/06/2017;3000315339;4812975250;S;1,00;2,50;17;


J'aurais donc vraiment besoin de récupérer le contenu du troisième bloc entre ;; ainsi que celui du dernier (même si il y a un point, ou une virgule)

[lucasgaetan]

bonjour,

dans un module:

Code :

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

1
2
3
Function MonSplit(LeString, separateur, indice)
    MonSplit = Split(LeString, separateur)(indice)
End Function

puis insérer la formule suivante en B1 =MonSplit(A1;";";SOMMEPROD((NBCAR(A1)-NBCAR(SUBSTITUE(A1;";";""))))-1)

a+ bon Wk

[BENNASR]

bonsoir
voir ça c'est intéressant : http://silkyroad.developpez.com/VBA/...nesCaracteres/
j'ai lu et j'ai trouver ça qui te permet de copier la troisième bloc :

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 extractionMots()
    Dim Tableau() As String
    Dim i As Integer
 
    'découpe la chaine en fonction des espaces " "
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(Cells(1, 1), ";")
 
    'boucle sur le tableau pour visualiser le résultat
    For i = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
        Debug.Print Tableau(i)
    Next i
    Cells(1, 2) = Tableau(2)
End Sub

[BENNASR]

voila le code modifié pour parcourir toute la colonne A ou se trouve la chaîne de caractère
le résultat en colonne B

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 extractionMots()
    Dim Tableau() As String
    Dim i As Integer
    Dim j As Long
     With Sheets("feuil1")
    j = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 1 To j
    Tableau = Split(.Cells(j, 1), ";")
    For i = 0 To UBound(Tableau)
        Debug.Print Tableau(i)
    Next i
    .Cells(j, 2) = Tableau(2)
    Next j
    End With
End Sub