Discussion :

[eliniel]

Bonjour,
je dois faire un programme qui dois pouvoir sélectionner des lignes selon un intervalle de temps et les copier sur une nouvelle feuille d'un même classeur.
Et, si possible, ajuster l'intervalle de date aux valeurs les plus proches du fichier par rapport à celles rentrées par l'utilisateur et faire la moyenne de chaque colonne.

J'ai donc créer une partie sur l'import des données qui fonctionne et ensuite j'ai défini les deux intervalles de dates sur des cellules de la feuille de calcul afin que l'utilisateur puisse remplir lui-même les bornes.
Une nouvelle page est ensuite créée mais au moment de la recherche de valeur (par comparaison) la macro s'arrête.

Le problème c'est qu'au niveau de la sélection des données pour voir si les valeurs de la ligne sont dans l'intervalle, le programme me dit:

erreur '1004'
erreur définie par l'application ou par l'objet.

J'ai du mal à voir comment faire.

[Invité]

Bonjour

Il faudrait que tu mettes le code, car sans cela, personne ne pourra t'aider.

Philippe

[eliniel]

Comme ceci?

Code :

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

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
Sub detectionPalier()
 
Min = Cells(3, 1)
Max = (4.1)
Dim tolerance As Date
Dim Palier As Variant
' PARAMETRES
    tolerance = Cells(1, 2) '%
 
' PALIERS
    Worksheets("resultats").Activate
 
    For Min = 1 To Max
 
    'Récupérer la valeur temporelle du palier dans la feuille resultat
        Palier = Worksheets("resultats").Cells(3, 1) And Worksheets("resultats").Cells(4, 1)
 
    'Ajout d'une feuille
        Worksheets.Add
        ActiveSheet.Name = Palier 'l'appeler Palier fera que la feuille portera le nom de l'intervalle
        j = 1
        i = 1
 
 
 'Là, on demande au programme de chercher les données dans toute la feuille.
 
        fin = Worksheets("donnees").Range(Min).Range(Max)       'donc sur la feuille "données", la colonne 1 jusqu'à la fin des valeurs
        While i < fin
 
    'On définit ici les bornes du palier
            inter = Worksheets("donnees").Range(Min, Max)
            cellule = Cells(i, 1)
 
            If cellule >= Min Then
                ' CAS POSITIF
                If (cellule <= (Max * (1 + tolerance / 100) + 0.02)) And (cellule >= (Min * (1 - tolerance / 100) - 0.02)) Then  'si la cellule est plus petite que... Alors
                    Worksheets(CStr(Palier)).Cells(j, 2) = cellule
                    j = j + 1
                End If
            Else
                ' CAS NEGATIF
                If (cellule >= (Min * (1 + tolerance / 100) - 0.02)) And (cellule <= (Max * (1 - tolerance / 100) + 0.02)) Then
                    Worksheets(CStr(Palier)).Cells(j, 2) = cellule
                    j = j + 1
                End If
            End If
 
            i = i + 1
 
        Wend

[Phifou]

Ton erreur se situe sur quelle ligne ?

[Marc-L]

Je crois bien que la ligne n°16 est digne de JCVD : totalement aware !
Devant déclencher une erreur en ligne n°20 lors de la seconde itération …

Vérifier la valeur prise par la variable afin de savoir si c'est bien celle attendue et dans la négative,
expliquer enfin ce qu'est censé réaliser la ligne n° 16 !

[eliniel]

Oui, je suis débutante en VBA et on va dire que je ne suis pas très douée. :s
la ligne 16?
Je voulais récupérer les deux bornes de mon intervalle avec cette ligne.

[Marc-L]

Bonjour, bonjour !

Ici ce n'est ni un forum de génie ni de voyance : on a donc du mal à voir le code ‼
Commencer donc par consulter les règles du forum …