transfert sélection listbox vers tableau excel

[Fabien]

bonjour tout le monde
me revoilà avec un nouveau problème sur lequel je suis à bout
j'espère que vous pourrez m'aider.

mon pb est le transfert des valeurs sélectionnées dans une listbox d'un userform vers une colonne d'un tableau excel, ces valeurs déclenchent des recherches
je voulais aussi savoir si elles peuvent se classer dans l'ordre croissant au cours du transfert.

je vous remercie d'avance pour toute aide
j'ai joins un morceau du fichier en activant les macros
vous devrez double cliquez un numéro de semaine; puis passez à la page 'SMTA' pour effectuer une sélection et enfin appuyer sur le bouton '=>' rouge, normalement VBA vous emmene sur mon pb.

MERCI A+ [file name=problème-listbox_20050412145520.zip size=47893]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/problème-listbox_20050412145520.zip[/file]

 

[fabien]

je sais pas si mon problème est trop complexe ou mal expliqué donnez moi au moins une raison de l'améliorer s'il vous manque des infos, vous êtes ma dernière chance. :ermm:

 

[ChTi160]

Salut 'Fabien
j'ai jeté un oeil sur ton fichier

Private Sub valid_sr_smta_Click()

Dim i As Byte
For i = 0 To Coûts_Hebdo.listesmtasr.ListCount - 1
With Coûts_Hebdo.listesmtasr
If .Selected(i) = True Then
DerLgn = Worksheets('Préfacturation SMTA').Range('E39') .End(xlUp).Row + 1
Range('E'&DerLgn) = .List(.ListIndex, 0)

End If
End With
Next i

que veux tu dire par
je voulais aussi savoir si elles peuvent se classer dans l'ordre croissant au cours du transfert.
Amicalement
Jean Marie

 

[ChTi160]

Re
voilà ou j'en suis avec tri des données

Private Sub valid_sr_smta_Click()
Dim Tablo(), Tmp
Dim i As Byte, L As Byte, L2 As Byte
x = 1
For i = 0 To Coûts_Hebdo.listesmtasr.ListCount - 1
With Coûts_Hebdo.listesmtasr
If .Selected(i) = True Then
ReDim Preserve Tablo(x)
DerLgn = Worksheets('Préfacturation SMTA').Range('E39').End(xlUp).Row + 1
Tablo(x) = .Column(0, i) 'rempli le tableau ou.list(i)

.Selected(i) = False

x = x + 1
End If
End With
Next i
For L = 1 To UBound(Tablo) 'tri du tableau
For L2 = L + 1 To UBound(Tablo)
If Tablo(L2) < Tablo(L) Then
Tmp = Tablo(L)
Tablo(L) = Tablo(L2)
Tablo(L2) = Tmp
End If
Next L2
Next L
For L = 1 To UBound(Tablo) 'insertion des valeurs dans les cellules
Cells(7 + L, 5) = Tablo(L)
Next

End Sub
Bonne Nuit
Amicalement
Jean Marie

Message édité par: ChTi160, à: 12/04/2005 22:33

 

[fabien]

je suis désolé de répondre aussi tardivement en ce qui concerne le tri ; les numéro de tournées ont un rapport avec les jours 100 pour lundi, 200 pour mardi...
merci pour ton aide elle m'est très précieuse.
je vais essayer le code que tu m'as donné je serai connecté ce soir vers 19h30
merci encore