Microsoft 365 mise en forme conditionnel

blancolie

XLDnaute Impliqué
Bonjour le Forum,

voila dans mon planning apparait R0,25 ( R=récupération et 0,25 en décimal =15 Mn) dans les cellules. C'est normal mais je veux voir visuellement que 0,25 et pas le R mais que en apparence car j'ai une formule qui a besoin de cette écriture donc ce que je souhaite, c'est un subterfuge.

Pouvez vous m'aidez svp.
 

patricktoulon

XLDnaute Barbatruc
re
bonsoir galougalou
et celui ci encore mieux adapté avec ce test
If "R" & Replace(cel.Text, "R", "") = cel.Value Then
pour la couleur j'ai du tricher le gris du fait que c'est un tableau structuré
VB:
Sub MOT_EN_COULEUR()
    Dim Plage As Range, mot$
    Set Plage = [D4:D40]
    mot = Range("M1")
    If mot <> "" Then rouletambourg Plage, mot, vbWhite

End Sub
Sub rouletambourg(Plage As Range, mot As String, Optional couleur As Long = vbRed)
    Dim cel As Range, i&
    For Each cel In Plage.Cells
        Debug.Print cel.Value ' Application.Rept("0", Len() - 1)
        If cel <> "" Then
        If "R" & Replace(cel.Text, "R", "") = cel.Value Then
            cel.Characters(1, 1).Font.Color = IIf(cel.Row Mod 2 = 0, vbWhite, &HE0E0E0)
        End If
        End If
        Next
End Sub

demo3.gif
 

Discussions similaires

Réponses
12
Affichages
488

Statistiques des forums

Discussions
314 485
Messages
2 110 101
Membres
110 663
dernier inscrit
ToussaintBug