Problème de tri

Anonymous, le forum

Oui, j'ai bien fait ce que tu m'as dit ce qui donne :

Sub Tri_operations()
'
' Tri par mouvements
' Macro enregistrée le 15/07/2002 par ZEZIOLA Jacques
'
With ActiveSheet
If Range("b13").Value = 0 Or Range("b12").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B13:I13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B13"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("B13").Select
Application.ScreenUpdating = True
End With

Mais quand je clique sur le bouton, cela ne trie rien.

Mais es-ce que j'ai utiliser comme méthode pour lancer cette macro est bonne :

1) dans ma feuille j'ai mis un bouton:
2) Clique droit dessus -> Affecter a une macro ( Celle -ci)

et cette macro est dans un module standart

Voila, merci, Jacques
End Sub

bonjour,

je réitère ce que j'ai dit hier à Jacques et que Clément a aussi indiqué. Le
paramètre Dataoption n'existe pas sous Excel 2000. Il faut donc l'enlever de
la ligne pour que le tri puisse fonctionner et ecrire
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom

A+

Clément, le forum

J'ai essayé de supprimer cette ligne, mais aprés il ne se passe plus rien
Soit je m'y prends mal pour l'appel de cette fonction ou alors je ne vois pas
Merci, JAqcues

Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques

Re

Donc, si cela ne fonctionné pas c'était du a un test de la cellule B12 (
Test que j'avais mis je ne sais plus pour quelle raison), et ensuite j'avais
une erreur 1004, du a la protection de la feuille et le trie ne pouvait se
faire, cela donne en finalité :

Sub Tri_operations()
'
' Tri par mouvements
'
With ActiveSheet
.Unprotect
If Range("B13").Value = 0 Then Exit Sub 'Or Range("b12").Value = 0
Application.ScreenUpdating = False
Range("B13:I65536").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("B13").Select
Application.ScreenUpdating = True
.Protect
End With
End Sub

Merci, Jacques

Anonymous, le forum

Oui, j'ai bien fait ce que tu m'as dit ce qui donne :

Sub Tri_operations()
'
' Tri par mouvements
' Macro enregistrée le 15/07/2002 par ZEZIOLA Jacques
'
With ActiveSheet
If Range("b13").Value = 0 Or Range("b12").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B13:I13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B13"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Range("B13").Select
Application.ScreenUpdating = True
End With

Mais quand je clique sur le bouton, cela ne trie rien.

Mais es-ce que j'ai utiliser comme méthode pour lancer cette macro est bonne :

1) dans ma feuille j'ai mis un bouton:
2) Clique droit dessus -> Affecter a une macro ( Celle -ci)

et cette macro est dans un module standart

Voila, merci, Jacques
End Sub

bonjour,

je réitère ce que j'ai dit hier à Jacques et que Clément a aussi indiqué. Le
paramètre Dataoption n'existe pas sous Excel 2000. Il faut donc l'enlever de
la ligne pour que le tri puisse fonctionner et ecrire
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom

A+

Clément, le forum

J'ai essayé de supprimer cette ligne, mais aprés il ne se passe plus rien
Soit je m'y prends mal pour l'appel de cette fonction ou alors je ne vois pas
Merci, JAqcues

Salut a toutes et tous

Voici un code que j'utilise pour trier :

Sub Tri_CI()
'
' Tri par C-I (Code Interne)
'
If Range("B11").Value = 0 Or Range("B123").Value = 0 Then Exit Sub
Application.ScreenUpdating = False
Range("B11:I11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H11"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B11").Select
Application.ScreenUpdating = True
End Sub

Et le message que j'ai me dit que la variable : " xlSortNormal
", n'est pas déclarée.

Je ne comprends pas trop pourquoi

Pouvez-vous me dire le soucie?

Merci, Jacques