Discussion :

[yahi.jye]

bonjour,
je voudrai que ma macro automate, démarre a partir de 9h ou plus si l'ouverture du fichier est apres 9h et s'arrete ou ne démarre pas s'il est plus de 17h59min59sec, j'ai fait ce code :

Code :

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

1
2
3
4
5
6
7
Sub automate()
' exécuter Worksheet_Calculate à 9 heures.
Application.OnTime TimeValue("09:00:00"), "Worksheet_Calculate"
' annuler le paramétrage de OnTime a 18 heures moins 1 seconde.
Application.OnTime EarliestTime:=TimeValue("17:59:59"), _
Procedure:="Worksheet_Calculate", Schedule:=False
End Sub

est ce juste ou comment le compléter pour qu'il corresponde bien a ma problématique ?

merci

[SfJ5Rpw8]

tu devrai faire un tour dans l'aide en ligne de OnTime ... la ligne :

Code :

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

1
2
 
Application.OnTime TimeValue("09:00:00"), "Worksheet_Calculate

ne permet d'exécuter la procédure "Worksheet_Calculate" qu'une seule
fois à 9h00 .. c'est ce que tu ve ..?

et la ligne :

Code :

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

1
2
3
 
Application.OnTime EarliestTime:=TimeValue("17:59:59"), _
Procedure:="Worksheet_Calculate", Schedule:=False

va t'amener à une erreur .. il n'y as rien de précédament programmé .. 17:59:59

[yahi.jye]

ba effectivement ca marche pas !
je me demandais si éventuellement avec une boucle ca pouvait marcher mais je ne sais pas comment le programmer :

sub automate()

tant qu'il est entre 9h et 17h59min59sec

Worksheet_Calculate

Sinon ne rien faire

end sub

mais je sais pas faire le tant qu'il est entre 9h et...

merci de m'aider !

yahi

[SfJ5Rpw8]

mais il y as quoi dans ta procedure :

Code :

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

1
2
 
Worksheet_Calculate

.. tu dois la répéter périodiquement..?

[yahi.jye]

Ma procedure observe un certain nombre de cellules qui sont ammenées a etre modifier de facon extérieur. Dès qu'une d'elles change, alors ca va copier le contenue sur d'autres lignes, les une sous les autres pour en faire un graphique.
Mais mes données tombent entre 9h et 18h et si ca prend avant ou apres, ca plante ! voila le pb !
Ma "Worksheet_Calculate" ne prend pas l'info a interval de temps mais seulement quand qqchose change* ! (calcule de température, ... )


* et oui si je mets interval 1sec, excel plante ou plutot boure la machine et ca finit par planter ; ca prend des valeures égales qui n'ont aucun intéret, et le tableau devient encore plus monstrueux !

;-)

yahi

[SfJ5Rpw8]

..
Ma "Worksheet_Calculate" ne prend pas l'info a interval de temps mais seulement quand qqchose change* ! (calcule de température, ... )
.....

ben utilise une procédure sur changement d'état dans ces cellules .., et teste l'heure avant d'éffectuer la copie..

enfin.. j'ai pas encore tout compris...

[yahi.jye]

euh.. faut faire comment justement pour tester l'heure ...
sinon ca incrémente bien mes colonnes !
C'est "juste" pour déterminer le démarage et l'arret (ou plutot la plage horraire de travail) qui pose pb..

[yahi.jye]

if 9h < time < 17h59min59sec then ...
...
end if
end sub

je suis vraiment pas sur que ca s'exprime ainsi !??

yahi

[SfJ5Rpw8]

ben cela donne..

Code :

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

1
2
3
4
5
6
7
 
If Time > TimeValue("09:00") And Time < TimeValue("17:59") Then
 ....
 Ici ton code ... ou l'appel à ta Work..:
Worksheet_Calculate
...
  End If

[yahi.jye]

Je vais te mettre dans mes favoris !

donc t'es la le soir, et tu me résouds tout en un tour de main !
c'est génialissime !

merci bcp !

a bientot pour de nouvelles aventures VBA !

passe une bonne soirée !

yahi, ravi !

[yahi.jye]

ha juste histoire de..
ca se met comment une procédure de changement d'état d'une cellule,
ca peut etre intéressant de mettre un enregistrement automatique, au cas ou le pc plante...
je crois que je pourait faire avec un enregistrement toutes les demi heures, mais pkoi pas inclure directement a chaque changement ?

promis apres j'arrete pour ce soir !

yahi

[SfJ5Rpw8]

dans l'editeur de code tu double clic sur ta feuille dans l'arborescence à gauche...

puis dans les 2 combobox en haut tu choisi Worksheet et Change

Code :

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

1
2
 
Private Sub Worksheet_Change(ByVal Target As Range)

la variable target en paramétre est la plage de cellule modifié.. une petite recherche sur ce forum te permettra de trouver des exemples d'utilisation .. (voir aussi intersect..)

bonne nuit..

[yahi.jye]

Bon ce sera a voir un autre jour, ca me parle pas trop !
merci encore !

bonne nuitée !
yahi