T
Temjeh
Guest
Bonjour
Hervé ma fait ceci(qui fonctionne tres bien) pour un trie spécial:
Sub Macro1()
Dim tablo As Variant
Dim tablosplit As Variant
Dim i As Integer
Dim j As Byte, k As Byte
Dim temp
tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)
ReDim Preserve tablo(1 To UBound(tablo), 1 To 2)
For i = 1 To UBound(tablo)
tablosplit = Split(tablo(i, 1), ' ')
tablo(i, 2) = tablosplit(1)
Next i
For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If tablo(i, 2) < tablo(j, 2) Then
For k = 1 To 2
temp = tablo(i, k)
tablo(i, k) = tablo(j, k)
tablo(j, k) = temp
Next k
End If
Next j
Next i
For i = 1 To UBound(tablo)
Cells(i, 2) = tablo(i, 1)
Next i
End Sub
J'aimerais si possible aulieu de lire col A et mettre le trie en col B mettre col C et insére le trie en col D. J,ai essayé mais j'ai des erreurs.
Merci beaucoup
Temjeh
Hervé ma fait ceci(qui fonctionne tres bien) pour un trie spécial:
Sub Macro1()
Dim tablo As Variant
Dim tablosplit As Variant
Dim i As Integer
Dim j As Byte, k As Byte
Dim temp
tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)
ReDim Preserve tablo(1 To UBound(tablo), 1 To 2)
For i = 1 To UBound(tablo)
tablosplit = Split(tablo(i, 1), ' ')
tablo(i, 2) = tablosplit(1)
Next i
For i = 1 To UBound(tablo)
For j = 1 To UBound(tablo)
If tablo(i, 2) < tablo(j, 2) Then
For k = 1 To 2
temp = tablo(i, k)
tablo(i, k) = tablo(j, k)
tablo(j, k) = temp
Next k
End If
Next j
Next i
For i = 1 To UBound(tablo)
Cells(i, 2) = tablo(i, 1)
Next i
End Sub
J'aimerais si possible aulieu de lire col A et mettre le trie en col B mettre col C et insére le trie en col D. J,ai essayé mais j'ai des erreurs.
Merci beaucoup
Temjeh