Discussion :

[foobar42]

Bonjour a tous,

Je vous explique un peu mon problème. Je travaille avec 2 fichiers excel. L'un doit aller récupérer des données dans l'autre.
Et pour cela j'ai besoin de trier une colonne afin de bien récupérer les valeurs. En gros ma colonne comporte une date et une heure de ce type :
JJ/MM/AAAA HH:MM

Il faut donc que ma colonne soit triée dans l'ordre croissant. De plus j'ai un bouton ajouté qui m'ajoute des dates et heure de ce type. Comment pourrai-je faire pour que lorsque j'ajoute ca aille se placer au bon endroit dans cette liste.

----------------------------------------------------------------------------
2ème probleme

La c'est un peu plus compliqué a expliquer. En gros j'ai ca

Semaine............. Date
01...................02/01/2006
01...................02/01/2006
01...................03/01/2006
01...................03/01/2006
01...................03/01/2006
01...................04/01/2006
01...................04/01/2006

En fait il faut que je compte combien j'ai de jour différent pour chaque semaine. Ici en l'occurence j'en ai 3. En gros est ce qu'il existe un truc du genre distinct en sql mais en VB.

-----------------------------------------------------------------------
Derniere question :
Lorsqu'on se situe sur une cellule, quelle est la commande pour trouver sa position. En gros savoir si c'est A1, B6 avoir ce chemin la quoi.


Merci bcq et dsl pour toutes ces questions
Bye

[SfJ5Rpw8]

Bonjour a tous,

Je vous explique un peu mon problème. Je travaille avec 2 fichiers excel. L'un doit aller récupérer des données dans l'autre.
Et pour cela j'ai besoin de trier une colonne afin de bien récupérer les valeurs. En gros ma colonne comporte une date et une heure de ce type :
JJ/MM/AAAA HH:MM

Il faut donc que ma colonne soit triée dans l'ordre croissant. De plus j'ai un bouton ajouté qui m'ajoute des dates et heure de ce type. Comment pourrai-je faire pour que lorsque j'ajoute ca aille se placer au bon endroit dans cette liste.

...

Pour le tri , tu peu t'inspirer de :

Code :

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

1
2
3
4
5
6
7
 
Dim r As Range ' Plage
' Definie la Zone à trier
' ligne à adapter...
Set r = Range("A1").CurrentRegion
r.Sort Key1:=r.Columns(2), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

et à l'insertion de nouvelle donnée, peu être le plus simple c'est de "re-trier"... sinon montre nous ton code d'insertion...


Pour le reste merci de lire : les règles du forum,
et aussi ce document, plus particuliérement : II-2. Lisibilité des sujets : , ces questions n'ayant plus grand chose à voir avec le titre de la discussion...(PS: Pour mémoire tu peu éditer ton premier message...)

[foobar42]

Voila mon code enfin plutot le code de celui qui avait commencé le projet avant moi. En gros il faut que lorsque j'ajoute une valeur elle soit triée en fonction de la colonne D c'est a dire la date et l'heure (mois/jour/l'année heure:minutes. En gros ça a cette tête la : (Un exemple) 02/21/2006 13:36

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Range("D" & line).Value = month & "/" & day & "/" & year & " " & heureRecep
    Range("E" & line).Value = blBrl
    Range("F" & line).Value = qte
 
    day = Left(dateLib, 2)
    month = Mid(dateLib, 4, 2)
    year = Mid(dateLib, 7)
 
    Range("G" & line).Value = month & "/" & day & "/" & year & " " & heureLib
    Range("H" & line).Value = pdtCR
    Range("I" & line).Value = control
    Range("K" & line).Value = comment

Merci

[AlainTech]

Faudrait savoir...

En gros ma colonne comporte une date et une heure de ce type :
JJ/MM/AAAA HH:MM

... elle soit triée en fonction de la colonne D c'est a dire la date et l'heure (mois/jour/l'année heure:minutes.

month, day et year ont l'air (on ne voit pas la déclaration) d'être des variables.
Il faudrait que tu apprennes à préfixer tes éléments (variables et contrôles) et ne pas utiliser des noms réservés.

De plus, tu initialises tes variables après les avoir utilisées une première fois.
Curieux.

Il serait grand temps que tu te mettes un peu à l'étude du langage plutôt que de venir ici pour chaque question que tu te poses.

Sais-tu comment Excel gère les dates et heures?
Je pense que tu cherches bien compliqué là où c'est très simple.
Intéresse-toi à DateSerial et TimeSerial.

Bref, cherche par toi-même, étudie et fais des essais avant de venir nous demander de tout faire à ta place.

[foobar42]

Salut

Je ne savais pas que c'était des noms réservés mais comme je l'ai dit c'est la personne d'avant qui a fait ca et comme ca a l'air de marcher je n'ai rien changé. Sinon pour le fait d'utiliser 2fois les memes variables c'est normal c'est l'heure qui change.

Je vais m'intéresser a DateSerial et TimeSerial mais bon j'avais déja cherché de mon coté en faisant des boucles et ainsi de suite pour arrivé a l'endroit désiré mais ca me paraissait compliqué pour surement pas grand chose donc je me suis dit que peut etre excel pouvait le faire tout seul étant donné que dans l'onglet outil il me semble il ya un bouton trier les données.

Voila ce n'est pas trop me genre de venir poster a tout va d'habitude je recherche par moi meme mais la étant donné que je n'ai pas le net la bas et que je ne peux pas tester ché moi je préfere demander l'avis de personne avc de l'expérience plutot que de prendre des fonctions sur le net arrivé le lendem1 et que ca marche pas et me retrouver bloqué.

Merci

[ouskel'n'or]

Pour trier par date, et après avoir eu pas mal de problèmes, j'ai fini par procéder comme suit : Je convertis ma colonne de dates en nombre sans décimale, je trie et je reformate ma colonne en date. C'est lourd mais ça donne le résultat excompté
Si tu le fais par les dates, tu risques d'avoir
01/01/06
01/03/06
02/02/06
etc.
Exemple si les dates sont dans la colonne A

Code :

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

1
2
3
4
5
6
7
8
9
    Columns("A:A").Select
    Selection.NumberFormat = "0"
    DoEvents
    Cells.Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    DoEvents
    Columns("A:A").Select
    Selection.NumberFormat = "dd/mm/yyyy"

Header:=xlYes si tu as un entête de colonne

[foobar42]

Ok merci je vais tenter ca. En tout cas c'est surement moins lourd que de faire des boucles a tout va pour arriver au bon endroit.
Merci