Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel MACRO he oui encore moi

MACRO he oui encore moi

26 réponses
Avatar
alain.bazire
TOUJOURS MON PROBLEME DE TRI.
Range("H2:O2").Select
Selection.Sort Key1:=Range("H2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, 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
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
alain.bazire
Un bonjour tres matinal je te donne adresse mail du boulot
ou merci cordialement. Alain


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 . Alain


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 . 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!


"" a écrit dans le message de
news:
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!





"" 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




















Avatar
michdenis
Bonsoir Alain,

Fichier envoyé.

P.S. Tu devrais annuler (supprimer) tes messages où tu donnes une adresse Internet valide. La raison : Ne pas être submerger
par des tas de pourriels !


Salutations!



"" a écrit dans le message de
news:
Un bonjour tres matinal je te donne adresse mail du boulot
ou merci cordialement. Alain


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 . Alain


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 . 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!


"" a écrit dans le message de
news:
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!





"" 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




















Avatar
sabatier
tiens, tiens, encore un créateur d'automobiles....c'est GD qui va être
content, lui qui vient toujours aux rencontres en vélo, même qu'il a renoncé
à marseille parce qu'à son âge, ça commençait à lui faire un peu loin...
jps

"" a
écrit dans le message de
news:
Un bonjour tres matinal je te donne adresse mail du boulot
ou merci cordialement.
Alain



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 . Alain


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 . 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!


""
a écrit dans le message de




news:
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!





""
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






















Avatar
alain.bazire
Re bonjour je léai recu au boulot comme je te l'ai dit j'ai essayé et mille
BRAVOS ET MILLE MERCI ca marche impeccable .Bravo et merci du temps que tu as
passe pour moi Merci beaucoup
PS Oui j'ai un anti spam excuses et je vais supprimer ou je donnes mon mail
merci pour tout Cordialement .Alain


Bonjour GD,

J'ai tenté le coup. Le fichier devrait être accessible là :

http://cjoint.com/?keafe85a2V

Reste à voir si cela fonctionne bien !


Salutations!




"GD" a écrit dans le message de news:
Bonsour ® Denis
utilise Cjoint.com !!!!
@+
"michdenis" a écrit dans le message de
news:
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


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 . 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!





""
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




















Avatar
alain.bazire
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 . Alain


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 . 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!


"" a écrit dans le message de
news:
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!





"" 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






















Avatar
alain.bazire


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 . Alain


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 . 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!


"" a écrit dans le message de
news:
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!





"" 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






















1 2 3