Problème formule répétition

[shmouki]

Bonsoir ou bonjour à toutes, et à tous,

j'ai cette formule :

Sub Coucou()
Dim fin As Integer
Dim i
Call Classer
Cells(11, 12) = ""
Cells(7, 11) = Format(Now, "hh:mm:ss")
fin = Range("G65536").End(xlUp).Row
For i = 1 To fin
If CDate(Cells(10, 4)) <= CDate(Cells(i, 7)) - CDate(Cells(18, 2)) Then Cells(11, 12) = Cells(i, 8): Exit For
Next
End Sub


ainsi que ce module ci :

Sub Classer()
Feuil1.Range("G1:H" & Range("G65000").End(xlUp).Row).Sort Key1:=Range("G1") _
, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


et j'aimerais pouvoir répété la formule automatiquement mais il m'affiche des problème !!!

Pourriez-vous m'aider svp ???

et je joins aussi un fichier pour mieux comprendre la chose

Merci d'avance de vos réponse

 

[Habitude]

Re : Problème formule répétition

juste après tes 2 sub
met
application.volatile

exemple :

Sub Coucou()
application.volatile
Dim fin As Integer
Dim i
...

 

[shmouki]

Re : Problème formule répétition

bonjour à tous,

Désolé mais ça ne fonctionne pas ! j'espère que vous pourrez m'aider !

Meilleures salutations

Shmouki

 

[Cousinhub]

Re : Problème formule répétition

Bonjour,

je ne vois pas pourquoi tu mets l'heure en cells(7,11), et que tu compares ensuite la cellule cells(10,4).....

Change cette cellule de comparaison, pour voir

 

[shmouki]

Re : Problème formule répétition

Bonjour à tous,

j'ai simplifier et maintenant j'ai un problème qui se présente à moi

Sub GO()
Feuil1.Coucou
End Sub

comment faire pour que cette marco se lance toute seul et en plus qu'elle se répete à l'infini ???


Merci d'avance de vos réponses

Meilleures salutations

Shmouki