coloriser une cellule apres un replace

jdawson

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

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

XLDnaute Junior
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 !!!
 
Dernière édition:

Discussions similaires

Réponses
4
Affichages
732

Statistiques des forums

Discussions
312 897
Messages
2 093 393
Membres
105 720
dernier inscrit
gumoreau