XL 2013 macros avec 2 condition

[arrazki]

Bonjour,

je suis bloqué, pouvez-vous m'aider?
j'ai crée cette marco qui marche très bien mais quant je rajoute une condition elle ne fonctionne plus
(quand j'ajoute if cellule.Value Like "cr" Then cellule = cellule * -1)


Sub remplaceiris()
Dim cellule As Range
For Each cellule In Selection

if cellule.Value Like "cr" Then cellule = cellule * -1

Cells.Replace What:="cr", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

end if

Next
End Sub


pouvez-vous m'aider? svp

merci

 

[Dranreb]

Bonjour.
Déjà il faudrait if cellule.Value Like "*cr*"
parce que cellule.Value Like "cr" Eqv cellule.Value = "cr"

 

[arrazki]

Bonjour.
Déjà il faudrait if cellule.Value Like "*cr*"
parce que cellule.Value Like "cr" Eqv cellule.Value = "cr"

merci pour ta réponse mais ca ne marche pas
je veux que lorsque la cellule contient CR elle remplace CR par "" et qu'elle multiplie par -1
est ce possible ?

 

[Dranreb]

V = cellule.Value
if V Like "*cr*" Then cellule.value = -Replace(V, "CR", "")