Demande d'aide pour sélection de date

Version imprimable

Voir 40 message(s) de cette discussion en une page

Alors le programme est censé prendre les dates situées dans un intervalle de dates.
C'est-à-dire que le programme doit balayer la première colonne qui contient les dates, et copier les lignes correspondant à cet intervalle dans une autre feuille.
Je crois qu'il n'apprécie pas ma comparaison
et il me semble que l'on ne peut pas donner comme valeurs deux cellules précises à Range?
Je crois qu'il n'apprécie pas la façon dont je l'ai écrit.

Code:

'intervalle = Worksheets("donnees").Range(Min, Max)

Quoi qu'il en soit, il doit comparer et extraire les lignes appropriées.

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
    For Min = 1 To Max
    'Là, on demande au programme de chercher les données dans toute la feuille.
        Fin = Worksheets("donnees").Cells(Cells.Rows.Count, 1).End(xlUp).Row         'donc sur la feuille "données", la colonne 1 jusqu'à la fin des valeurs de la colonne
        While i < Fin
 
    'On définit ici les bornes du palier
            'intervalle = Worksheets("donnees").Range(Min, Max)            'intervalle de dates entre min et max
            cellule = Cells(i, 1)                                       ' cellule de la colonne 1 avec la ligne qui change à chaque itération
 
            If cellule >= Min Then
                ' CAS POSITIF
                If (cellule <= (Max) And (cellule >= (Min))) Then     'si la cellule est plus petite que... Alors
                    Worksheets(CStr(Palier)).Cells(j, 1) = cellule
                    j = j + 1
                End If
            Else
                ' CAS NEGATIF
                If (cellule >= Min) And (cellule <= (Max)) Then       ' si la cellule est plus grande que...Alors
                    Worksheets(CStr(Palier)).Cells(j, 1) = cellule
                    j = j + 1
                End If
            End If
 
            i = i + 1
 
        Wend

19/09/2014, 11h25
Phifou
Rapidement, avant de prendre l'avion :

Attention à la manière dont tu écris tes variables et tu les utilises. Si Min et Max sont des dates, tu ne peux pas les utiliser dans un Range, le Range reçoit des "adresses"...
Quand je te parle du type de ta variable, ce n'est pas le type de la variable qui se trouve dans la cellule.

Tu peux très bien écrire ton Range ainsi :
Code:

1 2 worksheets("donnees").range(cells(1, 1), cells (4, 3)).select
qui te permet de sélectionner une plage par exemple.

Donc si tu veux que min et max puissent entrer dans ton range, tu ne peux pas les appeler comme des dates.

Au passage, quelques erreurs dans ton code :
- manque le next à la fin (erreur de copier-coller ?)
- Tu peux définir "fin" en dehors de la boucle, c'est toujours la même valeur non ?

Est-ce que tu peux remettre ton code avec la définition des variables ? Essaye de relire (au moins rapidement) le cours sur les variables de Silkroad donné plus haut, ça t'aidera bien. Arrêtes toi un peu sur les Ranges. :)

Bonne journée,

Philippe

Oui, j'en suis arrivée à la même conclusion sur le range Vendredi.
J'ai modifié le programme.
Maintenant, la boucle marche mais lorsque je lance la boucle, seule une cellule est copiée.
De plus, quel type mettre pour les dates?
J'ai effectivement une erreur d'incompatiblité depuis ce matin. Surement à cause des types définies par les variables Min et Max.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Sub detectionPalier()
 
Dim Palier As String
Dim Min As Single
Dim Max As Single
Dim tolerance As Date
Dim adr1 As String
Dim adr2 As String
 
 
Min = Cells(3, 1)          'valeur minimum de l'intervalle date
Max = Cells(4, 1)
 
              ' écart toléré par rapport à la date voulue
 
' PARAMETRES
    tolerance = Cells(10, 1) '%
 
    'Recherche Paliers
    Worksheets("resultats").Activate
 
    'Récupérer la valeur temporelle du palier dans la feuille resultat
        Palier = Worksheets("resultats").Cells(3, 1)   ' définition d'un intervalle
 
    'Ajout d'une feuille
        Worksheets.Add
        ActiveSheet.Name = Palier 'l'appeler Palier fera que la feuille portera le nom de l'intervall
        j = 1
        i = 1
        'ActiveSheet.Name = Format(Palier, "mm / ss, 0")      'à tester pour formater le nom
 
        Worksheets("donnees").Activate
        Z = 0
 
    Fin = Worksheets("donnees").Cells(Cells.Rows.Count, 1).End(xlUp).Row    'Là, on demande au programme de chercher les données dans toute la feuille.
 
    'On définit ici les bornes du palier
            intervalle = Worksheets("donnees").Range("A3:A4")            'intervalle de dates entre min et max
    While Z = 0
            cellule = Cells(i, 1)       ' cellule de la colonne 1 avec la ligne qui change à chaque itération
            Cells(i, 1).Activate
            If cellule >= Min Then
                ' CAS POSITIF
                ActiveCell.Select
                Selection.Copy
                Worksheets(Palier).Paste
                'adr1 = ActiveCell.Address
                Worksheets("resultats").Activate
                Range("B18").Value = "donnees!" & adr1
                'MsgBox (ActiveCell.Address)         'On copie les valeurs sélectionnées
            Z = 1 'arrêt de la boucle While
 
            Else
 
                ' CAS NEGATIF
            i = i + 1
            Z = 0 'poursuite de la boucle While
            End If
    Wend
 
