Remplacer avec Replace

Bonjour à tous,

j'ai besoin d'un petit conseil sur la fonction Replace. J'ai une procédure qui après saisie d'un form remplace une chaine, dans le nom des feuilles Excel. Je voulais faire une box "Mot entier" comme sous Excel :

Code:

---

1 2 3 4 5 6 7 8 9 10

If ISR_frmMain.cbSupprExactWord = 0 Then 'la box n'est pas cochée : on remplace tout FinalSheetName = Replace(CurrentSheetName, SupprValue, "", 1) Else 'la box est cochée, on remplace que le mot entier If InStr(1, CurrentSheetName, SupprValue, vbTextCompare) <> 0 Then FinalSheetName = Replace(CurrentSheetName, SupprValue, "", , InStr(CurrentSheetName, SupprValue)) End If End If

---

Exemple :
j'ai 2 feuilles TEST_TEST01_TEST ; TEST_TEST02_TEST
Je veux remplacer "TEST"

- La première condition (lorsque la box "Mot entier" n'est pas cochée) fonctionne bien, elle remplace tout, mes feuilles deviennent _01_ ; _02_
- Lorsque je veux remplacer uniquement TEST (et avoir ainsi _TEST01_, ca ne fonctionne pas... J'ai bien tenté de rechercher la position de la chaine et la passer dans l'argument Count de Replace mais ca ne fonctionne pas bien...

Avez vous une solution pour ca ?

Merci

bonjour

TEST = TEST

Essais avec Right

Code:

---

1 2 3 4 5 6 7

If ISR_frmMain.cbSupprExactWord = 0 Then 'la box n'est pas cochée : on remplace tout FinalSheetName = Replace(CurrentSheetName, SupprValue, "", 1) Else FinalSheetName = Right(CurrentSheetName, Len(CurrentSheetName) - 4)   End If

---

tu dis

merci pour la réponse :king:

si je ne m'abuse, avec Right() ca ne supprime que le dernier "TEST", et non le premier... de plus cette méthode est statique, en fait le mot est entré dans un champ de formulaire, puis récupéré et recherché dans la chaine du nom de la feuille... il ne fait pas que 4 caractères...

merci beaucoup en tous cas

oui:oops:

Left bien sur

Tu peux aussi te servir d'une variable = Len(LeMotrecherche);)

bonne soirée