Double liste déroulante

[Ricsavoy]

Re...

Voici le second problème du jour j'ai trouvé une petite macro à ma portée (c'est vous dire mon niveau 😉) pour une double liste déroulante mais elle ne fonctionne pas, j'ai eu beau verifier et re verifier la syntaxe....c'est plouf plouf et re plouf, la seconde liste reste vide c'est diablerie tout ça moi je vous le dis.

D'avance merci.

 

[tototiti2008]

Re : Double liste déroulante

Bonjour Ricsavoy,

VBA est sensible à la casse, c'est à dire que "retenue" n'est pas égal à "Retenue"

le code modifié :

Private Sub coupon_Change()
    Select Case (coupon.Text)
        Case "Absence": detail.ListFillRange = "$Q52:$Q55"
        Case "Retard": detail.ListFillRange = "$Q57:$Q59"
        Case "Infirmerie": detail.ListFillRange = "$Q61"
        Case "Inaptitude EPS": detail.ListFillRange = "$Q63:$Q66"
        Case "Dispense demi-pension": detail.ListFillRange = "$Q68:$Q69"
        Case "Exclusion de Cours": detail.ListFillRange = "$Q71"
        Case "Retenue": detail.ListFillRange = "$Q73"
        Case "Sortie Exceptionnelle": detail.ListFillRange = "$Q75"
    End Select
detail.Text = ""
End Sub

Edit : sinon, ce que tu as fait, ce sont des "listes en cascade"
si tu tapes ces mots dans Recherche, tu verras que ce thème a été traité de nombreuses fois.

 

[Ricsavoy]

Re : Double liste déroulante

Si c'est Diablerie c'est que tu es le diable TotoTiti 😀

Merci beaucoup 😛

 

[tototiti2008]

Re : Double liste déroulante

Re,

Mais non, rien de diabolique là dedans, il suffit de s'habituer aux différences Excel/VBA... Excel n'est pas sensible à la casse, VBA l'est...
Je vous jure, monsieur l'inquisiteur, je ne suis pas un hérétique 😉