coloriser une cellule apres un replace

jdawson · 11 Janvier 2017

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 · 12 Janvier 2017

Bonjour, jdawson , le Forum,

Comme ceci ?

VB:

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 · 13 Janvier 2017

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

coloriser une cellule apres un replace

jdawson

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

jdawson

XLDnaute Junior

Discussions similaires