Discussion :

[leagr]

Bonjour,

Je m'adresse à vous aujourd'hui car je me lance dans VBA pendant mon stage et je ne parviens pas à trouver l'erreur dans un code que j'ai fais.

Pour vous expliquer la situation j'ai un tableau avec des valeurs de température (colonne 2), d'humidité et d'illumination relevées à différentes dates (format jj/mm/aaaa hh/mm/ss, colonne 1) pour un pas de temps allant de 1 à 11s (il n'est pas toujours régulier).
J'aimerais avoir un nouveau tableau avec un pas de temps de 10min pour lequel la valeur affichée à chaque temps t est la moyenne des températures sur les 10 min précédentes.

Pour cela :

• je demande à l'exécuteur de saisir le pas de temps désiré au cas où je veuille le refère pour un autre pas de temps (pdt_voulu)
• grâce à une boucle If, dès que la somme des écarts de temps entre deux mesures (pdt) atteint cette valeur, (obtenu grâce à DateDiff)
• je calcule la moyenne des températures sur l'intervalle
• que je fais figurer dans un nouveau tableau colonnes 7 et 8 avec :
  
  • en colonne 7 la dernière date prise en compte dans le calcul de la moyenne de température pour cet intervalle
  • en 8 la moyenne de température de l'intervalle.

Normalement j'intègre ça dans une boucle for allant de 2 à 77460 mais comme cela était lourd à gérer j'essaie dans un premier temps de l'appliquer jusqu'à la ligne 1000.
Le fait est que rien n'apparaît dans les colonnes si ce n'est le nom des colonnes.

Je vous laisse mon code juste ici au cas où vous pourriez m'aider.

Merci d'avance pour vos réponses.

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
Private Sub CommandButton1_Click()
 
With Worksheets("Feuil1")
 
Dim lignei As Single
Dim pdt As Single
Dim pdt_voulu As Single
Dim som_temp As Single
Dim moy_temp As Single
Dim date1 As Date
Dim date2 As Date
Dim ligne_result As Single
 
pdt_voulu = InputBox("Pas de temps =", "Choix du pas de temps en minutes")
 
.Cells(1, 7) = "Date"
.Cells(1, 8) = "Température"
 
For lignei = 2 To 1000
     .Range(.Cells(lignei, 7), .Cells(lignei, 8).End(xlDown)).Clear
Next lignei
 
 
For lignei = 2 To 1000
         temp = 0
         pdt = 0
              If pdt <= pdt_voulu Then
                  som_temp = temp + .Cells(lignei, 2).Value
                  date1 = .Cells(lignei, 2)
                  date2 = .Cells(lignei, 3)
                  pdt = DateDiff("n", date1, date2, vbMonday) 'date1 antérieure à date2, "n" car on veut en minutes
              Else
                  ligne_result = ligne_result + 1
                  moy_temp = som_temp / (lignei - 2) '-2 car lignei = 2 quand il n'y a qu'une valeur et parce que on retamme une boucle donc lignei augmente de 1 et pas le nombre de valeurs prises en compte dans la temp
                  .Cells(ligne_result, 7).Date = .Cells(lignei, 1).Date
                 .Cells(ligne_result, 8).Value = moy_temp
             End If
 
Next lignei
 
End With
 
End Sub

[Philippe Tulliez]

Bonjour,

Normalement j'intègre ça dans une boucle for allant de 2 à 77460 mais comme cela était lourd à gérer j'essaie dans un premier temps de l'appliquer jusqu'à la ligne 1000.

Quand, je vois que vous utilisez une boucle pour effacer le contenu des cellules, ligne 19 à 21 du code publié, je comprends que cela prenne du temps.
Avant de programmer, Il faut toujours se poser la question "Comment ferais-je cela manuellement ?"
Pour effacer le contenu d'une plage de cellules, on sélectionne cette plage et ensuite soit on presse la touche "Supprimer" soit on clique sur la commande effacer donc en VBA, comme il ne faut pas sélectionner les cellules, l'instruction pour effacer la place G2:H77460, c'est tout simplement Range("G2:H77460").Clear (Attention de bien préciser la parentalité de la plage, à savoir la feuille et le classeur.

Pour votre autre problème, dans la première branche de votre structure décisionnelle, If de la ligne 27 If pdt <= pdt_voulu Then, je ne vois aucune écriture. Le problème vient peut-être de là ?

N'ayant pas compris grand chose à votre problématique, je n'ai pas poussé plus loin mes investigations
Une illustration de ce que pourrait contenir les dix premières lignes de vos colonnes A & B, un exemple d'une valeur que vous pourriez entrer dans l'InputBox avec un exemple du contenu attendu des dix premières lignes des colonnes G et H , aiderait grandement à la compréhension.

A lire éventuellement
Excel VBA - La parentalité d’un objet

[leagr]

Merci beaucoup, il est vrai que je n'avais pas pensé à réfléchir de la sorte mais une telle procédure devrait en effet me faire gagner du temps! Et puis ça permet aussi de réduire les lignes de codes et on gagne en lisibilité. Merci pour ce conseil.

Par contre pour la deuxième partie je ne vois pas ce que vous voulez dire quand vous dites que vous en voyez aucune écriture. vous voulez dire que vous n'avaez pas accès aux lignes de codes 27 à 43?

Oui vous avez raison cela aidera surement à comprendre! Voilà un fichier excel avec un extrait des données qui j'espère aidera à la compréhension.
Exemple_resultat_vba_code_pasdetemps.xlsx

