IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Code modification pas de temps VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Septembre 2022
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Jura (Franche Comté)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Septembre 2022
    Messages : 6
    Par défaut Code modification pas de temps VBA
    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

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 166
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 166
    Billets dans le blog
    53
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Septembre 2022
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Jura (Franche Comté)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Septembre 2022
    Messages : 6
    Par défaut
    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

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 166
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 166
    Billets dans le blog
    53
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  5. #5
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    Septembre 2022
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Jura (Franche Comté)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Septembre 2022
    Messages : 6
    Par défaut
    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.

    Nom : visualisation_codevba_pasdetemps.png
Affichages : 223
Taille : 49,3 Ko
    Voilà la version photo du excel que j'ai partagé juste avant. J'espère qu'elle vous aidera.

  6. #6
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 166
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 166
    Billets dans le blog
    53
    Par défaut
    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
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

Discussions similaires

  1. innerHTML, code HTML pas mis à jour
    Par highman dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 24/10/2006, 14h55
  2. Modification de requete avec VBA
    Par vuong1 dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 11/08/2006, 08h00
  3. [TP] Pas le temps de voir les résultats à l'écran
    Par bonomsoleil dans le forum Turbo Pascal
    Réponses: 5
    Dernier message: 08/02/2006, 22h49
  4. Pourquoi ce code marche pas sous FF?
    Par Death83 dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 09/09/2005, 10h04
  5. [Début.C#] Je n'ai pas le temps de voir se qui s'affiche!!!!
    Par sylvain_c42 dans le forum Windows Forms
    Réponses: 4
    Dernier message: 02/06/2005, 16h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo