Chercher 3 caractères dans une chaîne

[Tungstene]

Bonjour à tous,

Dans un tableau, j'entre grâce à une usf des idées comportant notamment une référence.
J'ai donc des références du type :

IPJ81MERL001
IPJ81MERL002
…

Dans ces références, les seules choses qui changent sont le numéro et les 3 lettres avant le L.
Ces 3 lettres peuvent être MER / EVR / SAN / …

Ce que je souhaiterais c'est que mon code cherche uniquement dans ma référence ces 3 lettres de manière à incrémenter la référence automatiquement.

Ex : avec les références suivantes :

IPJ81MERL001
IPJ81EVRL001
IPJ81EVRL002
IPJ81SANL001
IPJ81EVRL003
IPJ81MERL002
IPJ81MERL003
IPJ81SANL002
IPJ81EVRL004
…

Voilà ce que j'obtiens dans ma colonne.
Donc, si pour une nouvelle référence, je veux qu'elle concerne les 3 lettres MER, le résultat de la nouvelle référence sera donc :

IPJ81MERL004

Donc pour incrémenter automatiquement cette référence, il faut que mon code aille chercher la référence précédente composée de MER. Soit ici : IPJ81MERL003 et me dise de prendre la même référence avec +1.

J'utilise le code suivant pour remonter dans ma colonne, mais je sais pas comment faire pour lui dire de chercher uniquement les 3 lettres (MER ou EVR ou…)

For k = 8 To Range('G65535').End(xlUp).Row

Next

Merci.

 

[Abel]

Bonjour Tungsten,

Ci-joint un exemple. Dis nous s'il te convient.

La méthode que j'ai choisie s'affranchi du tri chrono des références.


En espérant que cela te dépanne.

Abel. [file name=ExempleTungstene.zip size=10504]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleTungstene.zip[/file]

Edition :
Dans le 'Private Sub CommandButton1_Click()'
Les lignes :

Dim DL
DL = Range('a65536').End(xlUp).Row

ne servent à rien.

Message édité par: Abel, à: 17/11/2005 17:00

 

[Tungstene]

Salut,

Et bien bravo c'est exactement ce que je voulais.
Je suis impressioné et je vais pouvoir apprendre plein de chose.
Merci encore.

A+