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
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