Tri en MACRO

JB

13/07/2007 à 16:56

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/BOControlesListBoxTri ee.xls

JB

On 13 juil, 14:33, "rthompson"
wrote:

rthompson

13/07/2007 à 17:43

Bonjour et merci

Cela fonctionne, mais ce n'est pas ce que je cherche

Je dois garder tous les noms, même si ils sont repris deux ou trois fois

Ce n'est pas dramatique, je peux facilement continuer comme c'est maintenant

C'est juste que je cherche à perfectionner ma feuille au max

Et parfois je suis trop demandeur, je le sais

Quand mon fichier sera fini (dans pas trop longtemps)
je le posterai et alors toi et les autres
pourrez me dire ce qu'il y a moyen d'amméliorer

En tous les cas merci de ton offre et si tu as autre chose, n'hésite pas

A bientôt

Rex
PS

Je visite ton site (pas assez régulièrement) et je me suis déjà servi par le
passée de certains de tes trucs

"JB" a écrit dans le message de news:

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/BOControlesListBoxTriee.xls

JB

On 13 juil, 14:33, "rthompson"
wrote:

Bonjour et merci

Cela fonctionne, mais ce n'est pas ce que je cherche

Je dois garder tous les noms, même si ils sont repris deux ou trois fois

Ce n'est pas dramatique, je peux facilement continuer comme c'est maintenant

C'est juste que je cherche à perfectionner ma feuille au max

Et parfois je suis trop demandeur, je le sais

Quand mon fichier sera fini (dans pas trop longtemps)
je le posterai et alors toi et les autres
pourrez me dire ce qu'il y a moyen d'amméliorer

En tous les cas merci de ton offre et si tu as autre chose, n'hésite pas

A bientôt

Rex
PS

Je visite ton site (pas assez régulièrement) et je me suis déjà servi par le
passée de certains de tes trucs

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1184338573.080310.30920@r34g2000hsd.googlegroups.com...
Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/BOControlesListBoxTriee.xls

JB

On 13 juil, 14:33, "rthompson" <roubliemoithomp...@softscreen.be>
wrote:

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour et merci

Cela fonctionne, mais ce n'est pas ce que je cherche

Je dois garder tous les noms, même si ils sont repris deux ou trois fois

Ce n'est pas dramatique, je peux facilement continuer comme c'est maintenant

C'est juste que je cherche à perfectionner ma feuille au max

Et parfois je suis trop demandeur, je le sais

Quand mon fichier sera fini (dans pas trop longtemps)
je le posterai et alors toi et les autres
pourrez me dire ce qu'il y a moyen d'amméliorer

En tous les cas merci de ton offre et si tu as autre chose, n'hésite pas

A bientôt

Rex
PS

Je visite ton site (pas assez régulièrement) et je me suis déjà servi par le
passée de certains de tes trucs

"JB" a écrit dans le message de news:

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Formulaire/BOControlesListBoxTriee.xls

JB

On 13 juil, 14:33, "rthompson"
wrote:

JB

13/07/2007 à 18:18

Sub auto_open()
Dim temp()
ReDim temp(1 To [A65000].End(xlUp).Row - 1)
For i = 2 To [A65000].End(xlUp).Row
temp(i - 1) = Cells(i, 1)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox1.List = temp
'--
ReDim temp(1 To [B65000].End(xlUp).Row - 1)
For i = 2 To [B65000].End(xlUp).Row
temp(i - 1) = Cells(i, 2)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox2.List = temp
End Sub