Worksheets("donnees").Activate
Z = 0
 
    While Z = 0
            cellule = Cells(i, 1)                                       ' cellule de la colonne 1 avec la ligne qui change à chaque itération
            Cells(i, 1).Activate
            If cellule >= Max Then
                ' CAS POSITIF
                ActiveCell.Select
                Selection.Copy
                Worksheets(Palier).Paste
                'adr2 = ActiveCell.Address
                Worksheets("resultats").Activate
                Range("B19").Value = "donnees!" & adr2
                'MsgBox (ActiveCell.Address)         'On copie les valeurs sélectionnées
            Z = 1 'arrêt de la boucle While
 
            Else
 
                ' CAS NEGATIF
            i = i + 1
            Z = 0 'poursuite de la boucle While
            End If
    Wend
 
End Sub

22/09/2014, 13h35
Phifou

Hello,

je ne suis pas sur encore d'avoir tout suivi, mais je vais essayer de comprendre avec ça déjà.

Bon, ton code est assez moche (sans offense), il y a des réflexes que tu n'as pas encore biens...

Si tu peux mettre un fichier excel en PJ de tes mails, ça aidera aussi à saisir.

Si je comprends bien, en cellule A3 tu as ta date minimale et en cellule A4 ta date maximale.
Si tu veux avoir l'intervalle entre les deux (j'imagine que tu veux dire le nbr de jours entre les deux dates ?) Mais d'ailleurs à quoi sert ta ligne 38 ?
tu définis une variable que tu n'utilise pas après... Pourquoi ?

Mets en Haut de ton code "Option explicit" ça te forceras à définir tes variables. A toi de les déclarer et donne nous les messages d'erreur que tu obtiens lorsque tu as des incompatibilité de type par exemple...
22/09/2014, 13h53
Philippe Tulliez

Bonjour,
Pour la ligne 38 de ton code

Citation:

Code:

intervalle = Worksheets("donnees").Range("A3:A4")

' intervalle de dates entre min et max

En VBA, il existe une fonction DateDiff qui calcule l'intervalle (Année, trimestre, mois, semaine, etc.) dont la syntaxe est

Code:

DateDiff(Ecart, DateAncienne, DateRecente)

Et pour info, il y a une formule Excel non documentée DATEDIF dont la syntaxe est

Code:

DATEDIF(DateAncienne, DateRecente, Ecart)

où l'argument Ecart peut avoir comme valeur Y, M, D, YM, YD, MD
22/09/2014, 14h06
eliniel
Salut,
Oui, je sais que c'est assez moche.
Je cherche à donner deux dates, et le programme doit cherche toute les lignes où les dates rentrent dans cet intervalle, et les copier sur une autre feuille.
La ligne 38, c'est à cause de mon ancienne méthode que j'avais testée mais je n'en ai plus besoin je crois.
Phifou, tu voudrais le fichier en pièce jointe ou je n'ai pas bien compris?

Le programme s'éxécute une fois, et copie le nom de la colonne "Horodatage", ce qui n'est déjà pas une date et encore moins la borne inférieure.
Ensuite, lorsque la boucle est finie, il recrée une feuille vierge. Pourtant, la partie création de feuille n'est pas dans ma boucle While?

Je crois que si la cellule 1 de la colonne 1 est copiée c'est parce que le programme prend la cellule active.
Mais il devrait normalement boucler vu que la cellule est :

Code:

Cells(i,1).Activate

donc à chaque itération, il est censée prendre la suite.
Code:

1 2 3 4 5 6 Cells(i, 1).Activate If cellule >= Max Then ' CAS POSITIF ActiveCell.Select Selection.Copy Worksheets(Palier).Paste
22/09/2014, 18h22
Marc-L

Je verrais bien un filtre ou mieux, un filtre avancé ou élaboré …
23/09/2014, 09h49
eliniel

Salut,
Merci pour ton article très intéressant, j'ai fait une refonte totale de mon programme hier, ce qui l'a rendu plus simple et plus lisible. (niveau lisibilité c'était pas dur de faire pire)
Il me manque juste à arriver à calculer une moyenne à partir de numéros de lignes en VBA et je devrais avoir finie. ^^

Voir 40 message(s) de cette discussion en une page