Bouton avec une macro pour trier une colonne

[Céline]

Bonjour à tous,

Je souhaite créer un bouton qui trie une colonne.
Voir les explications dans le fichier joint, c'est au niveau de la macro que j'ai essayé de faire.

Merci à tous, j'espère que vous pas encore parti en week end.
A+
Céline

 

[Gérard DEZAMIS]

Bonjour Céline

Veux-tu trier par date ou par mois ?
Si c'est mois avec 1,2,3 ou Janvier Février, ....

A tout de suite..
GD

 

[Céline]

Par date , la fin de semaine est dure !
Merci pour ton aide
A+
Céline

 

[C@thy]

Bonjour Céline et le forum,

bravo pour tes efforts,

essaye juste :
Range("I7").select
au lieu de Rows("7:44").Select

C@thy

 

[Gérard DEZAMIS]

Bonjour les Miss

C@thy a raison. Entièrement raison. En plus elle est rapide (Bip Bip oblige ...)Elle mérite un W-E ensoleillé et paisible
Toi aussi Céline
Bon courage à toutes les deux
GD

 

[Céline]

Bof bof

Range("I7").select ca me fait une erreur 1004
le methode ranfge de l'objet global a echoué

Voici mon code :

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

Merci
A+
Céline

 

[Gérard DEZAMIS]

Bonjour céline

Le W-E est proche, ne confond pas le (L) avec le (I )
cela ira beaucoup mieux !
Bonne chance
GD

 

[alyre]

Bonsoir a tous

Félicitation , tu as une tres bonne formule, pour le tri sur la date

je l'ai essayé et ca marche tres bien

Mais moi je voudrais faire le trie sur la journée

est- ce que tu peux m'aider

je te remerci a l'avance

@ ++ alyre

 

[alyre]

Re Bonsoir


J'ai trouver avec recherche

Sub Trier()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

merci a celui qui la écrit, je me souvien pas du nom

Il est formidable ce Forum

a + alyre