Discussion :

[daduck]

En A1, il y a : "azertyuiop"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim chaine as string
chaine = Range("A1").value

Je voudrais suprimmer les 3 premieres lettres et les trois dernieres lettre de la chaine.

A la fin, la chaine doit etre egal a "rtyu" mais pas "___rtyu___" ou "___rtyu"

Merci d'avance. JC

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Mot = "azertyuiop"
NewMot = Mid(Mot, 4, Len(Mot) - 6)

NewMot commence ainsi à la quatrième lettre et se termine trois lettres avant la fin (4 - 3 = 1 et 3 + 3 = 6)

[daduck]

Encore une fois merci, ouskel'n'or.

Mon projet est bientot fini, merci pour votre aide. JC.