Discussion :

[manworms2]

bonjour
je suis totalement debutant sous VBA. mon probleme est le suivant j'ai une feuille excel je voudrais faire la chose suivante :
- a l'ouverture je voudrais trier une colonne par odre croissante
- a la fermeture d'excel je voudrai enregistrer automatique le fichier sans avoir la fenetre d'enregistrement.

je crois que c'est quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Close true

mais je n'arrive pas a m'en servir , il faut le mettre ou ? dans ThisWorkbook ?

merci de votre aide

[SfJ5Rpw8]

pour la sauvegarde, dans ThisWorkBook.beforeClose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close True
End Sub

pour le trie dans WorkBook_Open

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open()
 ThisWorkbook.Sheets(1).Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 End Sub

à adapter selon Zone de tri ( ici premiére feuille, colonne adjçante à cellule A1) et colonne de tri ( ici A) ...

[vanima]

Insert un module dans ton projet
dans ce dernier il faut que tu créer 2 macros
une auto_open(le nom de la macro est important) va s'executer a l'ouverture
l'autre auto_close a la fermeture....
bon courage

[manworms2]

merci pour vos reponses
par contre je n'arrive pas a adapter a mon cas , la colonne a trier est la G et les celulues vont de 7 à 38 .

j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open() 
 ThisWorkbook.Sheets(1).Range("G1").CurrentRegion.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
End Sub

mais il y a des erreurs.

[SfJ5Rpw8]

tu as essayer de remplacer les 2 G1 par G7 ?

[Theocourant]

Salut,
Ce que voulais dire bbil doit ressembler à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open() 
 ThisWorkbook.Sheets(1).Range("G7:G38").CurrentRegion.Sort Key1:=Range("G7:G38"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
End Sub

N'est-ce pas bbil ?

Mais je me demandais tu ne dois trier qu'une seule colonne ou tu as plusieurs colonne et tu veux trier suivant la colonne G ? Car cela change un peux la programmation ...

Bon courage pour la suite

@peluche

Théo

[manworms2]

exact en fait je voudrais trier les colonnes C à G celulles 7 à 38 en fonction de la colonne G par ordre croissant .

[SfJ5Rpw8]

exact en fait je voudrais trier les colonnes C à G celulles 7 à 38 en fonction de la colonne G par ordre croissant .

et alors tu en est ou ? si tu as remplacer les deux "A1" par Deux "G7" cela as
fonctionné ? non ?

[Theocourant]

exact en fait je voudrais trier les colonnes C à G celulles 7 à 38 en fonction de la colonne G par ordre croissant .

eh bien tu devrais pouvoir le faire comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open() 
 ThisWorkbook.Sheets(1).Range("C7:G38").CurrentRegion.Sort Key1:=Range("G7:G38"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
End Sub

bon courage

@peluche

Théo

PS: bbil tranquille il n'a peut être pas encore eu le temps de voir les réponses et si le code fonctionne correctement: laisse lui le temps : il reviendra c'est certain au moins pour remercier

[manworms2]

j'ai eu un peu de mal a le faire fonctionner , un probleme au niveau de la premiere ligne qui n'ete pas prise en compte. mais le probleme a ete resolu en rajoutant une ligne a zero.

merci beaucoup pour votre aide precieuse .

je doit encore bucher sur le VB lol

@++