Reconnaitre une chaine de caractère dans une cell

myDearFriend!

XLDnaute Barbatruc

• 19 Septembre 2005

• #2

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

Cliquez pour agrandir...

Cordialement,

 

Vote positif 0 Vote négatif

P

Paul

Guest

• 19 Septembre 2005

• #3

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

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 19 Septembre 2005

• #4

Re,

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

 

Vote positif 0 Vote négatif

P

Paul

Guest

• 19 Septembre 2005

• #5

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

 

Vote positif 0 Vote négatif