Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionApplication.OnTime Now + TimeValue("00:00:25") Range("B21:C100").Select Selection.Sort Key1:=Range("B21:C100"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("B21:C100").Select end sub
Application.OnTime Now + TimeValue("00:00:15"), "TEMPO" Range("B21:C100").Select Selection.Sort Key1:=Range("B21:C100"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Range("B21:C100").Select end sub
Private Sub Worksheet_Activate() Application.OnTime Now + TimeValue("00:00:10"), "toto" End Sub
Public Sub toto() MsgBox "coucou" Application.OnTime Now + TimeValue("00:00:10"), "toto" End Sub
j'ai bien l'aide mais elle serait nettement insuffisante pour effectuer les manip que tu m'a recommandé
Private Sub Worksheet_Activate() Application.OnTime Now + TimeValue("00:00:10"), "TEMPO" End Sub
Public Sub TEMPO() Range("C6:D17").Select 'plage par exemple où sont tes noms et adresses Selection.Sort Key1:=Range("C6:D17"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'B5 est la cellule où il y a le premier nom Range("C6:D17").Select Application.OnTime Now + TimeValue("00:00:10"), "TEMPO" End Sub
retourne sur Feuil1 ===>> va sur Feuil2 === >> reviens sur Feuil1
est ce que je peux placer active sheets("alpha") devant range("c6:c17") ?