S
shmouki
Guest
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
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