Optimisation de code

Version imprimable

Bonjour à tous,

Voilà, le contexte est
une userform avec 4 listbox choix multiples pour 4 familles de choix avec chacunes 3 lignes.
Je souhaite récupérer les valeurs choisies dans une variable qui sera écrite dans une case.

Pour le moment, j'ai ça comme code qui tourne pour récupérer les données...
C'est loin d'être beau mais ça semble fonctionner...
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 'Boucle 1 Jlbx1 = 0 For Ilbx1 = 0 To 2 If ListBox1.Selected(Ilbx1) Then Jlbx1 = Jlbx1 + 1 txtlbx1 = txtlbx1 & "/" & ListBox1.List(Ilbx1) End If Next Jlbx2 = 0 For Ilbx2 = 0 To 2 If ListBox2.Selected(Ilbx2) Then Jlbx2 = Jlbx2 + 1 txtlbx2 = txtlbx2 & "/" & ListBox2.List(Ilbx2) End If Next Jlbx3 = 0 For Ilbx3 = 0 To 2 If ListBox3.Selected(Ilbx3) Then Jlbx3 = Jlbx3 + 1 txtlbx3 = txtlbx3 & "/" & ListBox3.List(Ilbx3) End If Next Jlbx4 = 0 For Ilbx4 = 0 To 2 If ListBox4.Selected(Ilbx4) Then Jlbx4 = Jlbx4 + 1 txtlbx4 = txtlbx4 & "/" & ListBox4.List(Ilbx4) End If Next ActiveCell.Value = txtlbx1 & txtlbx2 & txtlbx3 & txtlbx4
Vous pourriez m'aider à l'optimiser?

Et cerise sur le gateau, comment je peux supprimer le premier caractère qui est systématiquement un "/"...
Merci

Un truc tout simple, tu répètes plein de fois la même boucle. Pourquoi ne pas tout mettre dans une seule et même boucle? :

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
'Boucle 1
Jlbx1 = 0
Jlbx2 = 0
Jlbx3 = 0
Jlbx4 = 0
  For Ilbx1 = 0 To 2
    If ListBox1.Selected(Ilbx1) Then
      Jlbx1 = Jlbx1 + 1
      txtlbx1 = txtlbx1 & "/" & ListBox1.List(Ilbx1)
    End If
    If ListBox2.Selected(Ilbx2) Then
      Jlbx2 = Jlbx2 + 1
      txtlbx2 = txtlbx2 & "/" & ListBox2.List(Ilbx2)
    End If
    If ListBox3.Selected(Ilbx3) Then
      Jlbx3 = Jlbx3 + 1
      txtlbx3 = txtlbx3 & "/" & ListBox3.List(Ilbx3)
    End If
    If ListBox4.Selected(Ilbx4) Then
      Jlbx4 = Jlbx4 + 1
      txtlbx4 = txtlbx4 & "/" & ListBox4.List(Ilbx4)
    End If
  Next
ActiveCell.Value = txtlbx1 & txtlbx2 & txtlbx3 & txtlbx4

Merci beaucoup, pour le caractère en trop au début de la chaine de caractère, j'ai trouvé ça :

Code:

ActiveCell.Value = VBA.Right(txtlbx1 & txtlbx2 & txtlbx3 & txtlbx4, Len(txtlbx1 & txtlbx2 & txtlbx3 & txtlbx4) - 1)

Par contre, sur d'autres postes que le mien, j'ai un message d'erreur lors de l'excécution de cette fonction :
Code:

1 2 3 4 5 6 7 Private Sub ComboBox2_Change() If ComboBox2.Value <> "" Then tel_preparateur = WorksheetFunction.VLookup(ComboBox2.Value, Sheets("Données").Range("Préparateurs"), 2, False) TextBox8.Value = tel_preparateur Else End If End Sub
Excel me dit "erreur de compilation : projet ou bibliothèque introuvable"... j'avoue ne pas comprendre pourquoi!

21/01/2016, 16h37
joe.levrai

Bonjour,

essaye de préfixer le WorkSheetFunction par son parent :

Code:

Application.WorkSheetFunction....