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

[RyuAutodidacte]

Bonjour,

Il y'a eu une discussion de type récemment :
https://www.developpez.net/forums/d1...t/#post9588224

Avec plusieurs solution à la clé … à voir si cela convient

Edit : Voilà un exemple avec la fonction que j'avais faite :

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
16
17
18
Sub MaRecupText()
Dim Txt$
    Txt = "03/07/2017;200038579;4822575354;S;1,00;2,50;21;"
    MsgBox RecupText(Txt, ";", 1, 7)
    Txt = "11/07/2017;300003017;4822581676;S;1,00;11,80;92.69;"
    MsgBox RecupText(Txt, ";", 1, 7)
End Sub
 
Function RecupText(Txt As String, Cara As String, Optional Nb As Integer, Optional Deb As Integer = 1, Optional Fin As Integer) As String
Dim i As Integer, TxToTab, TabToTxt
    TxToTab = Split(Txt, Cara)
    Deb = Deb - 1: If Fin > 0 Then Fin = Fin - 1 Else If Nb = 0 And Fin = 0 Then Fin = UBound(TxToTab) Else Fin = Deb + Nb - 1
    If Fin > UBound(TxToTab) Or Deb > Fin Or Deb > UBound(TxToTab) Then _
        RecupText = "Fonction non valide, vérifier les paramètres : " & vbCrLf & """Nb"", ""Deb"" ou ""Fin""": Exit Function
    ReDim TabToTxt(Deb To Fin)
    For i = Deb To UBound(TabToTxt): TabToTxt(i) = TxToTab(i): Next
    RecupText = Join(TabToTxt, Cara)
End Function

Avec une recherche, avant de poster, on peut soit trouver un début de réponse, soit trouver sa réponse, ne pas hésité à le faire

[patricktoulon]

bonsoir
le problème est beaucoup plus simple que ca ryu
ce que le demandeur demande c'est prendre la derniere valeur si la valeur du sheet2 correspond a la valeur 3


je cite

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

Code :

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

1
2
3
4
5
6
7
valeur_a_chercher = 4822581676#
 Txt = "11/07/2017;300003017;4822581676;S;1,00;11,80;92.69;"
 If UBound(Split(Txt, ";" & valeur_a_chercher & ";")) > 0 Then
 toto = Split(Txt, ";")(UBound(Split(Txt, ";")) - 1) ' le-1 c'est pour le dernier ";" qui sert a rien a la fin dans la chaine
 Debug.Print toto
End If
End Sub

on peut meme ajouter le control que la valeur recherchée se trouve bien en 3 eme position

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    valeur_a_chercher = "4822581676"
    txt = "11/07/2017;300003017;4822581676;S;1,00;11,80;92.69;"
    If UBound(Split(txt, ";" & valeur_a_chercher & ";")) > 0 Then
        If Split(txt, ";")(2) = valeur_a_chercher Then
            toto = Split(txt, ";")(UBound(Split(txt, ";")) - 1)    ' le-1 c'est pour le dernier ";" qui sert a rien a la fin dans la chaine
            Debug.Print toto
        End If
    End If
End Sub

[RyuAutodidacte]

Coucou Patrick,

Et ce xml ca chauffe

je retourne au serieux !

si je montre cette fonction c'est pour son coté pratique, elle permet de récupérer n'importe quelle partie du string selon les paramètres voulu (Cf le lien et les différents exemples (2 posts à voir pour les exemples)).
Cela évite à la personne qui l'utilise, de faire de multiples codes pour la récupération de texte.

Sinon personnellement je préfère ici InStr :

Code :

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

1
2
3
4
5
valeur_a_chercher = 4822581676#
 Txt = "11/07/2017;300003017;4822581676;S;1,00;11,80;92.69;"
 If  InStr(Txt, valeur_a_chercher) > 0 Then
    RecupText(Txt, ";", 1, 7) 'il peut utiliser la fonction et même si besoin récupérer le 5ème, 2ème etc comme ça lui chante - tout paramétrable et juste à utiliser
 End If

ou encore :

Code :

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

1
2
3
4
5
valeur_a_chercher = 4822581676#
 Txt = "11/07/2017;300003017;4822581676;S;1,00;11,80;92.69;"
 If  RecupText(Txt, ";", 1, 3) = valeur_a_chercher Then
    RecupText(Txt, ";", 1, 7) 'il peut utiliser la fonction et même si besoin récupérer le 5ème, 2ème etc comme ça lui chante - tout paramétrable et juste à utiliser
 End If

Ryu

[patricktoulon]

oui tu a raison ca fait le test like et index en même temps c'est vrai

le xml non c'est froid ,j'ai fini depuis longtemps et ca i me donne un résultat encore mieux que enregistrer sous(html)

mais j'ai eu d'autre propositions je prends la peine de tester c'est normal
mais je sais d'avance qu'ils vont tous en venir a la même conclusion que moi sinon c'est la centrale nucléaire