Discussion :

[Tydher]

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 !

[jfontaine]

Bonjour,

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

Code :

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

1
2
3
4
5
6
7
Dim Cel As Range
 
For Each Cel In Range("A1:B6")
 
    Cel.Value = Replace(Cel.Value, "*", "")
 
Next

[bastou93]

Bonjour,

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

Code :

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

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

[Tydher]

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 !