Rendre images visible selon contenu de ListBox

Version imprimable

18/08/2017, 17h18
IronHeavy

1 pièce(s) jointe(s)

Rendre images visible selon contenu de ListBox

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",...)

Pièce jointe 304205

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:

Me.Image18.Visible = True

Une suggestion?

2 pièce(s) jointe(s)

Bonjour,

CF PJ

Code:

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

18/08/2017, 20h16
boisgontierjacques

1 pièce(s) jointe(s)

Nouvelle version

Boisgontier
19/08/2017, 13h18
IronHeavy

remerciements

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
22/08/2017, 09h09
IronHeavy

1 pièce(s) jointe(s)

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.

voici le code bloquant:

Code:

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:

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"