Discussion :

[jeanjean6]

Bonjour,

Voici mon souci :

J'ai troislistes :

listeA :
item1a
item2a
item3a
item4a

listeB :
item1b
item2b
item3b

listeC :
item1c
item2c


J'ai deux cellule :
A,1 et A,2

Dans A,2 j'ai un contrôle : "si A,1 est vide alors A,2 = listeB sinon A,2 = listeC"
Je voudrais ajouter un contrôle dans A,1 : "si A,2= n'importe quel item de listeC alors rayer la couleur de la cellule A,1".

Je ne sais pas si je suis très explicite, si besoin je peux reformuler et / ou afficher un exemple.

Merci à vous

[Igloobel]

Salut,

Dans A,2 j'ai un contrôle ...

c'est comme controle un combobox, un listebox ?

Je voudrais ajouter un contrôle dans A,1 ...

Conseil : fait attention au références circulaire
- A1 reférence a A2
- A2 référence a A1

Dans ton cas pour l'instant ça va mais reste vigilant

Sinon un petit exemple non lié (comme tu as fait pour tes listes) et plus de détails serai le bienvenu

a bientôt

[jeanjean6]

Salut,


c'est comme controle un combobox, un listebox ?

Une simple condition. Il s'agit d'une "validation des données" ce n'est pas un composant VBA.

Conseil : fait attention au références circulaire
- A1 reférence a A2
- A2 référence a A1

Dans ton cas pour l'instant ça va mais reste vigilant

Sinon un petit exemple non lié (comme tu as fait pour tes listes) et plus de détails serai le bienvenu

a bientôt

En effet je joins un exemple car j'explique très mal

[Igloobel]

Salut

pour faire ce que tu veux je ne voit qu'une solution c'est de faire une macro événementielle.

pour cela il faut aller dans le VBA de la feuille (ici Feuil1) et y mettre ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 2 Then
        Select Case Cells(Target.Row, Target.Column).Value
            Case "item1c", "item2c"
                Cells(Target.Row, Target.Column).Offset(0, -1).Interior.Pattern = xlLightUp
            Case Else
                Cells(Target.Row, Target.Column).Offset(0, -1).Interior.Pattern = xlSolid
        End Select
    End If
End Sub

Target étant le cellule active

et voilà

Dis moi si cela te convient

PS : c'est domage que tu t'ais prit un -1 point (main rouge) par ce que tu as mis ton exemple en ligne par contre moi je t'ajoute un point parce que l'idée de mettre une condition dans la source d'une liste de validation non seulement ne m'était jamais venue mais je pensais pas que c'était possible

Igloobel

[jeanjean6]

Merci pour ton retour.

Quant à ton exemple, le souci est que les items de la liste C doivent être écrit en "dur" dans la macro ?

Car pour complexifier le truc, ma liste est mise à jour par un programme externe et donc change régulièrement lol

[jeanjean6]

c'est ok ça fonctionne avec quelques adaptations,
merci Igloobel