Discussion :

[canary]

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)

[Gorfael]

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+

[canary]

salut Gorfael,

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

[Gorfael]

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+

[canary]

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-

[Gorfael]

Salut canary et le forum

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

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 :

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

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+

[canary]

Youhouuu!! ça marche trop bien! merki ! et du premier coup en plus trop fort

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!)

[Gorfael]

Salut canary et le forum

[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

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+