Trier un tableau par rapport aux dates

Version imprimable

20/04/2009, 08h41
charline33

Trier un tableau par rapport aux dates

Bonjour à tous !

J'ai un tableau rempli de dates et j'aimerais que, grace à visual basic, je puisse récupérer les données de la ligne d'une des dates en fonction justement de sa date..

Je vais donner un exemple pour essayer d'etre plus claire :

Voici mon tableau:
Données Date
2 12/04/09
3 11/04/09

Et j'aimerais que visual basic compare la date de la premiere ligne du tableau à celle d'aujourd'hui (20/04/09) et contabilise une ligne par rapport à 1 critère:
Combien de jours y'a t'il de différence?
Soit -15jours, soit +30 jours ou soit entre les deux.

J'ai créer une TextBox afin d'y inscrire la date d'aujourd'hui et un bouton de commande "calculer" .

Je n'ai aucune idée pour commencer, quelqu'un peut m'aider?

Merci beaucoup !!

les date c'est que des date passé des date futur, les 2?
-15jours, soit +30 jours tu fait aujourd'hui-date, date -aujourd'hui une "valeur absolue" de la différence de jour?

pour avoir la date d'aujourd'hui il suffit de taper date pas la pein de demander al'utilisateur
essaye

Code:

MsgBox Date

Dans le cas ou ton tableau commence à la deuxième ligne
les date sont en 2ème colonne, on écrit le résultat en 3ème colonne, il n'y a rien dans la deuxième colonne après les date
On regarde la différence de jour sans se préoccuper si c'est une différence positive ou négative
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub CommandButton1_Click() Dim i As Integer For i = 2 To Range("B65536").End(xlUp).Row If Abs(Cells(i, 2) - Date) < 15 Then Cells(i, 3) = "moins de 15 jours de différence" ElseIf Abs(Cells(i, 2) - Date) <= 30 Then Cells(i, 3) = "entre 30 et 15 jours de différence" 'cela corespond aussi a une différence de 15 jour et de 30 jour exactement ElseIf Abs(Cells(i, 2) - Date) > 30 Then Cells(i, 3) = "Plus de 30 jours de différence" End If Next i end sub
Si ca ne te convient pas et que tu n'arrive pas a adapter n'hésite pas

20/04/2009, 10h04
charline33

Merci pour ta réponse!

Ca peut etre des dates passées et futures.

A quoi correspond Range("B65536")?

Et en fait c'est ok mais ça m'affiche " moins de 15 jours de différence" ect..
sauf que je souhaite que ça me contabilise le nombre de lignes à moins de 15 jours ou plus de 30 jours.

le range correspond à la dernière ligne de la colonne regarde ce lien de Ouskel'n'or

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
Dim i As long
dim moins15 as long
dim entre15et30 as long
dim plus30 as long
entre15et30 =0
moins15 =0
plus30 =0
For i = 2 To Range("B65536").End(xlUp).Row
    If Abs(Cells(i, 2) - Date) < 15 Then
       ' Cells(i, 3) = "moins de 15 jours de différence"
       moins15 =moins15 +1
    ElseIf Abs(Cells(i, 2) - Date) <= 30 Then
        'Cells(i, 3) = "entre 30 et 15 jours de différence" 'cela corespond aussi a une différence de 15 jour et de 30 jour exactement
        entre15et30 =entre15et30 +1
    ElseIf Abs(Cells(i, 2) - Date) > 30 Then
       ' Cells(i, 3) = "Plus de 30 jours de différence"
       plus30 =plus30 +1
    End If
Next i
' a toi de faire ce que tu veux des variable moins15, entre15et30 et plus30
'exemple une message box
MsgBox "Moins de 15 jours de différence : " & moins15 & vbCrLf & "Entre  15 et 30 jours de différence : " & entre15et30 & vbCrLf & "Plus de 30 jours de différence : " & plus30
end sub

Bon je l'ai modifié à ma sauce et j'ai une erreur d'incompatibilité de type.

Voici ce que j'ai fait pour la partie -20 jrs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Dim moins20 As Long
Dim entre20et35 As Long
Dim plus35 As Long
entre20et35 = 0
moins20 = 0
plus35 = 0

