XL 2010 Extraction texte cellule avec plusieurs critères

[lola18]

Bonjour,

Tout d'abord, mes excuses, sujet surement déjà traité, j'ai d'ailleurs cherché des formules sur le forum et tenté de les appliquer à ma problématique... en vain

Sujets consultés:

• https://www.excel-downloads.com/threads/extraction-de-donnees-texte-dans-une-cellule.20019645/
• https://www.excel-downloads.com/thr...lule-excel-se-trouvant-entre-caract.20018391/

Mon problème : J'ai des urls avec plusieurs répertoire et souhaiterai en extraire qu'un seul ( le premier en l’occurrence). J'ai trois formats d'urls différents :

• /dossiers/texte123 résultats souhaité dossiers
• /article-126 résultats souhaité
  article-124
• /carte?method=select&Str_Search=14 résultats souhaité carte

Comme vous pourrez le constater j'ai différents délimiteurs / ou ? ou rien

Vous trouverez en fichier exemple en PJ.

Merci d'avancez

 

[Robert]

Bonjour Lola, bonjour le forum,

Une proposition VBA avec le code ci-dessous :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim P As Integer 'déclare la variable P (Position)

Set O = Worksheets("Feuil1") 'définit l'onget O
DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 3 To DL 'boucle sur toutes les lignes I de 3 à DL
    If O.Cells(I, "A").Interior.ColorIndex = xlNone Then 'condition : si l'intérieur de la cellule n'est pas coloré
        Select Case UBound(Split(O.Cells(I, "A").Value, "/")) 'agit en fonction du nombre de slashes "/" contenu dans la cellule
            Case Is > 1 'plus d'un
                'renvoie dans la colonne B le texte entre les deux premiers slashes
                O.Cells(I, "B").Value = Split(O.Cells(I, "A"), "/")(1)
            Case Is = 1 'un seul
                P = InStr(1, O.Cells(I, "A"), "?", vbTextCompare) 'définit la position P du caractère "?"
                If P = 0 Then 'condition : si le caractère "?" n'existe pas
                    'renvoie dans la colonne B le texte après le premier slash
                    O.Cells(I, "B").Value = Mid(O.Cells(I, "A").Value, 2)
                Else 'sinon (si la caractère "?" existe)
                    'renvoie dans la colonne B le texte après le premer slash et avant "?"
                    O.Cells(I, "B").Value = Mid(O.Cells(I, "A"), 2, P - 2)
                End If 'fin de la condition
        End Select 'fin de l'action en fontion du nombre de slashes
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

 

[job75]

Bonjour lola18, Robert,

Vous auriez pu soigner un peu plus la présentation du fichier et mettre le calcul des formules en mode automatique 🙄

Si tous les url commencent par un slash "/", formule en B2 à tirer vers le bas :

=STXT(A2;2;TROUVE("/";SUBSTITUE(A2;"?";"/")&"/";2)-2)

A+

 

[lola18]

Bonjour Robert et job75,

Merci pour vous vos retours, désolé pour la présentation un peu "foutoir", pour les calculs automatiques... désactivé par défaut sur mon excel.....

Merci encore.