Reconnaitre une chaine de caractère dans une cell

[Paul]

Bonsoir à tous le forum,

Félicitation pour cet excelent site

Pouriez-vous svp m'aider :

1-) Comment sur une celule A1 faire une recheche sur le second caractère :

R20525609EC



If ....='2'

Then...



2-) Comment sur une celule A1 faire une recheche sur les 10 et onzième caractère :


R20525609EC


If ....='EC'

Then...





En vous remerciant pour votre aide.

Paul

 

[myDearFriend!]

Bonsoir Paul, le forum.

Il te faut utiliser la fonction Mid().

Mid(Chaine, PositionDébut, Longueur)

Comme suit :

      If Mid('R20525609EC', 2, 1) = '2' Then ...

      'Et

      If Mid('R20525609EC', 10, 2) = 'EC' Then ...

Cordialement,

 

[Paul]

Merci beaucoup myDearFriend,

J'ai un souci

La chaîne contenue dans la cellule A1 varie mais aura toujours la même structure et le même nombre de caractère.

Exemple :

R20525609EC
B20530114MA
R20520104CC


Paul

 

[myDearFriend!]

Re,

Heu... Paul, faut-il que je devine la question ? :S

 

[Paul]

Re-bonsoir myDearFriend,

Désolé pour le manque de précision de mon précédent post :-(

j'ai adapté ton code en ajoutant devant

Dim chaine As String
chaine = [feuil1!A1]
If Mid(chaine, 2, 1) = '2' Then...



C'est OK, maintenant

Merci pour tous.

Paul