modifier des urls

[infotun]

Bonjour,
j'ai une liste d'urls longues que je veux transformer comme suit:

--------
Ce lien n'existe plus ==>Ce lien n'existe plus

Ce lien n'existe plus ==>Ce lien n'existe plus

------------
j'ai essayé mais je n'ai rien trouvé.

Merci

 

[chris]

Re : modifier des urls

Bonjour

Il faudrait préciser exactement la règle.

A partir de tes deux exemples on pourrait déduire qu'il faut enlever la toute dernière partie ...

 

[systmd]

Re : modifier des urls

Bonsoir,

Function FilePath(strPath As String) As String
Dim Nbr As Integer
Dim Nbt As Integer
Dim Trouve As Integer
Nbr = 0
Nbt = 1

strPath = Replace(strPath, "/", "\")

Do

Trouve = InStr(Nbt, strPath, "\")

  If Trouve > 0 Then
    Nbr = Nbr + 1
    Nbt = Trouve + 1
    Else
    Exit Do
    End If
Loop

If Nbr > 2 Then
       FilePath = Left$(strPath, InStrRev(strPath, "\"))
       Else
       FilePath = strPath
       End If
End Function

en A2 : Ce lien n'existe plus
en B2 : =FilePath(A2)

 

[david84]

Re : modifier des urls

Bonjour,
à tester en B1, ta liste étant en colonne A :

=GAUCHE(A1;NBCAR(A1)-EQUIV("/";STXT(A1;NBCAR(A1)-LIGNE($1:$255);1);0))

Formule matricielle à valider par Ctrl, Maj et entrée.
A+

 

[infotun]

Re : modifier des urls

Bonjour,
merci pour votre aide,
J'ai essayé les deux exemples sans aboutir à rien..
vue que je ne connais pas grand chose à excel pouvez vous svp intégrer vos formules dans un fichiers Excel et uploader sur le forum..


Merci

 

[ROGER2327]

Re : modifier des urls

Bonjour à tous

Une autre formule matricielle, i.e. à valider par Ctrl MAJ Entrée :

[B][COLOR="DimGray"]=GAUCHE(A1;MAX(SI(ESTERR(CHERCHE("/";A1;LIGNE($1:$255)));0;LIGNE($1:$255))))[/COLOR][/B]

ROGER2327
#4021

Jeudi 19 Phalle 137 (Prélote, capucin, SQ)
12 Fructidor An CCXVIII
2010-W34-7T16:02:35Z

 

[ROGER2327]

Re : modifier des urls

Suite...

Une autre fonction personnalisée :

[COLOR="DarkSlateGray"][B]Function tata$(s$)
   tata = Left$(s, InStrRev(s, "/"))
End Function[/B][/COLOR]

ROGER2327
#4022

Jeudi 19 Phalle 137 (Prélote, capucin, SQ)
12 Fructidor An CCXVIII
2010-W34-7T16:09:00Z

 

[ROGER2327]

Re : modifier des urls

Suite...

Un fichier...​

ROGER2327
#4023

Jeudi 19 Phalle 137 (Prélote, capucin, SQ)
12 Fructidor An CCXVIII
2010-W34-7T16:15:51Z

 

[david84]

Re : modifier des urls

Re, salut Roger,
ma formule initiale comportait une erreur. J'ai testé celle que j'ai modifiée (cf mon 1er message) sur le fichier de Roger et cela semble donner le résultat escompté.
Rappel : formule matricielle à valider par Ctrl, Maj et entrée.
A+

 

[infotun]

Re : modifier des urls

merci pour votre aide