Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:76B58E6F-9CB0-4750-8CD3-553686CF6D89@microsoft.com...
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:76B58E6F-9CB0-4750-8CD3-553686CF6D89@microsoft.com...
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:76B58E6F-9CB0-4750-8CD3-553686CF6D89@microsoft.com...
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:76B58E6F-9CB0-4750-8CD3-553686CF6D89@microsoft.com...
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain,
Je ne suis pas capable de t'envoyer le fichier, j'ai un problème d'adresse. Si tu veux bien me fournier une adresse valide !
Je t'expédie le fichier.
Salutations!
"" a écrit dans le message de
news:
Bonsoir et te remercie beaucoup je vais aller le consulter mais dans tri
execution tu as mis sheet 1 et sur l'autre Feuil 1 est ce normal? Pourrais je
te répondre par mail? Je vais voir cela tu sais que j'y ai passé beaucoup de
temps. Je suppose que tu as du en passer un peu aussi .MERCI encore
..Cordialement . AlainBonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain,
Je ne suis pas capable de t'envoyer le fichier, j'ai un problème d'adresse. Si tu veux bien me fournier une adresse valide !
Je t'expédie le fichier.
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:FFDDE071-5652-4B48-9851-2AE75D7AE1D4@microsoft.com...
Bonsoir et te remercie beaucoup je vais aller le consulter mais dans tri
execution tu as mis sheet 1 et sur l'autre Feuil 1 est ce normal? Pourrais je
te répondre par mail? Je vais voir cela tu sais que j'y ai passé beaucoup de
temps. Je suppose que tu as du en passer un peu aussi .MERCI encore
..Cordialement . Alain
Bonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:76B58E6F-9CB0-4750-8CD3-553686CF6D89@microsoft.com...
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour Alain,
Je ne suis pas capable de t'envoyer le fichier, j'ai un problème d'adresse. Si tu veux bien me fournier une adresse valide !
Je t'expédie le fichier.
Salutations!
"" a écrit dans le message de
news:
Bonsoir et te remercie beaucoup je vais aller le consulter mais dans tri
execution tu as mis sheet 1 et sur l'autre Feuil 1 est ce normal? Pourrais je
te répondre par mail? Je vais voir cela tu sais que j'y ai passé beaucoup de
temps. Je suppose que tu as du en passer un peu aussi .MERCI encore
..Cordialement . AlainBonjour Alain
Tu as un fichier exemple dans ta bal.
Salutation"
"" a écrit dans le message de
news:
Bonjour. J'ai ecrit ce que tu mas dit c'est à dire cela Set Plage > > ..Range("H2:O" & .Columns("H:O").Find(What:="*", SearchDirection:=xlPrevious,
SearchOrder:=xlByRows).Row) et je me suis apercu,parceque cela ne donnait
rien que si je mettais H70 à la place de H2 dans cette phrase ca me trie la
ligne 69 et c'est tout. Un petit arrangement devrais faire fonctionner cette
superbe macro .Stp merci tu y es presque . Cordialement . AlainRemplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Bonjour,
Tu dois avoir un programme "Anti spam" ou autre chose ... puisque le
message est refusé !
Salutations!
""
a écrit dans le message de
news:
Rebonjour. Aufait data option1:=xlSort normal il ne le prends pas il
marque
"erreur de compilation" et dessous "Attendu expression" peut etre pour
cela
que ca marche pas car je l'ai enlevé de la macro. Merci. Cordialement
Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de
ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que
celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
""
a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
""
a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal c'est ma mini macro je desirerais
qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance .
Amitiées.
Alaiun
Bonjour,
Tu dois avoir un programme "Anti spam" ou autre chose ... puisque le
message est refusé !
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com>
a écrit dans le message de
news:33036BE8-EDC1-4E2A-BA3B-53995877EBC5@microsoft.com...
Rebonjour. Aufait data option1:=xlSort normal il ne le prends pas il
marque
"erreur de compilation" et dessous "Attendu expression" peut etre pour
cela
que ca marche pas car je l'ai enlevé de la macro. Merci. Cordialement
Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de
ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que
celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr"
<alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr"
<alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal c'est ma mini macro je desirerais
qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance .
Amitiées.
Alaiun
Bonjour,
Tu dois avoir un programme "Anti spam" ou autre chose ... puisque le
message est refusé !
Salutations!
""
a écrit dans le message de
news:
Rebonjour. Aufait data option1:=xlSort normal il ne le prends pas il
marque
"erreur de compilation" et dessous "Attendu expression" peut etre pour
cela
que ca marche pas car je l'ai enlevé de la macro. Merci. Cordialement
Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de
ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que
celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
""
a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
""
a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal c'est ma mini macro je desirerais
qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance .
Amitiées.
Alaiun
Bonjour,
Tu dois avoir un programme "Anti spam" ou autre chose ... puisque le
message est refusé !
Salutations!
""
a écrit dans le message de
news:
Rebonjour. Aufait data option1:=xlSort normal il ne le prends pas il
marque
"erreur de compilation" et dessous "Attendu expression" peut etre pour
cela
que ca marche pas car je l'ai enlevé de la macro. Merci. Cordialement
Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de
ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que
celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
""
a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
""
a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal c'est ma mini macro je desirerais
qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance .
Amitiées.
Alaiun
Bonjour,
Tu dois avoir un programme "Anti spam" ou autre chose ... puisque le
message est refusé !
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com>
a écrit dans le message de
news:33036BE8-EDC1-4E2A-BA3B-53995877EBC5@microsoft.com...
Rebonjour. Aufait data option1:=xlSort normal il ne le prends pas il
marque
"erreur de compilation" et dessous "Attendu expression" peut etre pour
cela
que ca marche pas car je l'ai enlevé de la macro. Merci. Cordialement
Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de
ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que
celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr"
<alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr"
<alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal c'est ma mini macro je desirerais
qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance .
Amitiées.
Alaiun
Bonjour,
Tu dois avoir un programme "Anti spam" ou autre chose ... puisque le
message est refusé !
Salutations!
""
a écrit dans le message de
news:
Rebonjour. Aufait data option1:=xlSort normal il ne le prends pas il
marque
"erreur de compilation" et dessous "Attendu expression" peut etre pour
cela
que ca marche pas car je l'ai enlevé de la macro. Merci. Cordialement
Alain
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de
ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que
celle spécifiée dans ta question, modifie cette ligne
decode
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
""
a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
""
a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight,
_
DataOption1:=xlSortNormal c'est ma mini macro je desirerais
qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance .
Amitiées.
Alaiun
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:8F8754F1-A801-4C76-A25A-8DE170EAB27C@microsoft.com...
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . Alain
Bonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"alain.bazire@wanadoo.fr" <alainbazirewanadoofr@discussions.microsoft.com> a écrit dans le message de
news:84E3676B-B245-4BAF-87B7-4976E4A5D2E6@microsoft.com...
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
Remplace seulement "Feuil1" dans la procédure par le nom de l'onglet de ta feuille où tu dois appliquer le tri.
P.S. Si tu veux appliquer le tri sur une autre plage de données que celle spécifiée dans ta question, modifie cette ligne
de
code
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
Salutations!
"" a écrit dans le message de
news:
Rebonsoir. Fautil que j'appelle ma feuille " Withworksheets("Feuil1") "
Merci encore . AlainBonjour Alain,
Dans un module standard, copie le code suivant (les 2 procédures)
et exécute la macro TriHorizontal() .
ATTENTION : prend soin de modifier le nom de la feuille
selon le nom de la feuille de ton application dans la
procédure TriHorizontal avant de la lancer :
ligne de code :
With Worksheets("Feuil1")
'---------------------------------------
Sub TriHorizontal()
Dim Plage As Range
With Worksheets("Feuil1")
Set Plage = .Range("H2:O" & .Columns("H:O").Find _
(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row)
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
TriExecution Plage
Application.EnableEvents = True
Set Plage = Nothing
End Sub
'---------------------------------------
Sub TriExecution(Rg As Range)
Dim R As Range
Dim A As Long
For Each R In Rg.Rows
A = A + 1
R.Sort Key1:=Rg(A, 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next
Set Rg = Nothing
End Sub
'---------------------------------------
Salutations!
"" a écrit dans le message de
news:
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal c'est ma mini macro je desirerais qu'elle
trie de gauche à droite jusquà la ligne 40000 . Merci d'avance . Amitiées.
Alaiun
