Liste déroulante dépendante ou (en cascade)

Bonjour,

J'ai essayé de créer une liste déroulante dépendante via cette vidéo youtube (chaîne Learn Access) : Excel VBA - Créer une Liste déroulante dépendante en code VBA.

L'objectif est lorsque je sélectionne un type d'intervention dans mon formulaire il me sélectionne la nature des activités correspondante. Par exemple mon type d'intervention est "désherbage mécanique" alors dans ma liste déroulante nature de l'activité ne figure que les options correspondantes au type d'intervention.

Mes listes figurent dans la feuille nommée "at" sur mon fichier excel.

Mon code fonctionne lorsque j'exécute l'userform mais ne fonctionne plus lorsque je lance le formulaire à partir de la feuille "Tableau de bord"

Ci joint le fichier excel avec le code vba.

Merci d'avance pour votre aide.

Le code en question :

Dim Colonne As Integer  

 Dim i As Integer, j As Integer

Private Sub UserForm_Initialize()  

Colonne = 1 

Sheets("at").Range("A1:H1").Interior.ColorIndex = Clear  

Do While Cells(1, Colonne).Value <> ""  

 fmrsaisie.Cbbtype.AddItem Cells(1, Colonne).Value  

 Colonne = Colonne + 1  

Loop  

End Sub

Private Sub Cbbtype_Change()

<br>i = 1  

fmrsaisie.Cbbnatact.Clear  

Sheets("at").Range("A1:H1").Interior.ColorIndex = Clear  

Do While Cells(1, i).Value <> ""  

 If Cells(1, i).Value = Cbbtype.Value Then  

Cells(1, i).Select  

 Colonne = ActiveCell.Column  

End If  

i = i + 1  

Loop  

j = 2  

Do While Cells(j, Colonne).Value <> ""  

 fmrsaisie.Cbbnatact.AddItem Cells(j, Colonne)  

 j = j + 1  

Loop  

Cbbnatact.ListIndex = 0  

End Sub

Bonjour,

Do While Cells(1, Colonne).Value <> "" 

De quelle feuille (onglet) > Cells sera lu ??

Si l'information n'est pas là > Cells lira la feuille active ...

Renseigne correctement et le code fonctionnera de partout ...

exemple : Do While Sheets("at").Cells(1, Colonne).Value <> ""

ric

En effet cela fonctionne maintenant merci pour ta réponse

ric