Discussion :

[cetialpha10]

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 :

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

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

[Daniel.C]

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

Code :

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

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 :

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

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

[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.

[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

[SfJ5Rpw8]

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 ?

[Daniel.C]

@ bbil :

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

Code :

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

Application.OnTime Temps, "TEMPO1"

au lieu de

Code :

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

Application.OnTime Now + TimeValue("00:00:20"), "TEMPO1"

[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

[Daniel.C]

A quoi sert la temporisation ?

[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

[Daniel.C]

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

Code :

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

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