trier une plage variable

[Philippe69]

Bonjour à toutes et à tous

J'ai une plage variable de données
Colonne A: Dates au format dd/mm/yyyy
Colonne B: =MOIS(A)
Colonne C: =JOUR(A)
Colonne D: Valeurs 1
Colonne E: Valeurs 2

A l'aide de 3 textbox, je rentre la date, la valeur 1 et la valeur 2.

Ces valeurs se placent automatiquement sur la dernière ligne non vide de ma plage.

Mon souhait est que toutes ces valeurs soient triées automatiquement par date croissantes

Et sans vouloir abuser, je souhaiterai que la date du textbox1 se mette automatiquement au format dd/mm/yyy qq soit la façon dont l'opérateur rentre la date. J'avais ds mes archives 1 macro en ce sens, mais impossible de mettre la main dessus.

Ci-joint mon fichier avec la macro

Merci d'avance à toutes celles et tout ceux qui voudront bien prendre de leur temps pour m'aider à résoudre mon problème

amicalement
Philippe

 

[philippe69]

Gasp, mon message a été pris en compte mais pas mon fichier. Je refais donc une tentative [file name=fichier_test.zip size=50442]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichier_test.zip[/file]

 

[deudecos]

Salut Philippe, le forum,

Je pense que pour le tri de tes colonnes, il te faut faire la meme manoeuvre que celle utilisee pour ajouter tes donnees a la prochaine cellule vide...
A savoir (du moins c'est comme ca que je procede)

Dim L As Integer
L=sheets('Feuil1')'Pour l'exemple'.range('a65536').end(xlup).row
sheets('feuil1').range(A1:A' & L).select
Selection.Sort Key1:=Range('A1'), _ Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Pour le reste, je n'en suis pas encore la, donc desole de ne pouvoir t'aider.

Bonne soiree

Olivier

Ps, j'ai oublie de prendre les autres colonnes en compte dans mon tri... oups !
Donc c'est sheets('Feuil1').range('A1' & L).select

Message édité par: Deudecos, à: 28/01/2006 20:30

 

[philippe69]

Bonsoir Olivier

J'ai testé ton bout de code, mais j'ai un hic. Il bogue à la ligne L = Sheets('Feuil1')
Est tu sur de la déclaration de variable

Philippe

 

[philippe69]

Oups autant pour moi, ton code marche très bien. J'avais tout bêtement laissé
la ligne .range('a65536').end(xlup).row en commentaire.

Merci du coup de main et bon dimanche

 

[philippe69]

Je reviens sur mon post car je suis sûr qu'il y a qq part sur le forum une ou un excellien qui connaît la réponse à ma 2ème question. A savoir:

je souhaiterai que la date du textbox1 se mette automatiquement au format
dd/mm/yyy qq soit la façon dont l'opérateur rentre la date. J'avais ds mes archives 1 macro en ce
sens, mais impossible de mettre la main dessus.

voir fichier joint (post précédent)

merci par avance
Philippe