Optimisation code selon contenu ListBox

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

Pièce jointe 305969

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:

---

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:

---

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

---

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

Merci!

Bonjour,

Citation:

---

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.

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:

---

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

---

@ 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... :oops: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:

---

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)

---

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

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.

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


par exemple?

Code:

---

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

Pour compléter la réponse de Philippe Tulliez, il va également falloir que vous supprimiez la référence à la propriété ListIndex.
Et pour que tout soit plus propre, je vous conseille également de vider les images qui ne sont pas censées présenter d'icônes.

Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10

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 .ListCount - 1 temp(i).Picture = Controls("Risque" & .List(i, 0)).Picture Next i For i = .ListCount To UBound(temp) temp(i).Picture = LoadPicture("") Next i End With

---

Tout fonctionne parfaitement!

Merci à tous les 2!