Discussion :

[Sparfell29]

Bonjour à tous,
lors de ma dernière visite j'avais reçu de l'aide pour mettre au point un formulaire d'arrêt de commercialisation comportant 9 listbox identiques devant être reportées toutes les 3 colonnes à partir de la colonne H. https://www.developpez.net/forums/d1...lonne-precise/
Je dois aujourd'hui essayer de l'adapter pour en faire un formulaire de Non conformité (Voir image). J'en suis actuellement à la première page j'ai donc 6 combobox différentes pour un total de 9 listbox (les 4 risques différents sont côtés avec les mêmes 4 indices : acceptable, modéré, élevé, inacceptable).
J'essaye de faire comme dans le formulaire précédent et de charger mes combobox avec les listes contenues dans ma deuxième feuille intitulée "Listes" lors de l'initialisation du formulaire. A mon grand damne je n'ai visiblement rien compris à ce qui a été fait avec moi précédemment et je n'arrive pas à faire l'adaptation seul.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Compare Text
Dim nomtableau
 
'Initialisation du formulaire
Private Sub UserForm1_Initialize()
  nomtableau = "produit"
  Me.enreg = Range(nomtableau).Rows.Count + 1
  Me.ID = Application.Max(Range(nomtableau).Columns(1)) + 1
  Tbl = Range(nomtableau).Value
  Tri Tbl, LBound(Tbl), UBound(Tbl), 1
  Me.Recherche.List = Tbl
  For s = 1 To 4
    Me("Criticité" & s).List = [Tableau3].Value
  Next s
End Sub

J'ai tenté comme ça mais ça ne fonctionne pas, pareil avec Array(), je n'ai pas tenté avec Rowsource car je voudrais vraiment comprendre ce truc d'appel de donnée d'une liste du tableur pour remplir une listbox à l'initialisation.
Enfin bref au secours quoi !
Je vous ai mis en PJ mon travail actuel, celui de la dernière fois et une capture d'écran du formulaire sous format Word pour donner une idée globale de "la chose" si jamais vous avez des idées pour simplifier la forme (checkbox au lieu de listbox etc...)
Je vous remercie par avance de l'aide que vous voudrez bien m'apporter !
Cordialement,
Erwan.