OVH Cloud OVH Cloud

Tri en VBA

4 réponses
Avatar
jmarc
Bonjour,

J ai un tableau qui comporte une centaine de lignes (plage voixnum)
Ce tableau est trié par une simple macro sur la colonne B
Chaque jour, j' insère 3 nouvelles lignes et je modifie ma macro de tri pour
tenir des nouveaux enregistrements
N' y a t-il pas plus simple comme manipulation ou par VBA
Merci d'avance de votre aide
Phil

4 réponses

Avatar
JLuc
jmarc avait soumis l'idée :
Bonjour,

J ai un tableau qui comporte une centaine de lignes (plage voixnum)
Ce tableau est trié par une simple macro sur la colonne B
Chaque jour, j' insère 3 nouvelles lignes et je modifie ma macro de tri pour
tenir des nouveaux enregistrements
N' y a t-il pas plus simple comme manipulation ou par VBA
Merci d'avance de votre aide
Phil


Vu que ta plage est nommee, pour inserer tes nouvelles donnees insere
une ligne complete au milieu du tableau (ou avant la *2 eme*). De cette
facon ta plage nommee s'agrandira de autant de lignes inserees, ensuite
ecrit ta macro avec le nom de la plage et pas avec un Range("A1:E100")

--
JLuc

Avatar
jmarc
Re
La macro est la suivante
Quelles instructions dois je ecrire pour remplacer Range("A60:X200").Select
par le nom de ma plage (Choixnum)
Merci


Sub Tri()
'
' Tri Macro
' Macro enregistrée le 24/01/2006 par M. LAPORTE
'

'
Range("A60:X200").Select
Selection.Sort Key1:=Range("A60"), Order1:=xlAscending,
Key2:=Range("B60" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=
_
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal
Range("H54:O57").Select
End Sub



"JLuc" a écrit dans le message de news:

jmarc avait soumis l'idée :
Bonjour,

J ai un tableau qui comporte une centaine de lignes (plage voixnum)
Ce tableau est trié par une simple macro sur la colonne B
Chaque jour, j' insère 3 nouvelles lignes et je modifie ma macro de tri
pour tenir des nouveaux enregistrements
N' y a t-il pas plus simple comme manipulation ou par VBA
Merci d'avance de votre aide
Phil


Vu que ta plage est nommee, pour inserer tes nouvelles donnees insere une
ligne complete au milieu du tableau (ou avant la *2 eme*). De cette facon
ta plage nommee s'agrandira de autant de lignes inserees, ensuite ecrit ta
macro avec le nom de la plage et pas avec un Range("A1:E100")

--
JLuc





Avatar
JLuc
jmarc avait soumis l'idée :
Re
La macro est la suivante
Quelles instructions dois je ecrire pour remplacer Range("A60:X200").Select
par le nom de ma plage (Choixnum)
Merci


Sub Tri()

'
' Tri Macro
' Macro enregistrée le 24/01/2006 par M. LAPORTE
'
'
Range("Choixnum").Sort Key1:=Range("A60"), Order1:=xlAscending, _
Key2:=Range("B60"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("H54:O57").Select
End Sub



"JLuc" a écrit dans le message de news:

jmarc avait soumis l'idée :
Bonjour,

J ai un tableau qui comporte une centaine de lignes (plage voixnum)
Ce tableau est trié par une simple macro sur la colonne B
Chaque jour, j' insère 3 nouvelles lignes et je modifie ma macro de tri
pour tenir des nouveaux enregistrements
N' y a t-il pas plus simple comme manipulation ou par VBA
Merci d'avance de votre aide
Phil


Vu que ta plage est nommee, pour inserer tes nouvelles donnees insere une
ligne complete au milieu du tableau (ou avant la *2 eme*). De cette facon
ta plage nommee s'agrandira de autant de lignes inserees, ensuite ecrit ta
macro avec le nom de la plage et pas avec un Range("A1:E100")

-- JLuc






--
JLuc



Avatar
jmarc
Merci ça roule
bonne fin d après midi
"JLuc" a écrit dans le message de news:

jmarc avait soumis l'idée :
Re
La macro est la suivante
Quelles instructions dois je ecrire pour remplacer
Range("A60:X200").Select par le nom de ma plage (Choixnum)
Merci


Sub Tri()

'
' Tri Macro
' Macro enregistrée le 24/01/2006 par M. LAPORTE
'
'
Range("Choixnum").Sort Key1:=Range("A60"), Order1:=xlAscending, _
Key2:=Range("B60"), Order2:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Range("H54:O57").Select
End Sub



"JLuc" a écrit dans le message de news:

jmarc avait soumis l'idée :
Bonjour,

J ai un tableau qui comporte une centaine de lignes (plage voixnum)
Ce tableau est trié par une simple macro sur la colonne B
Chaque jour, j' insère 3 nouvelles lignes et je modifie ma macro de tri
pour tenir des nouveaux enregistrements
N' y a t-il pas plus simple comme manipulation ou par VBA
Merci d'avance de votre aide
Phil


Vu que ta plage est nommee, pour inserer tes nouvelles donnees insere
une ligne complete au milieu du tableau (ou avant la *2 eme*). De cette
facon ta plage nommee s'agrandira de autant de lignes inserees, ensuite
ecrit ta macro avec le nom de la plage et pas avec un Range("A1:E100")

-- JLuc






--
JLuc