Bonjour à tous,
mon problème du jour c'est de conserver l'ordre apparent de ma listbox (multicolonnes dont je peux bouger les lignes à l'aide de boutons Up et Down) dans le report de données sur une feuille recap. Ce code ci-dessous me transfert systématiquement les données par ordre alpha ce que je ne veux surtout pas.
Merci de votre/vos aide/idées/conseils !!
Susy
mon problème du jour c'est de conserver l'ordre apparent de ma listbox (multicolonnes dont je peux bouger les lignes à l'aide de boutons Up et Down) dans le report de données sur une feuille recap. Ce code ci-dessous me transfert systématiquement les données par ordre alpha ce que je ne veux surtout pas.
Code:
Sub Recap()
Dim x As Integer, Ligne As Long
Dim r As Integer, N As Integer
Dim cellule As Range
Set ShRe = ThisWorkbook.Sheets("Recap")
Set ShEx = ThisWorkbook.Sheets("Extraction")
For Ligne = 2 To ShEx.Range("A" & Cells.Rows.Count).End(xlUp).Row
Worksheets("Recap").Select
r = ShRe.Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
If UserForm4.ListBox8.ListCount < 1 Then Exit Sub
For x = 0 To UserForm4.ListBox8.ListCount - 1
For Each cellule In ShEx.Range("C" & Ligne)
If ShEx.Range("C" & Ligne).Value = UserForm4.ListBox8.List(x) Then
With ShRe
.Range("A" & r).Value = ShEx.Range("A" & Ligne).Value
.Range("B" & r).Value = ShEx.Range("B" & Ligne).Value
.Range("C" & r).Value = ShEx.Range("C" & Ligne).Value
.Range("D" & r).Value = ShEx.Range("D" & Ligne).Value
.Range("E" & r).Value = ShEx.Range("E" & Ligne).Value
.Range("F" & r).Value = ShEx.Range("F" & Ligne).Value
.Range("G" & r).Value = ShEx.Range("G" & Ligne).Value
.Range("H" & r).Value = ShEx.Range("H" & Ligne).Value
.Range("I" & r).Value = ShEx.Range("I" & Ligne).Value
.Range("J" & r).Value = ShEx.Range("J" & Ligne).Value
.Range("K" & r).Value = ShEx.Range("K" & Ligne).Value
.Range("L" & r).Value = ShEx.Range("L" & Ligne).Value
.Range("M" & r).Value = ShEx.Range("M" & Ligne).Value
.Range("N" & r).Value = ShEx.Range("N" & Ligne).Value
.Range("O" & r).Value = ShEx.Range("O" & Ligne).Value
.Range("P" & r).Value = ShEx.Range("P" & Ligne).Value
.Range("Q" & r).Value = ShEx.Range("Q" & Ligne).Value
.Range("R" & r).Value = ShEx.Range("R" & Ligne).Value
.Range("S" & r).Value = ShEx.Range("S" & Ligne).Value
.Range("T" & r).Value = ShEx.Range("T" & Ligne).Value
.Range("U" & r).Value = ShEx.Range("U" & Ligne).Value
.Range("V" & r).Value = ShEx.Range("V" & Ligne).Value
.Range("W" & r).Value = ShEx.Range("W" & Ligne).Value
.Range("X" & r).Value = ShEx.Range("X" & Ligne).Value
.Range("Y" & r).Value = ShEx.Range("Y" & Ligne).Value
.Range("Z" & r).Value = ShEx.Range("Z" & Ligne).Value
.Range("AA" & r).Value = ShEx.Range("AA" & Ligne).Value
.Range("AB" & r).Value = ShEx.Range("AB" & Ligne).Value
.Range("AC" & r).Value = ShEx.Range("AC" & Ligne).Value
.Range("AD" & r).Value = ShEx.Range("AD" & Ligne).Value
.Range("AE" & r).Value = ShEx.Range("AE" & Ligne).Value
.Range("AF" & r).Value = ShEx.Range("AF" & Ligne).Value
.Range("AG" & r).Value = ShEx.Range("AG" & Ligne).Value
.Range("AH" & r).Value = UserForm1.ComboSelect.Value
.Range("AI" & r).Value = Date
.Range("AJ" & r).Value = N
N = N + 1
End With
End If
Next cellule
Next x
Next Ligne
End Sub
Merci de votre/vos aide/idées/conseils !!
Susy