client$ = Choix_client.Value
 prev_livr$ = "Prévision de livraison " & Format$(Num_sem)
     Sheets(prev_livr$).Select
     ActiveSheet.Range("$A$1:$S$1066").AutoFilter Field:=12, Criteria1:=client$
    
     prev_livr$ = "'Prévision de livraison " & Format$(Num_sem)
     prev_livr$ = prev_livr$ & "'!"
     
     somme = 0
     
     For i = 2 To 10000
        cellule$ = "L" & Format(i)
        contenu$ = ActiveSheet.Range(cellule$).Value
        


        If Abs(Cells(i, 2) - Date) < 20 Then         
             ' Cells(i, 3) = "moins de 20 jours de différence"
                 moins20 = moins20 + 1
                 Sheets(client$).Select
                     If Num_sem < 26 Then
                     cellule$ = Chr$(65 + Num_sem)
                        ElseIf Num_sem < 52 Then
                        cellule$ = "A" & Chr$(64 + Num_sem - 25)
                             Else
                             cellule$ = "BA"
                     End If
    
                    cellule$ = cellule$ & "18"
                    Range(cellule$).Select
                    ActiveCell.FormulaR1C1 = somme

L'erreur arrive à la ligne souligné. En fait, ça correspond à une cellule "cells(i,2)"? Laquelle?

Merci pour tout Krovax!

20/04/2009, 11h43
Krovax

tu a quoi sur la ligne i (regarde la valeur de i au moment ou ca plante dans affiachage affiche les variable local) et la deuxième colonne?

Rq : a mon avis For i = 2 To 10000 n'est pas une bonne idée du tout à moins que tu soit sure d'avoir toujours 10000 ligne remplie.
20/04/2009, 11h51
charline33

Et bien j'ai i = 2 et j'ai mis to 10000 car je n'aurai jamais plus de 10000 lignes.
20/04/2009, 12h13
Krovax

oui mais si tu en as moins il va faire date doujourdhui-0 ce qui corespond a je ne sais plus quel date...

Code:

utilise For i = 2 To Range("B65536").End(xlUp).Row

Ne travails pas sur des infos qui n'existe pas, les ordis n'aime pas ca du tout:?

Sinon tu ne ma pas dis regarde la valeur de i au moment ou cela plante et regarde ce que tu as dans la deuxième colonne de cette ligne

bonjour le fil le forum
un exemple a adapter
Option Explicit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim T As Variant, t2(), X As Long, i As Long, k As Long
Private Sub CommandButton1_Click()
On Error Resume Next
T = Range("a2:a" & Range("a65536").End(xlUp).Row)
X = 1: For i = 1 To UBound(T)
If T(i, 1) > CDate(TextBox1.Value) And T(i, 1) < CDate(TextBox1.Value) + 31 Or _
T(i, 1) < CDate(TextBox1.Value) And T(i, 1) > CDate(TextBox1.Value) - 16 Then
ReDim Preserve t2(1 To 1, 1 To X)
For k = 1 To 1: t2(k, X) = T(i, k)
Next k: X = X + 1: End If: Next i
Erase T, t2: MsgBox X - 1
End Sub

Alors j'ai mis ce que tu as dis le problème est que maintenant ça ne lis même plus le programme ça va directement à End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim moins20 As Long
Dim entre20et35 As Long
Dim plus35 As Long
entre20et35 = 0
moins20 = 0
plus35 = 0

client$ = Choix_client.Value
 prev_livr$ = "Prévision de livraison " & Format$(Num_sem)
     Sheets(prev_livr$).Select
     'ActiveSheet.Range ("$A$1:$S$1066") 'Field:=12, Criteria1:=client$
    
     prev_livr$ = "'Prévision de livraison " & Format$(Num_sem)
     prev_livr$ = prev_livr$ & "'!"
     
     somme = 0
     
     For i = 2 To Range("B65536").End(xlUp).Row
        cellule$ = "L" & Format(i)
        contenu$ = ActiveSheet.Range(cellule$).Value
        
    
        
        If Abs(Cells(i, 2) - Date) < 20 Then
         
             ' Cells(i, 3) = "moins de 20 jours de différence"
                 moins20 = moins20 + 1
                 Sheets(client$).Select
                     If Num_sem < 26 Then
                     cellule$ = Chr$(65 + Num_sem)
                        ElseIf Num_sem < 52 Then
                        cellule$ = "A" & Chr$(64 + Num_sem - 25)
                             Else
                             cellule$ = "BA"
                     End If
    
                    cellule$ = cellule$ & "18"
                    Range(cellule$).Select
                    ActiveCell.FormulaR1C1 = somme
EndSub

