Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" a écrit dans le message de
groupe de
discussion :
Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion :
#xckx9C6JHA.6136@TK2MSFTNGP03.phx.gbl...
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" <ivburo@discussions.microsoft.com> a écrit dans le message de
groupe de
discussion : 6BA9ABC3-DD14-49CB-A457-2033FFD7188C@microsoft.com...
Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" a écrit dans le message de
groupe de
discussion :
Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" a écrit dans le message de
groupe de
discussion :
Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion :
#xckx9C6JHA.6136@TK2MSFTNGP03.phx.gbl...
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" <ivburo@discussions.microsoft.com> a écrit dans le message de
groupe de
discussion : 6BA9ABC3-DD14-49CB-A457-2033FFD7188C@microsoft.com...
Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" a écrit dans le message de
groupe de
discussion :
Ma question va paraître bizarre mais j'aurais besoin que excel me trie une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Bonjour Péhemme,
Tu as parfaitement raison : ceci aurait été suffisant en supposant
que les données sont en colonne A.
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Pourquoi j'ai inséré cette ligne de code par la suite :
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Sûrement, suite à une distraction... merci de l'avoir souligné.
"Péhemme" a écrit dans le message de groupe de discussion :
Bonjour Denis,
Si tu lis ces lignes, à quoi sert le :
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
de ta macro ?
Par l'utilisation de celle-ci, pour autant que la colonne "C" soit remplie
elle fonctionne parfaitement.
Je teste pas à pas mais ne comprends pas.
Merci d'avance.
Bien amicalement
Michel
"MichDenis" a écrit dans le message de
news:%Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" a écrit dans le message de
groupe de
discussion :
Ma question va paraître bizarre mais j'aurais besoin que excel me trie
une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Bonjour Péhemme,
Tu as parfaitement raison : ceci aurait été suffisant en supposant
que les données sont en colonne A.
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Pourquoi j'ai inséré cette ligne de code par la suite :
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Sûrement, suite à une distraction... merci de l'avoir souligné.
"Péhemme" <xx@xx.xx> a écrit dans le message de groupe de discussion :
OjNioDN9JHA.1380@TK2MSFTNGP02.phx.gbl...
Bonjour Denis,
Si tu lis ces lignes, à quoi sert le :
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
de ta macro ?
Par l'utilisation de celle-ci, pour autant que la colonne "C" soit remplie
elle fonctionne parfaitement.
Je teste pas à pas mais ne comprends pas.
Merci d'avance.
Bien amicalement
Michel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:%238sr4HD6JHA.4892@TK2MSFTNGP06.phx.gbl...
Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion :
#xckx9C6JHA.6136@TK2MSFTNGP03.phx.gbl...
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" <ivburo@discussions.microsoft.com> a écrit dans le message de
groupe de
discussion : 6BA9ABC3-DD14-49CB-A457-2033FFD7188C@microsoft.com...
Ma question va paraître bizarre mais j'aurais besoin que excel me trie
une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~
Bonjour Péhemme,
Tu as parfaitement raison : ceci aurait été suffisant en supposant
que les données sont en colonne A.
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Pourquoi j'ai inséré cette ligne de code par la suite :
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Sûrement, suite à une distraction... merci de l'avoir souligné.
"Péhemme" a écrit dans le message de groupe de discussion :
Bonjour Denis,
Si tu lis ces lignes, à quoi sert le :
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
de ta macro ?
Par l'utilisation de celle-ci, pour autant que la colonne "C" soit remplie
elle fonctionne parfaitement.
Je teste pas à pas mais ne comprends pas.
Merci d'avance.
Bien amicalement
Michel
"MichDenis" a écrit dans le message de
news:%Moi, je préfère celle-ci :
Sub test()
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
With Rg.Offset(, 1)
.Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
.Value = .Value
.Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
.Copy Rg
.Clear
End With
Application.ScreenUpdating = True
End Sub
'-------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'--------------------------------
"MichDenis" a écrit dans le message de groupe de
discussion :
#
Bonjour Ivburo,
Tu copies ce qui suit dans un module STANDARD.
dans la procédure TEST, tu adaptes le nom de la feuille (Propriété Name)
ainsi que la plage de cellules où sont tes données.
La procédure utilise la colonne à droite des données de façon
temporaire. n'importe quelle colonne peut faire l'affaire. Tu
adaptes le "1" dans la procédure pour la colonne de ton choix.
'-------------------------------------------------------
Sub test()
Dim X
Dim Rg As Range
Application.ScreenUpdating = False
With Feuil1
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Set Rg = Range("C1:C" & Range("C65536").End(xlUp).Row)
Rg.Offset(, 1).Formula = "=Inverse(" & Rg(1).Address(0, 0) & ")"
'1 représente une colonne à droite d'où sont les données
X = Rg.Offset(, 1)
Rg.Offset(, 1).Clear
Rg = BubbleSort(X)
Application.ScreenUpdating = True
End Sub
'-------------------------------------------------------
Function Inverse(Rg)
Inverse = VBA.StrReverse(Rg)
End Function
'-------------------------------------------------------
Function BubbleSort(List)
' Sorts the List array in ascending order
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp
First = LBound(List)
Last = UBound(List)
For i = First To Last - 1
For j = i + 1 To Last
If List(i, 1) > List(j, 1) Then
Temp = List(j, 1)
List(j, 1) = List(i, 1)
List(i, 1) = Temp
End If
Next j
Next i
BubbleSort = List
End Function
'-------------------------------------------------------
"ivburo" a écrit dans le message de
groupe de
discussion :
Ma question va paraître bizarre mais j'aurais besoin que excel me trie
une
liste en lisant les chiffres de la colonne concernée à l'envers. En fait
mes
références finissent toutes par 3 ou 2 et je voudrais les trier pour les
séparer.
J'espère que c'est compréhensible. :~