HELLLLLLLLLLLLLLLPPPPPPPPPPPP. JE N'EN PEUX PLUSSSSSSSSSSSSSSSSSS. MERCI

Kamal - 2 nov. 2001 à 19:04
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 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.

Merci beaucoup

Kamal

PS: Comment declarer du code dans une "Form"?

Merci bcp

3 réponses

Salut,

Pourquoi pas avec un Timer ?

Cyrille.
0
Cyrille,

Si tu sais comment faire ca serait sympa de me montrer.
Merci bcp

kamal
0
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
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.....
0
Rejoignez-nous