P
Phil.Brrd
Guest
Bonjour au forum,
(Débutant en VBA)
Voila, j'ai 1 petit pb à résoudre, si quelqu'un pouvait me donner un coup de pouce...
Dans un USF j'ai une combobox qui en fonction de la sélection, m'affiche des valeurs dans une ListBox multisection. Je dois traiter l'ensemble des valeurs sélectionnées de la lisbox vers de nouveaux classeurs excel en faisant des tris.
Comment puis-je récupérer ces valeurs pour pouvoir les traiter? du genre: 'en fonction des champs sélectionnés de la listbox, je lance telle ou telle action)
Ci-dessous le code de ma listboxqui m'a gentillement été proposé sur le forum ...)
Dim I As Integer
Dim tmp As Integer
ReDim myArray(0) As Variant
'************ remplissage du tableau *******
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) Then
tmp = tmp + 1
ReDim Preserve myArray(tmp)
myArray(tmp) = ListBox1.List(I)
End If
Next
'************* vérification ****************
For I = 1 To UBound(myArray)
MsgBox I & ' ' & myArray(I)
Next
Merci pour votre aide à venir.
Philippe
[file name=Serv_20060428114953.zip size=17335]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Serv_20060428114953.zip[/file]
(Débutant en VBA)
Voila, j'ai 1 petit pb à résoudre, si quelqu'un pouvait me donner un coup de pouce...
Dans un USF j'ai une combobox qui en fonction de la sélection, m'affiche des valeurs dans une ListBox multisection. Je dois traiter l'ensemble des valeurs sélectionnées de la lisbox vers de nouveaux classeurs excel en faisant des tris.
Comment puis-je récupérer ces valeurs pour pouvoir les traiter? du genre: 'en fonction des champs sélectionnés de la listbox, je lance telle ou telle action)
Ci-dessous le code de ma listboxqui m'a gentillement été proposé sur le forum ...)
Dim I As Integer
Dim tmp As Integer
ReDim myArray(0) As Variant
'************ remplissage du tableau *******
For I = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(I) Then
tmp = tmp + 1
ReDim Preserve myArray(tmp)
myArray(tmp) = ListBox1.List(I)
End If
Next
'************* vérification ****************
For I = 1 To UBound(myArray)
MsgBox I & ' ' & myArray(I)
Next
Merci pour votre aide à venir.
Philippe
[file name=Serv_20060428114953.zip size=17335]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Serv_20060428114953.zip[/file]