coloriser une cellule apres un replace

[jdawson]

bonjour

dans une macro toute simples j ai des remplacement du style

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

ca marche bien mais

je voudrais colorer la cellule en rouge si le replace a été positif à savoir si la lettre que l'on devait remplacer se trouver bien dans la cellule

en fait dans ma macros j ai une dizaine de Cells. replace
je voudrais qu en lancant la macros ca me remplace mes caractère et que cela me montre par une couleur les cellules touchées par Cells.replace afin de faire un controle que tout a bien été remplacé et surtout par la bonne lettre (problème de restitution d accent)

merci par avance

Bruno

 

[DoubleZero]

Bonjour, jdawson , le Forum,

Comme ceci ?

Option Explicit
Sub CommandButton1_Click()
    Dim c As Range
    For Each c In Selection.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
        If c.Value Like "*Ù*" Then
            c.Interior.ColorIndex = 3
            c.Replace What:="Ù", Replacement:="o", LookAt:=xlPart
        End If
    Next
End Sub

A bientôt

 

[jdawson]

Bonjour Double Zero

merci pour ta réponse tout d abord,

ca marche mais sauf erreur de ma part cela colorise les cellules seulement dans le premier cas rencontré pour un replace,
toutefois cela fait le replace dans toutes les cellules nécessaire, car j a i trouvé des cellules modifié mais sans la couleur,

oups !! j avais laissé cells.replace et non c.replace apparement cela n a pas le meme effet en tout cas cette fois ci j ai bien toute mes cellules coloreés !!


merci à toi !!!