Liste en cascade
Bonjour,
Je suis bloqué dans mon code VBA. Je veux que quand ma conbobox 1 (Liste_congés ) = "C", alors je peut choisir mes option appelé "OptionC" dans la conbobox 2 (Liste_C).
Voici le code pour la conbobox 1 :
If Range("BV25") = "B" Then
liste_conges.Clear
For i = 7 To 13
Me.liste_conges.AddItem Sheets("Sources").Cells(i, 8)
Next i
End If
L'optonc C se trouve en B de 14 a 16
Bonjour zeux8 et
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire :
- La charte du forum
- Quelques fonctionnalités du forum à connaître
qui vous aideront dans vos demandes et réponses sur ce forum.
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)
Merci pour votre participation
A+
Re,
Merci du retour, mais dans ce cas, ne soyez pas égoïste
il serait bien de donner la solution pour tous ceux qui comme vous chercherons
A+
re,
Oui, dsl, pas de soucis,
Il fallait que je rentre mon code non pas dans le bouton "ajouter" ni dans le conbobox 2 mais dans conbobox 1(Liste_congés ) représenté sous le texte " Définir la nature du congé"
Code du conbobox 1 (Liste_congés ) représenté sous le texte " Définir la nature du congé"
Private Sub liste_conges_Change()
If liste_conges = "C" Then
liste_C.Clear
For i = 14 To 16
Me.liste_C.AddItem Sheets("Sources").Cells(i, 2)
Next i
End If
If liste_conges <> "" And liste_conges <> "C" Then
liste_C.Clear
Me.liste_C = Sheets("Sources").Cells(14, 2)
End If(Image Pour le For i = 14 to 16)
