Discussion :

[IronHeavy]

Bonjour à tous,

Je dispose d'un Userform [FICHE ACTIVITE] qui contient pour le moment 1 ComboBox, 1 TextBox, 1 ListBox et 24 images non visibles à l'ouverture.

La ComboBox s'alimente du nom des feuilles de mon fichier, à la sélection ce nom s'affiche dans la TextBox et la ListBox s'alimente du contenu de la colonne F des feuilles "appelées" (sans doublons et trié).

La ListBox s'alimente de 1 ) 24 valeurs (noms de risques professionnels comme "CHIMIQUE", "ELECTRIQUE", "INCENDIE",...)



Je souhaite que les images associées à ces risques apparaissent lorsque la ListBox les affiche, mais je n'y parviens pas! Evidemment, si je dois changer d'activité (ADMINISTRATIF à COMMERCIAL par exemple) les images devront à nouveau disparaître pour laisser la place aux nouvelles concernées...

Code :

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

Me.Image18.Visible = True

Une suggestion?

[boisgontierjacques]

Bonjour,

CF PJ

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
16
17
18
19
20
21
22
23
24
25
26
27
 
Dim f, bd
Option Compare Text
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set d = CreateObject("Scripting.Dictionary")
  bd = f.Range("A2:D" & f.[A65000].End(xlUp).Row).Value
  Me.ListBox1.List = Application.Index(bd, , 1)
  For i = LBound(bd) To UBound(bd)
     d(bd(i, 3)) = ""
  Next i
  Me.ComboBox1.List = d.keys
End Sub
 
Private Sub ComboBox1_click()
  répertoirePhoto = "c:\photos2"
  famille = Me.ComboBox1
  Me.ListBox1.Clear
  For i = 1 To 6: Me("Image" & i).Picture = LoadPicture: Next i
  n = 0
  For i = LBound(bd) To UBound(bd)
     If bd(i, 3) = famille Then
       Me.ListBox1.AddItem bd(i, 1)
       n = n + 1: Me("image" & n).Picture = LoadPicture(répertoirePhoto & "\" & bd(i, 1) & ".jpg")
     End If
  Next i
End Sub

Boisgontier
http://boisgontierjacques.free.fr

[boisgontierjacques]

Nouvelle version

Boisgontier

[IronHeavy]

Je vous remercie, Jacques, pour votre rapidité et l'exactitude de votre réponse!

Je retrouve mon fichier lundi pour tester et mettre en oeuvre vos solutions!

Je pense que je vais devenir un fan de votre page free ! Quel travail, quelle banque de données!

Chapeau et merci encore

[IronHeavy]

Bonjour Jacques,

j'ai commencé à apprivoiser votre solution. J'ai pu y intégrer mes images et intitulés et moduler les plages pour obtenir le résultat attendu.

Au moment de transposer cette solution à mon fichier, je me suis aperçu que de nombreuses lignes de codes sont quasi identiques (héritage d'une solution que vous proposiez pour alimenter une listbox depuis plusieurs pages excel dans un autre thread).

J'ai fusionné ces codes en croisant les doigts... après ajustement cela fonctionne, mais partiellement:

Je parviens à charger les images prédéfinies, renommées pour correspondre les items collectés dans la ListBox1.

Je ne parviens pas à trouver une formulation qui me permette d'afficher jusqu'à 24 images de risques différents sachant que selon les activités il peut n'y en avoir que 3.

[IronHeavy]

voici le code bloquant:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub ComboBox1_Click()
 
Me.TextBox1 = ComboBox1
Me.ListBox1.Clear
 
Set f = Sheets(Me.TextBox1.Text)
  Set MonDico = CreateObject("Scripting.Dictionary")
  bd = f.Range("B9:B" & f.[F65000].End(xlUp).Row)  ' tableau bd(n,1) pour rapidité
    For i = LBound(bd) To UBound(bd)
   If bd(i, 1) <> "" Then MonDico(bd(i, 1)) = ""
  Next i
  Me.ListBox1.List = MonDico.keys
 
 '--avec tri
  temp = MonDico.keys
  Call Tri(temp, LBound(temp), UBound(temp))
  Me.ListBox1.List = temp
 
With ListBox1
 
 Image1.Picture = Controls("Risque" & .List(.ListIndex, 0)).Picture
 Image2.Picture = Controls("Risque" & .List(.ListIndex + 1, 0)).Picture
 Image3.Picture = Controls("Risque" & .List(.ListIndex + 2, 0)).Picture
 Image4.Picture = Controls("Risque" & .List(.ListIndex + 3, 0)).Picture
 Image5.Picture = Controls("Risque" & .List(.ListIndex + 4, 0)).Picture
 Image6.Picture = Controls("Risque" & .List(.ListIndex + 5, 0)).Picture
 Image7.Picture = Controls("Risque" & .List(.ListIndex + 6, 0)).Picture
 Image8.Picture = Controls("Risque" & .List(.ListIndex + 7, 0)).Picture
 Image9.Picture = Controls("Risque" & .List(.ListIndex + 8, 0)).Picture
 Image10.Picture = Controls("Risque" & .List(.ListIndex + 9, 0)).Picture
 Image11.Picture = Controls("Risque" & .List(.ListIndex + 10, 0)).Picture
 Image12.Picture = Controls("Risque" & .List(.ListIndex + 11, 0)).Picture
 Image13.Picture = Controls("Risque" & .List(.ListIndex + 12, 0)).Picture
 Image14.Picture = Controls("Risque" & .List(.ListIndex + 13, 0)).Picture
 Image15.Picture = Controls("Risque" & .List(.ListIndex + 14, 0)).Picture
End With
End Sub

Par exemple ce code bloque à la 7ème image/risque pour l'activité "ADMINISTRATIF" car il n'y a que 6 risques identifiés dans ce secteur...

MA QUESTION : Comment formuler

Code :

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

Image1.Picture = Controls("Risque" & .List(.ListIndex, 0)).Picture

Pour qu'il s'adapte au nombre d'items de la ListBox 1?


merci d'avance...

edit: la réponse a été apportée sur un autre Thread : "Optimisation code selon contenu ListBox"