modifier des urls

chris

XLDnaute Barbatruc

• 29 Août 2010

• #2

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 ...

 

Vote positif 0 Vote négatif

S

systmd

Guest

• 29 Août 2010

• #3

Re : modifier des urls

Bonsoir,

Code:

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)

 

Dernière modification par un modérateur: 29 Août 2010

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 29 Août 2010

• #4

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))

Cliquez pour agrandir...

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

 

Dernière édition: 29 Août 2010

Vote positif 0 Vote négatif

I

infotun

Guest

• 29 Août 2010

• #5

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 🙂

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Août 2010

• #6

Re : modifier des urls

Bonjour à tous

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

Code:

[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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Août 2010

• #7

Re : modifier des urls

Suite...

Une autre fonction personnalisée :

Code:

[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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Août 2010

• #8

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

 

Pièces jointes

• Temp.xls

  18.5 KB · Affichages: 54
• Temp.xls

  18.5 KB · Affichages: 55
• Temp.xls

  18.5 KB · Affichages: 62

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 29 Août 2010

• #9

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+

 

Vote positif 0 Vote négatif

I

infotun

Guest

• 30 Août 2010

• #10

Re : modifier des urls

merci pour votre aide 🙂

 

Vote positif 0 Vote négatif