Tester une cellule et remplacer la valeur

Bonjour à tous,

Voila je parcours ma feuille excel grâce à du VBA.
J'ai certaine cellule qui contiennent des dates sous la forme :
0112 -> Semaine 01 Année 2012

J'ai parfois des caracteres en plus dans mes cellules comme par exemple
937*

Je voudrais testé si ma cellule contient cette * et remplacer
937* par 937

J'ai jeté un oeil dans la FAQ mais je ne vois pas comment je peux me débrouiller.

Merci !

Bonjour,

Avec 'instruction Replace dans une boucle sur les cellules de la plage (ici A1 à B6)

Code:

---

1 2 3 4 5 6 7

Dim Cel As Range   For Each Cel In Range("A1:B6")   Cel.Value = Replace(Cel.Value, "*", "")   Next

---

Bonjour,

Il faut que tu cherche dans ta cellule le caractère "*" avec la fonction InStr

Code:

---

1 2 3 4

if InStr(cel.value,"*")<>0 then 'Test si * est dans ta cellule cel.value = left(cel.value,InStr(cel.value,"*")-1) 'Left renvoi la chaine de caractere a gauche du caractere pointé ici on pointe "*" -1 pour ne pas le prendre end if

---

voila a tester

Bastien

J'avais pensé a la méthode de jFontaine mais je ne voyait pas quoi mettre pour mes deuxieme guillemets. (J'ai mis les deux méthodes dans mon code car j'ai plusieurs tests de ce type)

Merci beaucoup à vous deux !