Microsoft 365 mise en forme conditionnel

patricktoulon

XLDnaute Barbatruc

• 22 Février 2020

• #16

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

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 22 Février 2020

• #17

et oui c'était patricktoulon
je profite de tes connaissances, ton code est super
merci
galougalou

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 22 Février 2020

• #18

obliger d'utliser du macro ?

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 22 Février 2020

• #19

Bonsoir

Je crois que tu n'as pas le choix. Sans, on ne peut pas mettre en blanc le R, on peut mettre tout le texte en blanc.

@ plus

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 22 Février 2020

• #20

comment on fait pour rentrer la macro ?

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 23 Février 2020

• #21

bonjour le fil
ouvrir l'éditeur vba (avec le raccourci clavier alt+f11 )
pour l'exemple se servir du classeur dans le fil 14
cordialement
galougalou

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 23 Février 2020

• #22

par contre c'est dans l'onglet agents que je veux faire disparaitre le R. on change juste la couleur c'est bien ca ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 23 Février 2020

• #23

RE
BONJOUR
question:
ces valeurs avec "R" sont insérées comment (par formule ou par VBA)?

si par vba c'est l’événement change

si par formule c'est l’événement calculate

donc envoie la sauce et je te fait ça en 2 coup de cuillère a pot

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 23 Février 2020

• #24

C'est moi qui les rentre dans l'onglet donnée agent. Cet onglet alimente tout les plannings et apres c'est par formule qui va chercher les informations avec des conditions( de mois, le nom de l'aggent)

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 23 Février 2020

• #25

faut créer un userform ? si c'est le cas avec ma version 365 et sous mac, je ne peux pas

 

Vote positif 0 Vote négatif