Discussion :

[rafikiderevel]

Bonjour à tous,

j'ai un petit peu bossé sur mon projet, mais la je bloque sur une partie importante.

Lorque je selectionne des fonctions dans la listbox de mon UserForm Fonctions, les sous-fonctions relatives à ces fonctions apparaissent dans la listbox "Sousfamille" de l'userform "fonctions".

Mon problème étant, j'aimerai qu'après avoir selectionné ma machine (listbox 1/ UserForm1) puis les sous-fonctions (Sousfamille/Fonctions), les équipements + poids + refs équipant les machines soient copiés/collés dans la feuille résultat (Feuil1).

Cela vous paraitra certainement plus simple avec l'excel joint.

Merci.

Pumba

[Quentin77170]

Bonjour,

Je n'aurai pas le temps de regarder plus pour l'instant, mais j'ai juste une petite remarque qui n'a rien à voir mais qui bloque l'utilisation du formulaire :

Lors de l'initialisation du UserForm1 :

Code :

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

1
2
3
4
5
Derlig = .Cells(65536, 9).End(xlUp).Row 'ou .cells(65536,"I")...ET NON 10 
    For i = 1 To Derlig
        ListBox1.AddItem .Cells(i, 9).Value 'ou .Cells(i,"I") ET NON 10
    Next i
End With

Pour ceux qui voudront regarder, sinon la liste est vide

Quentin

[rafikiderevel]

Bonjour,

En effet quentin, merci. Encore une erreur toute conne.
CI-joint le fichier avec quelques modifications dont la correction de cette erreur.Test_fonction_test.xls