Incrémenter un tableau Excel toutes les minutes

Incrémenter un tableau Excel toutes les minutes - VB/VBA/VBS - Programmation

Marsh Posté le 06-02-2015 à 09:41:01    

Bonjour, dans le cadre de mon travail je dois réaliser un outils me permettant de connaître toutes les minutes la consommation en eau d'un groupe.
 
Précisions:
Cellule A1 = temps de démarrage du groupe exemple : 08:00:00
Cellule A2 = temps écoulé en minute. A2 fait la différence entre le temps système et A1. A2 s'actualise toutes les minutes
Cellule A3 = Débit du groupe. Exemple: 1000 l/mn
Cellule A4 = La consommation soit A3 X A2
 
J'aimerai (si possible):
Au bout d'une minute 1mn copier la valeur A2 et A3 et les coller ligne 1 feuille 2
2 mn -> copier A2 et A3 et les coller sur ligne 2 feuille deux
Etc....
 
L'idée c'est d'avoir un graphique qui s'actualise.
Est ce possible ?
 
Merci par avance.
A+

Reply

Marsh Posté le 06-02-2015 à 09:41:01   

Reply

Marsh Posté le 09-02-2015 à 10:57:59    

Arf, je vois que personne peut m'aider :??: . Pensez vous que avec une boucle on peut y arriver ?
Merci

Reply

Marsh Posté le 09-02-2015 à 16:52:40    

Salut,
 
Tu devrais te pencher vers:
 

Code :
  1. Application.OnTime


Je viens de faire un bout de code en m'inspirant de l'exemple sur MSDN. Le code fonctionne plutôt bien.
 
Un début de piste, bon courage!

Reply

Marsh Posté le 11-02-2015 à 09:08:26    

Salut mmarle,
Merci pour l'info je vais y regarder.
A+

Reply

Marsh Posté le 11-02-2015 à 11:19:43    

Citation :

temps écoulé en minute.


:??:
Je dirais, une minute ? :D
 
Question bête : comment tu récupères la consommation en eau d'un groupe :??:
Parce que je me dis qu'Excel n'est peut-être pas le bon outil pour faire ce que tu veux :/ Une appli web avec un graphique fait en html5 alimenté par des données envoyées en ajax par un script côté serveur (genre, en php) qui collecterait les consommations d'eau, ça serait peut-être une meilleur voie. En effet, le jour où on va te demander de pouvoir visualiser de manière partagée ton graphique, ça sera mort, ton truc en Excel ne pouvant répondre à ce besoin :/
 
Après, tu peux regarder du côté des outils de supervision (mais là, c'est peut-être le rouleau compresseur pour écraser une mouche). Tu pourrais nous en dire plus sur comment tu collectes les données et à quelles fins les graphiques produits vont servir ?


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
Reply

Marsh Posté le 11-02-2015 à 12:21:36    

Salut Rufo, J'essaye de faire qque chose de simple sur excel. Tu trouveras le lien de l'interface:
http://www.casimages.com/img.php?i [...] 953239.jpg
 
En blanc les cellules ou il faut rentrer une valeur (en D4 l'heure de début format 00:00:00 et en D16 le débit du groupe en format nombre l/mn)
 
La cellule en rouge H4 c'est la différence entre O1 qui nous donne le temps réel et l'heure de début en D4.
 
La macro de O1 est la suivante:

Code :
  1. Sub HorlogeEnA1()
  2. If bstop = True Then
  3. 'Annuler le paramétrage du OnTime programmé précédemment.
  4. Application.OnTime EarliestTime:=HeureProchainAppel, _
  5. Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:=False
  6. Exit Sub
  7. End If
  8. Sheets("Feuil1" ).Range("O1" ).Value = Format(Now, "HH:MM:SS" )
  9. 'Nouveau paramétrage de OnTime
  10. HeureProchainAppel = Now + TimeValue("00:00:10" )
  11. Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False
  12. End Sub


 
Ensuite la cellule O2 =(HEURE(H4)*60+MINUTE(H4)+SECONDE(H4)/60)
 
Du coup la cellule conso eau =(O2*D16)*10^-3
 
*********
Maintenant j'aimerai juste et si possible toutes les minutes par exemple copier le temps + la cellule conso  eau dans une autre feuille sous forme de tableau pour faire un graphique.
 
Merci par avance.


Message édité par doudoufly le 11-02-2015 à 12:57:58
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed