Extraction de données d'une cellule

Bonjour,

Je travaille sur un fichier d'exports de données et certaines cellules d'une colonne contiennent des informations que je voudrais retirer pour ne garder que celles qui m'intéressent.

Je souhaite conserver uniquement les codes respectant les modèles suivants:

• 001L0061
• 001L0024
• et ainsi de suite toujours sur le même principe "3 chiffres""1 L""4 chiffres"

Sur le fichier joint la colonne concernée est la Q.

En l'observant de plus près on s’aperçoit que jusqu'à la ligne 142 l'affaire parait très simple, nous n'avons que ce code qui apparaît .

En revanche dans certaines cellules ce code n'est pas seul (exemple: Q143, Q211...) et c'est là que je coince, comment faire ?

Vous verrez que dans certaines autres cellules ce code est incomplet (exemple: Q203), alors ce n'est pas grave je le laisserai en "erreur" ou vide et le remplacerai manuellement (une recherche dans une autre base de données me sera nécessaire).

Je souhaiterai que le résultat de cette extraction apparaisse en colonne N.

Pouvez-vous m'aider ?

Bonne soirée

Bonjour,

avec une expression régulière de type ([0-9]){3}[L]([0-9]){3}

Function ChercheChaine(chaine, pattern, Optional indice = 1)
  Set obj = CreateObject("vbscript.regexp")
  obj.pattern = pattern
  obj.Global = True
  Set a = obj.Execute(chaine)
  If indice <= a.Count Then ChercheChaine = a(indice - 1) Else ChercheChaine = ""
End Function

Bon, Steelson, je vais m'abstenir, alors?!

A+

Bonsoir à toutes et tous,

Salut Steelson,

J'étais admiratif devant ta fonction, jusqu'à ce que tu me déçoives

Le monsieur a demandé

"3 chiffres""1 L""4 chiffres" et les résultats dans la colonne "N"

Bien entendu, hormis cette correction et cette blague de mauvais goût, je suis vraiment sur le cul, chapeau bas, moi j'en étais encore avec une formule à rallonge et qui ne fonctionnait pas sur toutes les lignes.

Vraiment respect

Bonne soirée.

Bonsoir à vous,

Un grand merci à vous 3 avec une mention particulière pour Monsieur Steelson

Vous avez été vraiment super réactif et efficace ça fait plaisir.

Bonne continuation à vous et à une prochaine sur ce forum

curulis57 a écrit :

Bon, Steelson, je vais m'abstenir, alors?!

A+

Pas du tout, j'aime bien la confrontation des solutions.

mdo100 a écrit :

J'étais admiratif devant ta fonction, jusqu'à ce que tu me déçoives

Le monsieur a demandé

"3 chiffres""1 L""4 chiffres" et les résultats dans la colonne "N"

pour la colonne N, le soucis est que dès qu'une demande dépasse 3 lignes, je suis perdu ...

En tous cas bravo, tu as tout compris !