OVH Cloud OVH Cloud

Simplification !

4 réponses
Avatar
Alpha
Bonjour à tous
J'ai créé avec l'enregistreur de macro cette macro qui trie un tableau, en
la lisant je ne comprends pas grand chose, j'essaye depuis un bon moment de
supprimer des éléments "inutiles", pouvez-vous m'aider ?
Merci
Alpha

Range("A3:C100").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

4 réponses

Avatar
sabatier
un conseil, Alpha : si tu ne comprends pas chose, fais comme moi : ne touche à
rien....
de toutes façons, foi d'auvergnat, tu n'économiserais pas grand'chose...
jps

Alpha wrote:

Bonjour à tous
J'ai créé avec l'enregistreur de macro cette macro qui trie un tableau, en
la lisant je ne comprends pas grand chose, j'essaye depuis un bon moment de
supprimer des éléments "inutiles", pouvez-vous m'aider ?
Merci
Alpha

Range("A3:C100").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom


Avatar
Alpha
Ok, c'est correct comme proposition ;-)
Alpha

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

un conseil, Alpha : si tu ne comprends pas chose, fais comme moi : ne
touche à

rien....
de toutes façons, foi d'auvergnat, tu n'économiserais pas grand'chose...
jps

Alpha wrote:

Bonjour à tous
J'ai créé avec l'enregistreur de macro cette macro qui trie un tableau,
en


la lisant je ne comprends pas grand chose, j'essaye depuis un bon moment
de


supprimer des éléments "inutiles", pouvez-vous m'aider ?
Merci
Alpha

Range("A3:C100").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess,
_


OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom





Avatar
FxM
Bonsoir Patrick,

Quel homme de bon conseil, ce Jean-Paul. Ca marche et ca fait ce que
tu veux ? Oui, alors pas touche !

Pour ce qui est du problème, il n'y a pas grand chose à simplifier ...
En fait, ce n'est pas sur ce genre de commandes où il y a beaucoup de
choses inutiles. Par contre, tu trouveras au moins 3/4 des lignes à
enlever quand tu atteindras les mises en pages (header, footer, etc)
car chaque caractéristique est réécrite. En désactivant les inutiles
(place une ' en début de ligne), tu gagneras aussi beaucoup de temps.

Ici, en chipotant, tu peux forcer Excel à ne pas détecter s'il y a
entête ou non en remplaçant Header:=xlGuess par Header:=xlNo. Mais ça
ne simplifie rien et il faut que tes données démarrent en ligne 3 donc
les entêtes en ligne 2 (ou 1 & 2) ;o)

@+
FxM



sabatier wrote:
un conseil, Alpha : si tu ne comprends pas chose, fais comme moi : ne touche à
rien....
de toutes façons, foi d'auvergnat, tu n'économiserais pas grand'chose...
jps

Alpha wrote:


Bonjour à tous
J'ai créé avec l'enregistreur de macro cette macro qui trie un tableau, en
la lisant je ne comprends pas grand chose, j'essaye depuis un bon moment de
supprimer des éléments "inutiles", pouvez-vous m'aider ?
Merci
Alpha

Range("A3:C100").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom






Avatar
Alpha
Merci beaucoup François-Xavier, très clair, très sympa.
Alpha

"FxM" a écrit dans le message de news:
uaWu$
Bonsoir Patrick,

Quel homme de bon conseil, ce Jean-Paul. Ca marche et ca fait ce que
tu veux ? Oui, alors pas touche !

Pour ce qui est du problème, il n'y a pas grand chose à simplifier ...
En fait, ce n'est pas sur ce genre de commandes où il y a beaucoup de
choses inutiles. Par contre, tu trouveras au moins 3/4 des lignes à
enlever quand tu atteindras les mises en pages (header, footer, etc)
car chaque caractéristique est réécrite. En désactivant les inutiles
(place une ' en début de ligne), tu gagneras aussi beaucoup de temps.

Ici, en chipotant, tu peux forcer Excel à ne pas détecter s'il y a
entête ou non en remplaçant Header:=xlGuess par Header:=xlNo. Mais ça
ne simplifie rien et il faut que tes données démarrent en ligne 3 donc
les entêtes en ligne 2 (ou 1 & 2) ;o)

@+
FxM



sabatier wrote:
un conseil, Alpha : si tu ne comprends pas chose, fais comme moi : ne
touche à


rien....
de toutes façons, foi d'auvergnat, tu n'économiserais pas grand'chose...
jps

Alpha wrote:


Bonjour à tous
J'ai créé avec l'enregistreur de macro cette macro qui trie un tableau,
en



la lisant je ne comprends pas grand chose, j'essaye depuis un bon moment
de



supprimer des éléments "inutiles", pouvez-vous m'aider ?
Merci
Alpha

Range("A3:C100").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess,
_



OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom