Extraction d'une liste de caractères

[adrienraki]

Bonjour,

Je dois extraire une liste de caractère ce présentant sous cette forme 8chiffres.htm soit par exemple 12345678.htm dans une liste d'url comme celle ci :

Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus

Je précise que c'est sur une très grosse liste d'url, et dans cette liste bon nombre d'url ne contiennent pas la valeur à extraire, de plus l'url n'a jamais le même nombre de caractères.

Si quelqu'un a une idée, merci d'avance

 

[mutzik]

Re : Extraction d'une liste de caractères

bonjour,

merci de nous fournir un fichier d'exemples

 

[pierrejean]

Re : Extraction d'une liste de caractères

bonjour adrienraki

Et bienvenue sur XLD

Salut Mutzik

Avec une fonction personnalisée

 

[adrienraki]

Re : Extraction d'une liste de caractères

Bonjour PierreJean,

Merci beaucoup d'avoir pris le temps de regarder. Par contre je pense qu'il y a une erreur car cela extrait bien 8 chiffres, mais le dernier chiffre est manquant, et un chiffre supplémentaire s'ajoute devant le premier.

Adrien

 

[pierrejean]

Re : Extraction d'une liste de caractères

Re

Effectivement il y avait une erreur !!!

Vois si cela va mieux

 

[JHA]

Re : Extraction d'une liste de caractères

Bonjour à tous,

Un essai par formule

=SIERREUR(STXT(A1;CHERCHE(".htm";A1;1)-8;(CHERCHE(".htm";A1;1))-(CHERCHE(".htm";A1;1)-8))*1;"")

JHA

 

[david84]

Re : Extraction d'une liste de caractères

Bonjour tout le monde,
en ne prenant en compte que les exemples fournis :
par formule :

=SI(ESTNUM(CHERCHE(".htm";A1));STXT(A1;CHERCHE(".htm";A1)-8;8);"")

par vba :

Function huithtm(chaine) As String
If chaine Like "*########.htm" Then huithtm = Left(Right(chaine, 12), 8)
End Function

A+

 

[adrienraki]

Re : Extraction d'une liste de caractères

Merci beaucoup à vous tous! Très bon esprit ici, c'est rare.

Adrien

 

[BOISGONTIER]

Re : Extraction d'une liste de caractères

Bonjour,

=SI(DROITE(A1;4)=".htm";GAUCHE(DROITE(A1;12);8);"")

jb