Remplir une listbox d'une fonction FIND

Bonjour à tous,

J'aimerai avoir votre avis sur mon code, J'ai trois onglets dans la feuille excel.

Je viens ouvrir un formulaire à laide d'un Bouton sur ma feuille " Fonction"avec trois listbox dedans.

Quand vous cliquer sur la liste de la premiere listbox, la Seconde listbox se charge puis quand vous cliquer sur la liste de la seconde listbox, la troisième listbox se charge.

Le problème , c'est que j'arrive à faire afficher la première colonne de chaque listbox1 & listbox2 c'est à dire la colonne " Zéro " car j'ai un range de donnée définit dans chaques onglet qui est "Fontion" et l'onglet "Détail".

Par contre, Je n'arrive pas a faire remplir ma dernière listbox avec les trois colonnes de trois range de donnée par mon dernier onglet " SDdetail"

J'ai réaliser le code du formulaire à l'aide de la fonction "Find".

Pour etre plus précis j'ai laissé à disposition mon fichier.

Je suis a votre service pour plus de précision

Merci d'avance

Cordialement

JAckJack

Bonjour,

Dans l'USF remplace le code par celui-ci

Private Sub lbxDet_Click()
ufmFonction.lbxSDet.Clear
With Sheets("SousDetail").Range("SD_fon")
    Set c = .Find(ufmFonction.lbxDet.Text, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            With Me.lbxSDet
                .AddItem c.Value
                .List(.ListCount - 1, 1) = Range(c.Address).Offset(, 1).value
                .List(.ListCount - 1, 2) = Range(c.Address).Offset(, 2).value
            End With
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer ta demande

Amicalement

Merci beaucoup dan ! Sa marche du tonerre !