Sub tri(a, gauc, droi) ' Quick sort
ref = a((gauc + droi) 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

http://cjoint.com/?hnsr6oNMre

JB

On 13 juil, 17:43, "rthompson"
wrote:

Sub auto_open()
Dim temp()
ReDim temp(1 To [A65000].End(xlUp).Row - 1)
For i = 2 To [A65000].End(xlUp).Row
temp(i - 1) = Cells(i, 1)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox1.List = temp
'--
ReDim temp(1 To [B65000].End(xlUp).Row - 1)
For i = 2 To [B65000].End(xlUp).Row
temp(i - 1) = Cells(i, 2)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox2.List = temp
End Sub

Sub tri(a, gauc, droi) ' Quick sort
ref = a((gauc + droi) 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

http://cjoint.com/?hnsr6oNMre

JB

On 13 juil, 17:43, "rthompson" <roubliemoithomp...@softscreen.be>
wrote:

Vous avez filtré cet utilisateur ! Consultez son message

Sub auto_open()
Dim temp()
ReDim temp(1 To [A65000].End(xlUp).Row - 1)
For i = 2 To [A65000].End(xlUp).Row
temp(i - 1) = Cells(i, 1)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox1.List = temp
'--
ReDim temp(1 To [B65000].End(xlUp).Row - 1)
For i = 2 To [B65000].End(xlUp).Row
temp(i - 1) = Cells(i, 2)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox2.List = temp
End Sub

Sub tri(a, gauc, droi) ' Quick sort
ref = a((gauc + droi) 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

http://cjoint.com/?hnsr6oNMre

JB

On 13 juil, 17:43, "rthompson"
wrote:

rthompson

13/07/2007 à 19:10

Milliards !!!!!!!!

Il faudra que je regardes cela à mon aise

Je rentre souper, et je te contacte ce soir ou demain

A bientôt

Et encore merci

Rex

"JB" a écrit dans le message de news:

Sub auto_open()
Dim temp()
ReDim temp(1 To [A65000].End(xlUp).Row - 1)
For i = 2 To [A65000].End(xlUp).Row
temp(i - 1) = Cells(i, 1)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox1.List = temp
'--
ReDim temp(1 To [B65000].End(xlUp).Row - 1)
For i = 2 To [B65000].End(xlUp).Row
temp(i - 1) = Cells(i, 2)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox2.List = temp
End Sub

Sub tri(a, gauc, droi) ' Quick sort
ref = a((gauc + droi) 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

http://cjoint.com/?hnsr6oNMre

JB

On 13 juil, 17:43, "rthompson"
wrote:

Milliards !!!!!!!!

Il faudra que je regardes cela à mon aise

Je rentre souper, et je te contacte ce soir ou demain

A bientôt

Et encore merci

Rex

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1184343490.332551.115370@57g2000hsv.googlegroups.com...
Sub auto_open()
Dim temp()
ReDim temp(1 To [A65000].End(xlUp).Row - 1)
For i = 2 To [A65000].End(xlUp).Row
temp(i - 1) = Cells(i, 1)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox1.List = temp
'--
ReDim temp(1 To [B65000].End(xlUp).Row - 1)
For i = 2 To [B65000].End(xlUp).Row
temp(i - 1) = Cells(i, 2)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox2.List = temp
End Sub

Sub tri(a, gauc, droi) ' Quick sort
ref = a((gauc + droi) 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

http://cjoint.com/?hnsr6oNMre

JB

On 13 juil, 17:43, "rthompson" <roubliemoithomp...@softscreen.be>
wrote:

Vous avez filtré cet utilisateur ! Consultez son message

Milliards !!!!!!!!

Il faudra que je regardes cela à mon aise

Je rentre souper, et je te contacte ce soir ou demain

A bientôt

Et encore merci

Rex

"JB" a écrit dans le message de news:

Sub auto_open()
Dim temp()
ReDim temp(1 To [A65000].End(xlUp).Row - 1)
For i = 2 To [A65000].End(xlUp).Row
temp(i - 1) = Cells(i, 1)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox1.List = temp
'--
ReDim temp(1 To [B65000].End(xlUp).Row - 1)
For i = 2 To [B65000].End(xlUp).Row
temp(i - 1) = Cells(i, 2)
Next
Call tri(temp, LBound(temp), UBound(temp)) ' voir module mod_tri
Sheets(1).ListBox2.List = temp
End Sub

Sub tri(a, gauc, droi) ' Quick sort
ref = a((gauc + droi) 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub

http://cjoint.com/?hnsr6oNMre

JB

On 13 juil, 17:43, "rthompson"
wrote:

Tri en MACRO

4 réponses

Veuillez sélectionner un problème