[Philippe Tulliez]

Bonjour,

Par contre pour la deuxième partie je ne vois pas ce que vous voulez dire quand vous dites que vous en voyez aucune écriture. vous voulez dire que vous n'avaez pas accès aux lignes de codes 27 à 43?

Je voulais dire qu'il n'y avait aucune instruction d'écriture dans les cellules

Oui vous avez raison cela aidera surement à comprendre! Voilà un fichier excel avec un extrait des données qui j'espère aidera à la compréhension.

Personnellement, je n'ouvre pas les classeurs
Lorsque je parle d'illustration, c'est une image que vous pouvez publier afin de mieux comprendre

[leagr]

Ah bon? Je pensais que ces deux lignes dans Else permettaient d'isncrire la date et les moyennes de température dans les cases :
.Cells(ligne_result, 7).Date = .Cells(lignei, 1).Date
.Cells(ligne_result, 8).Value = moy_temp

Le but étant que tant que le pas de temps calculé est inférieur au pas de temps désiré on soit dans la boucle If et dès que ce n'est plus le cas on passe dans Else. Dans Else la somme des températures calculée précédment (dans If) devient une moyenne de température pas la divison par le nombre de valeurs. Elle vient s'ajouter dans la colonne H. La date colonne G est récupérée colonne A pour la dernière ligne prise en compte dans le calcul de la température. Enfin c'est ce que j'ai essayé de faire.


Voilà la version photo du excel que j'ai partagé juste avant. J'espère qu'elle vous aidera.

[Philippe Tulliez]

Bonjour,
Pourquoi VBA ?
Ne serait-ce pas plus simple d'écrire les formules dans les colonnes G et H. Si vous convertissez la plage de cellules en tableau, l'insertion ne se fait que dans une cellule de la colonne et est propagée immédiatement sur l'ensemble de ses lignes et au lieu d'utiliser un InputBox, on introduit le temps dans une cellule de la feuille

Si vous voulez absolument le faire en VBA, le plus simple aussi bien pour l'écrire en VBA que pour la rapidité d'exécution, c'est de tester l'écrire de la formule manuellement et ensuite l'insérer en VBA. C'est une ligne de code pour l'écriture dans une colonne et ce, qu'il y ait 10 lignes ou 78.000. Pas besoin de boucle.

Voir mes deux billets sur le sujet

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

[leagr]

J'aimerais procéder sur VBA pour plusieurs raisons, tout d'abord à titre personnel pour m'améliorer car j'ai une grande marge de porgression de là où je pars et étant en stage je profite de l'occasion pour m'exercer et apprendre sur du concret(j'avais seuleemnt appris à discrétier des équations différentielles sur VBA à l'école donc ça ne m'est pas très utile) alors j'essai d"intégrer du VBA quand je peux. :) Ensuite ces valeurs je vais les comparer à d'autres dont le pas de temps est déjà de 10 min ou pourra changer et je vais faire cette manoeurve souvent pour différent critères autres que la température. J'aimerais donc arriver à faire un premier code que je pourrais ensuite réutiliser facilement durant mon stage sur d'autres données.

Merci d'avoir pris le temps de me répondre et merci de me joindre ces deux documents. Je pense qu'ils peuvent m'aider. :D

[Philippe Tulliez]

Bonjour,
Un exemple de formule a placer en cellule G2 et suivantes et ce en supposant que la première ligne des colonnes A, B, G et H sera toujours la deuxième sinon il faudra améliorer la formule. La valeur d'écart (par exemple 10 minutes) est placée en cellule P1 avec le format hh:mm.
La colonne A doit être triée par ordre croissant

Pour l'exemple, la colonne A est remplie jusqu'à la ligne 1097

Code :

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

=DECALER($A$2;(EQUIV(CNUM($A$2)+(LIGNE()-1)*CNUM($P$1);$A$2:$A$1097;1)-1);0)

Pour calculer la moyenne (colonne H), il faudra également utiliser les fonctions DECALER et EQUIV imbriquées dans MOYENNE (il faut tester la vitesse car la fonction DECALERétant une fonction volatile, elle se recalcule à chaque modification de n'importe quelle cellule de n'importe quel classeur ouvert. Cela pourrait donc devenir chronophage avec plus de 77 000 lignes

Si c'est trop lent, il faudra passer par une boucle.

[EricDgn]

Bonjour,

Une autre proposition: ajouter une colonne contenant les heures arrondies à la plage de temps fixée, heures calculées à l'aide de la fonction PLANCER.MATH. Exemple: =PLANCHER.MATH([@date];F$2) où F$2 contient le pas de temps.

Ensuite il est possible d'utiliser la fonction UNIQUE() sur cette colonne des heures arrondies et la fonction MOYENNE.SI.ENS pour calculer les moyennes.


Il est également possible de faire un tableau croisé dynamique en partant des heures arrondies.

Cordialement.

[Philippe Tulliez]

Bonjour Eric,
Ta solution est nettement plus simple à mettre en place et évite la lenteur de DECALER

Je mettrais le croisillon derrière la référence E13 pour permettre à la formule de se propager =MOYENNE.SI.ENS(Tableau1[temp];Tableau1[dT];E13#)

[EricDgn]

Bonjour Philippe,

Effectivement avec le croisillon E13#, c'est vraiment parfaitement exploiter Excel. Je l'oublie encore trop souvent ce croisillon!

Bien cordialement.

Egalement possible d'utiliser Power Query pour obtenir les moyennes. Exemple en attaché.