rendre inactive une liste

Bonjour à tous,

J'ai deux listes et suivant la valeur de la première liste, je dois rendre l'autre inactive et la griser.

La première liste se trouve en B5. Si elle prend la valeur "AKG" alors la liste située en C5 doit être inactive et grisée.

J'ai essayé de bidouiller moi même mais ça ne marche pas. Pourriez-vous svp m'aider? et surtout : où dois-je placer ce code??? (je dois sélectionner la liste en C5 et l'associer à mon code?)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub GriserCellule()   couleur = C5.BackColor   Dim coul As Long If B5 = AKG Then test = False coul = &H8000000F Else test = True coul = couleur End If C5.Enabled = test   With C5 .Enabled = test .BackColor = coul End With   End Sub

---

merci pour votre aide :)
Aud- (débutante)

Salut canary et le forum
Plutôt que par macro (pour la couleur, et encore, une MFC devrait suffire), pourquoi pas en couplant tes listes ?
A+

salut Gorfael,

excuse-moi mais je ne comprends rien à tes fichiers excel :oops:
tes fichiers sont liés? ils font quoi?

Salut canary te le forum
Les deux fichiers traitent de listes de Validation Couplées :
Test_liste.xls : la liste de D5 est asservie au choix de la liste en C5
Listes couplées.xls : Les listes de la colonne C sont asservies aux choix en colonne B (à l'aide d'une formule en A).

Comme on ne sait que c'est un sujet qui traite de "Liste", j'ai opté pour des listes de validation.
A+

ok je comprends tes exemples de listes groupées mais cela ne peut pas aller pour ce que je veux faire. Car moi je souhaite :
* rendre la case inactive
* la grisée
Il faut donc passer par une macro il me semble ;)
surtout que mon code est presque juste, il ne doit me manquer qu'un petit chouillia pour le debugguer....

merci en tout cas, je garde tes exemples pour une autre applications ;)
Aud-

Salut canary et le forum

Citation:

---

surtout que mon code est presque juste, il ne doit me manquer qu'un petit chouillia pour le debugguer....

---

C'est toute la différence entre le vainqueur et le presque vainqueur :D

La propriété Enabled n'est pas applicable aux Range.
Ce que tu peux faire, par exemple, c'est utiliser la Macro WorksheetSelection_Change, et si ça concerne C5, vérifier qu'elle n'est pas grisée, sinon remettre le focus sur B5 (par exemple).

ce qui donnerait des macros du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B5" Then 'si la cellule modifiée est B5, alors If Target = "AKG" Then [C5].Interior.ColorIndex = 48 Else [C5].Interior.ColorIndex = xlNone End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(0, 0) = "C5" Then If [C5].Interior.ColorIndex = 48 Then [B5].Activate End If End Sub

---

Clic-droit sur le nom de l'onglet => Menu contextuel>>Visualiser le code
C'est dans la feuille macro liée à la feuille de calcul qu'il faut mettre les macro.

Pour les couleurs, je préfère utiliser Colorindex que color (les tests passent mieux).
A+

Youhouuu!! ça marche trop bien! merki ! et du premier coup en plus :D trop fort ;) :king:

juste un truc : quel est le contraire de "[B5].Activate"
en gros comment la passer de désactivée à activée ?
(parce que j'ai un bouton clear qui efface toutes les données mais quand j'efface, la case BE reste désactivée... embêtant!)

Salut canary et le forum

Citation:

---

[B5].Activate

---

J'aurais pu mettre [B5].Select. Mais comme j'utilise souvent des macro apprentissage, que je nettoye de leur Select, j'utilise Activate, qui sur une cellule revient au même

Citation:

---

j'ai un bouton clear qui efface toutes les données

---

Donne ton code et on rendra celà possible (cellule BE ?).
Ce que fait la macro, c'est qu'à chaque sélection de C5, si elle est grisée, il reselctionne B5 => si tu effaces B5, ou qu'elle contient autre chose que "AKG", elle redevient C5 peut être sélectionnée
A+