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 : Sélectionner tout - Visualiser dans une fenêtre à part
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)