Bonjour,
J'ai un probl=E8me avec une macro. Le but est de trier =20
Feuil2 =E0 partir d'une macro ce trouvant dans Feuil1.
J'ai fais de nombreux essais, mais j'ai toujours "erreur=20
d'=E9x=E9cution. Ce qui est curieux, c'est que si je mets mon=20
dernier test de macro dans Feuil2, =E7a fonctionne. (voir=20
macro ci-dessous) Mais cela ne me conviens pas, car je=20
voudrai garder la macro dans Feuil1
Si vous avez une id=E9e, Merci,
Sub tri()
With Sheets("Feuil2")
.Select
.Range("A1:I1").Select
.Range(Selection, Selection.End(xlDown)).Select
End With
Selection.Sort Key1:=3DRange("C1"), Order1:=3DxlAscending,=20
Header:=3DxlGuess, _
OrderCustom:=3D1, MatchCase:=3DFalse,=20
Orientation:=3DxlTopToBottom
End Sub
Bonjour Marchepied; Sub tri() With Sheets("Feuil2") lRow = .Cells(65536, 3).End(xlUp).Row .Range("A1:I" & lRow).Sort Key1:=.Range("C1"), Order1:=xlAscending _ , Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End With End Sub
MP
"Marchepied" a écrit dans le message de news:3f0301c4ac6e$a899d390$ Bonjour, J'ai un problème avec une macro. Le but est de trier Feuil2 à partir d'une macro ce trouvant dans Feuil1. J'ai fais de nombreux essais, mais j'ai toujours "erreur d'éxécution. Ce qui est curieux, c'est que si je mets mon dernier test de macro dans Feuil2, ça fonctionne. (voir macro ci-dessous) Mais cela ne me conviens pas, car je voudrai garder la macro dans Feuil1 Si vous avez une idée, Merci,
Sub tri() With Sheets("Feuil2") .Select .Range("A1:I1").Select .Range(Selection, Selection.End(xlDown)).Select End With Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End Sub
Bonjour Marchepied;
Sub tri()
With Sheets("Feuil2")
lRow = .Cells(65536, 3).End(xlUp).Row
.Range("A1:I" & lRow).Sort Key1:=.Range("C1"), Order1:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End With
End Sub
MP
"Marchepied" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:3f0301c4ac6e$a899d390$a501280a@phx.gbl...
Bonjour,
J'ai un problème avec une macro. Le but est de trier
Feuil2 à partir d'une macro ce trouvant dans Feuil1.
J'ai fais de nombreux essais, mais j'ai toujours "erreur
d'éxécution. Ce qui est curieux, c'est que si je mets mon
dernier test de macro dans Feuil2, ça fonctionne. (voir
macro ci-dessous) Mais cela ne me conviens pas, car je
voudrai garder la macro dans Feuil1
Si vous avez une idée, Merci,
Sub tri()
With Sheets("Feuil2")
.Select
.Range("A1:I1").Select
.Range(Selection, Selection.End(xlDown)).Select
End With
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub
Bonjour Marchepied; Sub tri() With Sheets("Feuil2") lRow = .Cells(65536, 3).End(xlUp).Row .Range("A1:I" & lRow).Sort Key1:=.Range("C1"), Order1:=xlAscending _ , Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End With End Sub
MP
"Marchepied" a écrit dans le message de news:3f0301c4ac6e$a899d390$ Bonjour, J'ai un problème avec une macro. Le but est de trier Feuil2 à partir d'une macro ce trouvant dans Feuil1. J'ai fais de nombreux essais, mais j'ai toujours "erreur d'éxécution. Ce qui est curieux, c'est que si je mets mon dernier test de macro dans Feuil2, ça fonctionne. (voir macro ci-dessous) Mais cela ne me conviens pas, car je voudrai garder la macro dans Feuil1 Si vous avez une idée, Merci,
Sub tri() With Sheets("Feuil2") .Select .Range("A1:I1").Select .Range(Selection, Selection.End(xlDown)).Select End With Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End Sub
poypoy
Bonjour, je te propose une solution même si ce n'est surement pas la plus joli !! tu mets dans ta macro en feuille 1 sub lance()
call feuil2.tri end sub
et en feuille 2 tu mets ta macro.
J'espère que cela te suffira... Cordialement Benjamin
Bonjour, J'ai un problème avec une macro. Le but est de trier Feuil2 à partir d'une macro ce trouvant dans Feuil1. J'ai fais de nombreux essais, mais j'ai toujours "erreur d'éxécution. Ce qui est curieux, c'est que si je mets mon dernier test de macro dans Feuil2, ça fonctionne. (voir macro ci-dessous) Mais cela ne me conviens pas, car je voudrai garder la macro dans Feuil1 Si vous avez une idée, Merci,
Sub tri() With Sheets("Feuil2") .Select .Range("A1:I1").Select .Range(Selection, Selection.End(xlDown)).Select End With Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End Sub
Bonjour,
je te propose une solution même si ce n'est surement pas la plus joli !!
tu mets dans ta macro en feuille 1
sub lance()
call feuil2.tri
end sub
et en feuille 2 tu mets ta macro.
J'espère que cela te suffira...
Cordialement
Benjamin
Bonjour,
J'ai un problème avec une macro. Le but est de trier
Feuil2 à partir d'une macro ce trouvant dans Feuil1.
J'ai fais de nombreux essais, mais j'ai toujours "erreur
d'éxécution. Ce qui est curieux, c'est que si je mets mon
dernier test de macro dans Feuil2, ça fonctionne. (voir
macro ci-dessous) Mais cela ne me conviens pas, car je
voudrai garder la macro dans Feuil1
Si vous avez une idée, Merci,
Sub tri()
With Sheets("Feuil2")
.Select
.Range("A1:I1").Select
.Range(Selection, Selection.End(xlDown)).Select
End With
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End Sub
Bonjour, je te propose une solution même si ce n'est surement pas la plus joli !! tu mets dans ta macro en feuille 1 sub lance()
call feuil2.tri end sub
et en feuille 2 tu mets ta macro.
J'espère que cela te suffira... Cordialement Benjamin
Bonjour, J'ai un problème avec une macro. Le but est de trier Feuil2 à partir d'une macro ce trouvant dans Feuil1. J'ai fais de nombreux essais, mais j'ai toujours "erreur d'éxécution. Ce qui est curieux, c'est que si je mets mon dernier test de macro dans Feuil2, ça fonctionne. (voir macro ci-dessous) Mais cela ne me conviens pas, car je voudrai garder la macro dans Feuil1 Si vous avez une idée, Merci,
Sub tri() With Sheets("Feuil2") .Select .Range("A1:I1").Select .Range(Selection, Selection.End(xlDown)).Select End With Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End Sub
patrice
Bonjour,
tu devrais écrire ce gendre de macro dans un module et non au niveau d'une feuille. Bien que novice je pense que cela fonctionne mieux. je réserve l'écriture de macro dans une feuille que pour la gestion d'évènement et encore je fais souvent des renvois d'exécution vers une macro écrite dans un module
Patrice
-----Message d'origine----- Bonjour, J'ai un problème avec une macro. Le but est de trier Feuil2 à partir d'une macro ce trouvant dans Feuil1. J'ai fais de nombreux essais, mais j'ai toujours "erreur d'éxécution. Ce qui est curieux, c'est que si je mets mon
dernier test de macro dans Feuil2, ça fonctionne. (voir macro ci-dessous) Mais cela ne me conviens pas, car je voudrai garder la macro dans Feuil1 Si vous avez une idée, Merci,
Sub tri() With Sheets("Feuil2") .Select .Range("A1:I1").Select .Range(Selection, Selection.End(xlDown)).Select End With Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End Sub .
Bonjour,
tu devrais écrire ce gendre de macro dans un module et
non au niveau d'une feuille. Bien que novice je pense que
cela fonctionne mieux. je réserve l'écriture de macro
dans une feuille que pour la gestion d'évènement et
encore je fais souvent des renvois d'exécution vers une
macro écrite dans un module
Patrice
-----Message d'origine-----
Bonjour,
J'ai un problème avec une macro. Le but est de trier
Feuil2 à partir d'une macro ce trouvant dans Feuil1.
J'ai fais de nombreux essais, mais j'ai toujours "erreur
d'éxécution. Ce qui est curieux, c'est que si je mets
mon
dernier test de macro dans Feuil2, ça fonctionne. (voir
macro ci-dessous) Mais cela ne me conviens pas, car je
voudrai garder la macro dans Feuil1
Si vous avez une idée, Merci,
Sub tri()
With Sheets("Feuil2")
.Select
.Range("A1:I1").Select
.Range(Selection, Selection.End(xlDown)).Select
End With
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
End Sub
.
tu devrais écrire ce gendre de macro dans un module et non au niveau d'une feuille. Bien que novice je pense que cela fonctionne mieux. je réserve l'écriture de macro dans une feuille que pour la gestion d'évènement et encore je fais souvent des renvois d'exécution vers une macro écrite dans un module
Patrice
-----Message d'origine----- Bonjour, J'ai un problème avec une macro. Le but est de trier Feuil2 à partir d'une macro ce trouvant dans Feuil1. J'ai fais de nombreux essais, mais j'ai toujours "erreur d'éxécution. Ce qui est curieux, c'est que si je mets mon
dernier test de macro dans Feuil2, ça fonctionne. (voir macro ci-dessous) Mais cela ne me conviens pas, car je voudrai garder la macro dans Feuil1 Si vous avez une idée, Merci,
Sub tri() With Sheets("Feuil2") .Select .Range("A1:I1").Select .Range(Selection, Selection.End(xlDown)).Select End With Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End Sub .
