Discussion :

[IronHeavy]

Bonjour A tous,

Mon projet se compose actuellement:

- une ComboBox (alimentée par le nom des pages de mon projet - ACTIVITES PROFESSIONNELLES),

- une TextBox (alimentée par l'item sélectionné depuis la Combobox),

- une ListBox (alimentée par une Banque de Donnée conditionnée par l'activité sélectionnée - RISQUES PROFESSIONNELS),

- 24 icônes représentant chacune un risque professionnel,

- 24 images vierges qui se chargent lorsque le nom du risque apparaît dans la ListBox.

L'objectif est d'obtenir une fiche de risques dynamique par activité.



MON PROBLEME:

Lorsque je sélectionne une activité comportant moins de risques que d'images prévues par mon code, un message d'erreur apparaît:

"Erreur d'exécution '381':
Impossible de lire la propriété List. Index de table de propriétés non valide."

ci dessous le code mis en cause:

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
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

Il me semble que je pourrais optimiser ces lignes de code en une ligne générique sous conditions de "remplissage" de l'index de la ListBox, mais toutes mes tentatives échouent!

Code :

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

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

Une âme charitable aurait-elle une piste à me proposer?

Merci!

[Philippe Tulliez]

Bonjour,

MON PROBLEME:
Lorsque je sélectionne une activité comportant moins de risques que d'images prévues par mon code, un message d'erreur apparaît:
"Erreur d'exécution '381':
Impossible de lire la propriété List. Index de table de propriétés non valide."

A la grosse louche sans avoir examiné toute la procédure et selon la description que tu as faites de ton problème, je supprimerais les lignes 21 à 35 que je remplacerais par une boucle avec un test sur le contenu de .List(.ListIndex + 12, 0) où la constante 12 doit être remplacé par l'indice de la boucle.

[IronHeavy]

@ Philippe Tulliez

C'est ce que je tâtonne depuis hier,
mais autodidacte récent, je ne maîtrise pas suffisamment le langage VBA pour rédiger une boucle fonctionnelle!
J'imagine que rédiger une boucle doit être une des bases de la programmation... je n'en ai malheureusement aucune!

@Ben_L

Ca fonctionne parfaitement! Merci beaucoup pour cette solution rapide et pertinente!
Il ne me reste plus qu'à analyser ce code pour en comprendre le mécanisme!

edit: Aïe: ma première sélection Combox fonctionne, pas les sélections suivantes...

N'y aurait-il pas conflit entre ces lignes?

Code :

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

1
2
3
4
Me.ListBox1.List = temp
 
temp = Array(Me.Image1, Me.Image2, Me.Image3, Me.Image4, Me.Image5, Me.Image6, Me.Image7, _
            Me.Image8, Me.Image9, Me.Image10, Me.Image11, Me.Image12, Me.Image13, Me.Image14, Me.Image15)

[IronHeavy]

J'ai localisé le soucis:

Si la ListBox contient moins d'items que d'images à charger, le code bloque et retourne le message d'erreur:

"Erreur d'exécution '381':
Impossible de lire la propriété List. Index de table de propriétés non valide."

On en revient au problème initial...

Il faudrait pouvoir adapter le nombre d'images à charger en fonction du nombre d'items de la ListBox à chaque changement de sélection de la ComboBox!

J'enrage de ne pouvoir me débrouiller à ce stade, ça ne me paraît pas sorcier, mais avec mes lacunes...

[Philippe Tulliez]

Bonjour,
On en revient à l'idée de boucle.
La propriété ListCount du contrôle ListBox te donnera le nombre d'éléments qu'il y a dans la liste.

[IronHeavy]

... et donc je dois intégrer cette commande avant d'effectuer la suite de l'opération j'imagine...


par exemple?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
   n = Me.ListBox1.ListCount 
 
temp = Array(Me.Image1, Me.Image2, Me.Image3, Me.Image4, Me.Image5, Me.Image6, Me.Image7, _
            Me.Image8, Me.Image9, Me.Image10, Me.Image11, Me.Image12, Me.Image13, Me.Image14, Me.Image15)
 
With Me.ListBox1
    For i = 0 To n
 
        temp(i).Picture = Controls("Risque" & .List(.ListIndex + i, 0)).Picture
    Next i
End With

pas fonctionnel mais je ne suis pas apte à comprendre pourquoi...

[Ben_L]

Bonjour,

Concernant l'erreur que vous rencontrez, avez-vous comparé les valeurs de "ListBox1.ListIndex + 14" et de "ListBox1.ListCount" ?

Pour ce qui est factoriser une partie de votre code, vous pourriez remplacer tout le contenu de votre With par :

Code :

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

1
2
3
4
5
6
7
temp = Array(Me.Image1, Me.Image2, Me.Image3, Me.Image4, Me.Image5, Me.Image6, Me.Image7, _
            Me.Image8, Me.Image9, Me.Image10, Me.Image11, Me.Image12, Me.Image13, Me.Image14, Me.Image15)
With Me.ListBox1
    For i = 0 To UBound(temp)
        temp(i).Picture = Controls("Risque" & .List(.ListIndex + i, 0)).Picture
    Next i
End With