Ah oui , la valeur de i lorsque ça plante: dans le programme i vaut 2
et mon tableau à un filtre lorsque je lance le programme du coup il n'y a plus rien... Euh.. j'ai vraiment du mal à comprendre là..

20/04/2009, 14h23
Krovax

essaye de mettre au début du programme
DerniereLigne = Range("A65536").End(xlUp).Row
suivit d'une pose, et regarde ce que vaut DerniereLigne
tu as quoi en cellule B2 sur ta feuille?
20/04/2009, 15h06
charline33

Il me dit derniereLigne = 1 et en cellule B2 j'ai rien.

Les dates sont dans la colonne I

Citation:

Envoyé par Krovax

les date sont en 2ème colonne, on écrit le résultat en 3ème colonne, il n'y a rien dans la deuxième colonne après les date

Du coup il faut utiliser

Code:

For i = 2 To Range("A65536").End(xlUp).Row

par de la fin de la collonne A et cherche la première ligne remplie
et non

Code:

For i = 2 To Range("B65536").End(xlUp).Row

par de la fin de la collonne B et cherche la première ligne remplie

mon code corrigé
Code:

1 2 3 4 5 6 7 8 9 10 11 For i = 2 To Range("B65536").End(xlUp).Row If Abs(Cells(i, 1) - Date) < 15 Then moins15 =moins15 +1 ElseIf Abs(Cells(i, 1) - Date) <= 30 Then entre15et30 =entre15et30 +1 ElseIf Abs(Cells(i, 1) - Date) > 30 Then plus30 =plus30 +1 End If Next i MsgBox "Moins de 15 jours de différence : " & moins15 & vbCrLf & "Entre 15 et 30 jours de différence : " & entre15et30 & vbCrLf & "Plus de 30 jours de différence : " & plus30 end sub
Cells(n,m) corespond à la cellule ligne n colonne m

20/04/2009, 16h01
charline33

Bon ça fait toujours pareil, ca saute le code à partir de cette ligne.

Code:

For i = 2 To Range("B65536").End(xlUp).Row

C'est peut etre du au fait que "Range("B65536").End(xlUp).Row" = 1 lors de l'erreur?
20/04/2009, 16h19
Krovax

je corrigr que a moitié désolé

Code:

For i = 2 To Range("A65536").End(xlUp).Row

C'est un A pas un B :bug:
si ca ne marche pas fait le test derniereligne = Range("A65536").End(xlUp).Row
20/04/2009, 16h45
charline33

Bon toujours pas.. derniereligne = 1 donc bon, je vais laisser tomber pour le moment.. je vais faire une autre partie de mon projet visual basic et puis j'y reviendrais plus tard..

Merci beaucoup Kreuvar, et puis, pour la suite je sais déja que j'aurais besoin de toi ^^
21/04/2009, 08h52
charline33

Bonjour !

Alors c'est presque bon, je sens que je touche bientot au but.

Quand je lance le programme pas à pas je vois qu'il y a bien les dates dans cette ligne :

Code:

If Abs(Date - cellule$) < 20 Then

Donc ça me dit exactement: If Abs(21/04/2009 -"31/03/2009")

Mais là, hop, erreur : incompatibilité de type.. Pourquoi?
21/04/2009, 09h39
Krovax
enlève ton $, si je me souvient bien c'est pour les chaine de caractère non?

au pire créé un variable de type date et entre dedans la valeur de ta cellule
Code:

1 2 3 4 dim t as date t=cellule.value If Abs(Date - t) < 20 Then
21/04/2009, 09h46
charline33

Ok ! merci c bon ca marche !
enfin j'ai mis ça sinon ça marchait pas.

Code:

t = ActiveSheet.Range(cellule$).Value

merci pour tout Krovax !!:D
21/04/2009, 09h58
Krovax

Juste une dernière chose fait très attention avec tes caractère qui définisse le type. C'est pas la première fois que ton problème viens de la. Essaye de faire des déclaration de variable bien propre au début de ton programme
je te conseil c'est les deux tutos qui sont dans la section variable ici

Dans ton cas cellule était l'adresse de ta cellule en format texte et non ta cellule elle même en format range. Avec une déclaration de variable ca saute presque au yeux.
Enfin libre a toi de choisir ta façon de programmer, on arrêtera pas de t'aider pour autant ;)

par contre la prochaine fois ca serais sympa de me rappeler ce que signifie le $ le % ou autre, j'ai retrouvé ton poste a ce sujet mais ca m'évite de chercher :aie: