menus déroulants et format de cellules

[kinel]

Bonjour à tous

dans le fichier joint j'ai un groupe de cellules comportant des menus déroulants, je voudrais affecter un format de cellule selon le texte sélectionné comme dans la liste de référence

Merci de votre aide

 

[kinel]

Re : menus déroulants et format de cellules

avec le fichier joint ça va mieux !

 

[tototiti2008]

Re : menus déroulants et format de cellules

Bonjour kinel,

un essai

 

[kinel]

Re : menus déroulants et format de cellules

merci tototiti2008

ça correspond bien
j'essaye de comprendre la commande pour pouvoir l'adapter à d'autres feuilles
peux tu me faire ressortir les variables qui me permettront de transposer ça à d'autres colonnes ?

Merci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
For Each Cellule In Target.Cells
If Cellule.Column = 3 Then
If Application.CountIf(Range("ListRef"), Cellule.Value) > 0 Then
Cellule.Font.Color = Range("ListRef").Range("A" & Application.Match(Cellule.Value, Range("ListRef"), 0)).Font.Color
Cellule.Interior.Color = Range("ListRef").Range("A" & Application.Match(Cellule.Value, Range("ListRef"), 0)).Interior.Color
Else
Cellule.Font.ColorIndex = xlAutomatic
Cellule.Interior.ColorIndex = xlNone
End If
End If
Next
End Sub

 

[kinel]

Re : menus déroulants et format de cellules

pour "If Cellule.Column = 3 Then" pas de problème

là ou ça coince c'est que dans la validation de données tu donnes "ListRef"

comment fais tu pour créer cette "ListRef" ?

 

[kinel]

Re : menus déroulants et format de cellules

ça y est j'ai trouvé tout va bien

exemple en fichier joint si ça peut être utile à quelqu'un

bonne journée à tous

kinel

 

[tototiti2008]

Re : menus déroulants et format de cellules

Bonjour kinel,

désolé, tu travailles trop tôt pour moi

un essai en évitant la double boucle :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cellule As Range
    For Each Cellule In Target.Cells
        If Cellule.Column = 4 Then
            If Application.CountIf(Range("prout"), Cellule.Value) > 0 Then
                Cellule.Font.Color = Range("prout").Range("A" & Application.Match(Cellule.Value, Range("prout"), 0)).Font.Color
                Cellule.Interior.Color = Range("prout").Range("A" & Application.Match(Cellule.Value, Range("prout"), 0)).Interior.Color
            Else
                Cellule.Font.ColorIndex = xlAutomatic
                Cellule.Interior.ColorIndex = xlNone
            End If
        ElseIf Cellule.Column = 3 Then
            If Application.CountIf(Range("ListRef"), Cellule.Value) > 0 Then
                Cellule.Font.Color = Range("ListRef").Range("A" & Application.Match(Cellule.Value, Range("ListRef"), 0)).Font.Color
                Cellule.Interior.Color = Range("ListRef").Range("A" & Application.Match(Cellule.Value, Range("ListRef"), 0)).Interior.Color
            Else
                Cellule.Font.ColorIndex = xlAutomatic
                Cellule.Interior.ColorIndex = xlNone
            End If
        End If
    Next
End Sub