Est-possible de faire en une seule fois un tri croissant sur 100 colonnes,
de telle manière que chaque colonne indépendamment des autres affiche ses
valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
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
ChrisV
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43573d1c$0$27402$8fcfb975@news.wanadoo.fr...
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes,
de telle manière que chaque colonne indépendamment des autres affiche ses
valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Modeste
Bonsour® Stéphane LALUT wrote: en une seule fois non :-(( mais par une boucle oui ;o)))
Sub Macro1() For Each plage In Range("A1:AZ1") ' ---ici adapter la zone d'entete plage.EntireColumn.Select 'MsgBox plage.Columns.Address Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Next End Sub
attention !!!!le contenu de chaque colonne doit etre indépendant des autres !!!! pas de formules liant une colonne à une autre ou de contenu "volatile" (Alea(),Maintenant())
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Bonsour®
Stéphane LALUT wrote:
en une seule fois non :-((
mais par une boucle oui ;o)))
Sub Macro1()
For Each plage In Range("A1:AZ1") ' ---ici adapter la zone d'entete
plage.EntireColumn.Select
'MsgBox plage.Columns.Address
Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next
End Sub
attention !!!!le contenu de chaque colonne doit etre indépendant des autres
!!!!
pas de formules liant une colonne à une autre ou de contenu "volatile"
(Alea(),Maintenant())
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
Bonsour® Stéphane LALUT wrote: en une seule fois non :-(( mais par une boucle oui ;o)))
Sub Macro1() For Each plage In Range("A1:AZ1") ' ---ici adapter la zone d'entete plage.EntireColumn.Select 'MsgBox plage.Columns.Address Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Next End Sub
attention !!!!le contenu de chaque colonne doit etre indépendant des autres !!!! pas de formules liant une colonne à une autre ou de contenu "volatile" (Alea(),Maintenant())
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Stéphane LALUT
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" a écrit dans le message de news: %
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
%23dBRlPU1FHA.3780@TK2MSFTNGP12.phx.gbl...
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43573d1c$0$27402$8fcfb975@news.wanadoo.fr...
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100
colonnes, de telle manière que chaque colonne indépendamment des autres
affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" a écrit dans le message de news: %
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Stéphane LALUT
Bonjour Modeste,
Ce sont juste des valeurs, sans formules, et pas volatiles, totalement indépendantes.
J'ai lancé ta macro, merci :o)), mais j'ai une erreur :o(((
ERREUR DE COMPILATION TRI SYNTHAXE sur la ligne " Selection.Sort Key1:=Range....
Merci de voir quel est le problème?
Sub tricroissant()
For Each Plage In Range("A1:CV1") Plage.EntireColumn.Select 'MsgBox plage.Columns.Address Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Next End Sub
"Modeste" a écrit dans le message de news:
Bonsour® Stéphane LALUT wrote: en une seule fois non :-(( mais par une boucle oui ;o)))
Sub Macro1() For Each plage In Range("A1:AZ1") ' ---ici adapter la zone d'entete plage.EntireColumn.Select 'MsgBox plage.Columns.Address Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Next End Sub
attention !!!!le contenu de chaque colonne doit etre indépendant des autres !!!! pas de formules liant une colonne à une autre ou de contenu "volatile" (Alea(),Maintenant())
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Bonjour Modeste,
Ce sont juste des valeurs, sans formules, et pas volatiles, totalement
indépendantes.
J'ai lancé ta macro, merci :o)), mais j'ai une erreur :o(((
ERREUR DE COMPILATION TRI SYNTHAXE
sur la ligne " Selection.Sort Key1:=Range....
Merci de voir quel est le problème?
Sub tricroissant()
For Each Plage In Range("A1:CV1")
Plage.EntireColumn.Select
'MsgBox plage.Columns.Address
Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending,
Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next
End Sub
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
O9d1rhU1FHA.2540@TK2MSFTNGP09.phx.gbl...
Bonsour®
Stéphane LALUT wrote:
en une seule fois non :-((
mais par une boucle oui ;o)))
Sub Macro1()
For Each plage In Range("A1:AZ1") ' ---ici adapter la zone d'entete
plage.EntireColumn.Select
'MsgBox plage.Columns.Address
Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next
End Sub
attention !!!!le contenu de chaque colonne doit etre indépendant des
autres !!!!
pas de formules liant une colonne à une autre ou de contenu "volatile"
(Alea(),Maintenant())
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
Ce sont juste des valeurs, sans formules, et pas volatiles, totalement indépendantes.
J'ai lancé ta macro, merci :o)), mais j'ai une erreur :o(((
ERREUR DE COMPILATION TRI SYNTHAXE sur la ligne " Selection.Sort Key1:=Range....
Merci de voir quel est le problème?
Sub tricroissant()
For Each Plage In Range("A1:CV1") Plage.EntireColumn.Select 'MsgBox plage.Columns.Address Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Next End Sub
"Modeste" a écrit dans le message de news:
Bonsour® Stéphane LALUT wrote: en une seule fois non :-(( mais par une boucle oui ;o)))
Sub Macro1() For Each plage In Range("A1:AZ1") ' ---ici adapter la zone d'entete plage.EntireColumn.Select 'MsgBox plage.Columns.Address Selection.Sort Key1:=Range(plage.Columns.Address), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Next End Sub
attention !!!!le contenu de chaque colonne doit etre indépendant des autres !!!! pas de formules liant une colonne à une autre ou de contenu "volatile" (Alea(),Maintenant())
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
ChrisV
Re,
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 100 Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending, Header:=xlGuess Next i End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans la proc: , Header:=xlGuess
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43574fd3$0$5391$
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" a écrit dans le message de news: %
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Re,
Sub zaza()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 100
Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending, Header:=xlGuess
Next i
End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans la
proc:
, Header:=xlGuess
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43574fd3$0$5391$8fcfb975@news.wanadoo.fr...
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
%23dBRlPU1FHA.3780@TK2MSFTNGP12.phx.gbl...
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43573d1c$0$27402$8fcfb975@news.wanadoo.fr...
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100
colonnes, de telle manière que chaque colonne indépendamment des autres
affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 100 Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending, Header:=xlGuess Next i End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans la proc: , Header:=xlGuess
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43574fd3$0$5391$
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" a écrit dans le message de news: %
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Modeste
Bonsour® Stéphane LALUT wrote:
J'ai lancé ta macro, merci :o)), mais j'ai une erreur :o((( ERREUR DE COMPILATION TRI SYNTHAXE sur la ligne " Selection.Sort Key1:=Range....
attention aux caractères de continuité "_" il n'y a qu'une seule ligne d' instruction pour tout ceci :
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Bonsour®
Stéphane LALUT wrote:
J'ai lancé ta macro, merci :o)), mais j'ai une erreur :o(((
ERREUR DE COMPILATION TRI SYNTHAXE
sur la ligne " Selection.Sort Key1:=Range....
attention aux caractères de continuité "_"
il n'y a qu'une seule ligne d' instruction pour tout ceci :
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Stéphane LALUT
Merci ChrisV, ca marche très bien.
Cordialement.
Stéphane.
"ChrisV" a écrit dans le message de news: %
Re,
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 100 Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending, Header:=xlGuess Next i End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans la proc: , Header:=xlGuess
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43574fd3$0$5391$
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" a écrit dans le message de news: %
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Merci ChrisV, ca marche très bien.
Cordialement.
Stéphane.
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
%231tDsgV1FHA.3560@TK2MSFTNGP15.phx.gbl...
Re,
Sub zaza()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 100
Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending, Header:=xlGuess
Next i
End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans la
proc:
, Header:=xlGuess
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43574fd3$0$5391$8fcfb975@news.wanadoo.fr...
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
%23dBRlPU1FHA.3780@TK2MSFTNGP12.phx.gbl...
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43573d1c$0$27402$8fcfb975@news.wanadoo.fr...
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100
colonnes, de telle manière que chaque colonne indépendamment des autres
affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 100 Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending, Header:=xlGuess Next i End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans la proc: , Header:=xlGuess
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43574fd3$0$5391$
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" a écrit dans le message de news: %
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Stéphane LALUT
C'est inconvénient de recopier quelque chose que l'on ne comprend pas...
C'est Ok merci une nouvelle fois de ton aide.
Cordialement
Stéphane.
"Modeste" a écrit dans le message de news:
Bonsour® Stéphane LALUT wrote:
J'ai lancé ta macro, merci :o)), mais j'ai une erreur :o((( ERREUR DE COMPILATION TRI SYNTHAXE sur la ligne " Selection.Sort Key1:=Range....
attention aux caractères de continuité "_" il n'y a qu'une seule ligne d' instruction pour tout ceci :
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
C'est inconvénient de recopier quelque chose que l'on ne comprend pas...
C'est Ok merci une nouvelle fois de ton aide.
Cordialement
Stéphane.
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
uAnj3gV1FHA.1028@TK2MSFTNGP12.phx.gbl...
Bonsour®
Stéphane LALUT wrote:
J'ai lancé ta macro, merci :o)), mais j'ai une erreur :o(((
ERREUR DE COMPILATION TRI SYNTHAXE
sur la ligne " Selection.Sort Key1:=Range....
attention aux caractères de continuité "_"
il n'y a qu'une seule ligne d' instruction pour tout ceci :
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
ChrisV
Content que ton problème soit maintenant résolu... ;-)
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43576660$0$27439$
Merci ChrisV, ca marche très bien.
Cordialement.
Stéphane.
"ChrisV" a écrit dans le message de news: %
Re,
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 100 Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending, Header:=xlGuess Next i End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans la proc: , Header:=xlGuess
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43574fd3$0$5391$
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" a écrit dans le message de news: %
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Merci de votre aide.
Stéphane.
Content que ton problème soit maintenant résolu... ;-)
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43576660$0$27439$8fcfb975@news.wanadoo.fr...
Merci ChrisV, ca marche très bien.
Cordialement.
Stéphane.
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
%231tDsgV1FHA.3560@TK2MSFTNGP15.phx.gbl...
Re,
Sub zaza()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 100
Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending,
Header:=xlGuess
Next i
End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans
la proc:
, Header:=xlGuess
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43574fd3$0$5391$8fcfb975@news.wanadoo.fr...
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
%23dBRlPU1FHA.3780@TK2MSFTNGP12.phx.gbl...
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" <lalut.stephane@wanadoo.fr> a écrit dans le message de
news: 43573d1c$0$27402$8fcfb975@news.wanadoo.fr...
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100
colonnes, de telle manière que chaque colonne indépendamment des
autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.
Content que ton problème soit maintenant résolu... ;-)
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43576660$0$27439$
Merci ChrisV, ca marche très bien.
Cordialement.
Stéphane.
"ChrisV" a écrit dans le message de news: %
Re,
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 100 Columns(i).Sort Key1:Îlls(1, i), Order1:=xlAscending, Header:=xlGuess Next i End Sub
nb: si les colonnes ne comportent pas d'en-tête, tu peux supprimer dans la proc: , Header:=xlGuess
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43574fd3$0$5391$
Bonjour ChrisV,
Les colonnes sont adjacentes. 100 colonnes de A à CV
Merci
"ChrisV" a écrit dans le message de news: %
Bonjour Stéphane,
Les colonnes sont-elles adjacentes ou dispersées dans le classeur...?
ChrisV
"Stéphane LALUT" a écrit dans le message de news: 43573d1c$0$27402$
Bonjour,
Est-possible de faire en une seule fois un tri croissant sur 100 colonnes, de telle manière que chaque colonne indépendamment des autres affiche ses valeurs en ordre croissant ?
La fonction ne permettant de faire que 3 colonnes en simultanées.