HELLLLLLLLLLLLLLLPPPPPPPPPPPP. JE N'EN PEUX PLUSSSSSSSSSSSSSSSSSS. MERCI
Kamal
-
2 nov. 2001 à 19:04
Adn56
Messages postés1172Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention28 septembre 2013
-
26 sept. 2007 à 16:00
Bonjour,
Je suis confronte a un petit probleme de
programmation.
Voila, je voudrais ecrire une macro qui se realiserait
automatiquement sans arret entre 7 heure et 18 heure
et qui effectuerait les operations suivantes:
Sachant que le contenu de A1 change continuellement.
I) copier la cellule A1 dans la cellule Ci (avec
i=indice de ligne=1)
II) Si A1 different de Ci alors aller a Ci+1 et copier
A1 dans Ci+1
Sinon copier A1 dans Ci
III) Si A1 change une nouvelle fois, la macro
effectuera une nouvelle fois l’operation:
Si A1 different de Ci+1 alors aller a Ci+2 et copier
A1 dans Ci+2
Sinon copier A1 dans Ci+1
Etc…
Bref, le but de cette macro serait de sauvegarder dans
chaque cellule d'une colonne un chiffre a chaque fois
que celui ci change.
J'aimerais savoir comment je pourrais utiliser une
horloge de telle sorte a ce que la valeur de la
cellule A1 soit enregistree toutes les secondes entre
7h et 18heures.
Adn56
Messages postés1172Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention28 septembre 20131 26 sept. 2007 à 16:00
Comment faire un timer sur excel ?
Dim Lheure As Double
Dim Interval As Integer
Sub LancerTimer(NbS As Integer)
'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et
Interval seconde
Interval = NbS
Application.OnTime Now + TimeSerial(0, 0, Interval), "ExecutionTimer"
End Sub
Sub ArretTimer()
On Error Resume Next
Application.OnTime Lheure, "ExecutionTimer", , False
End Sub
Sub ExecutionTimer()
'code à exécuter à la fin de chaque Interval secondes
'code obligatoire
Lheure = Now + TimeSerial(0, 0, Interval)
Application.OnTime Lheure, "ExecutionTimer"
End Sub
Cathy MONIER, (N°1344)
Tiens les balises ne sont pas reconnues ^_____^, zut alors.....