Temporisation d'un code

Version imprimable

bonjour

comment faire en sorte pour que la tempo suivante soit activée lorsque je viens sur ma feuille nommée "RESEAU" et qu'elle soit desactivée lorsque je quitte cette feuille ? car à chaque fois que je quitte et me rend sur ma feuille plusieurs instances de temporisation se mettent en route
Code:

1 2 3 4 5 Public Sub TEMPO1() Sheets("RESEAU").Range("B21:C100").Sort Key1:=Sheets("RESEAU").Range("B21:C100"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Application.OnTime Now + TimeValue("00:00:20"), "TEMPO1" End Sub
Merci

Bonjour,
Je ne comprends pas bien ce que tu veux faire... Dans un module standard, mets :

Code:

1
2
3
4
5
Public Temps As Date
Public Sub TEMPO1()
    Temps = Now + TimeValue("00:00:20")
    Application.OnTime Now + TimeValue("00:00:20"), "TEMPO1"
End Sub

Dans le module de la feuille, mets :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Activate()
    Sheets("RESEAU").Range("B21:C100").Sort Key1:=Sheets("RESEAU").Range("B21:C100"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Temps = Now + TimeValue("00:00:20")
    Application.OnTime Temps, "TEMPO1"
End Sub
 
Private Sub Worksheet_Deactivate()
    Temps = Now + TimeValue("00:00:20")
    On Error Resume Next
    Application.OnTime Temps, "TEMPO1", , False
    On Error GoTo 0
End Sub

01/10/2011, 17h45
SfJ5Rpw8

Bonsoir,

A vérifier mais sauf erreur il faut utiliser la même heure pour arrêter une macro que celle utilisé lors du lancement ...

et donc modifier le code à daniel ..

en supprimant la ligne 9 Temps = Now + TimeValue("00:00:20") du desactivate.
01/10/2011, 17h47
cetialpha10

Merci pour cette réponse qui me convient bien , toutefois comment puis je retirer de ce code l'instruction de tri qui s'opère sur les colonnes ?

Merci
01/10/2011, 17h49
SfJ5Rpw8

Citation:

Envoyé par cetialpha10

Merci pour cette réponse qui me convient bien , toutefois comment puis je retirer de ce code l'instruction de tri qui s'opère sur les colonnes ?

Merci

c'est à dire ? tu ne veux plus que ce tri soit exécuté toutes les 20 secondes ?
01/10/2011, 18h29
Daniel.C

@ bbil :

Tu as parfaitement raison et modifier la ligne 4 de TEMP01 :

Code:

Application.OnTime Temps, "TEMPO1"

au lieu de

Code:

Application.OnTime Now + TimeValue("00:00:20"), "TEMPO1"
01/10/2011, 19h04
cetialpha10

en fait je remplit la colonne de ma feuille RESEAU par selection de cellule constituant ma base de données à partir d'une feuille2 j'ai le code qui le fait tres bien , ensuite sur ma feuille RESEAU si manuellement je decide d'effacer le contenu d'une ou plusieurs cellules , alors la plage de cellules se trouvant sous la ou les cellules liberées doivent remonter et puis lorsque je continue de completer ma colonne de ma feuille reseau la derniere cellule selectionnée devra toujours etre la dernière de la liste , ce code remonte bien les plages de cellules lorsqu'une cellule est liberée , mais parfois procede à un arrangement par ordre alphabetique de la colonne ce que je ne souhaite pas
01/10/2011, 19h57
Daniel.C

A quoi sert la temporisation ?
01/10/2011, 20h04
cetialpha10

la temporisation ordonne l'execution du code à un delai fixé ( ici toutes les 20s)

il est possible que je me trompe et qu'il y a plus simple

Sinon, la macro suivante, à mettre dans le module de la feuille RESEAU ne se déclenche qu'en cas d'effacement de cellule :

Code:

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 2 Then Exit Sub
    If Application.CountA(Target) = 0 Then
        Application.EnableEvents = False
        Range([B21], Cells(Rows.Count, 3).End(xlUp)).Sort Range("B21"), Order1:=xlAscending, Header:=xlGuess
        Application.EnableEvents = True
    End If
End Sub