Insérer un délai dans...

[SerGoy]

Bonjour

Je cherche à insérer une délai lors de l'exécution d'une macro.

Voici la macro :

Dim l As String
l = ActiveCell.Row
rep = MsgBox("Désirez-vous Déplacer la ligne ?", vbYesNo, "Confirmation...")
If rep = vbNo Then End
If ActiveCell.Column = 1 Then ActiveCell.Offset(0, 1).Select
For x = 1 To 20
If Not ActiveCell.Column = 2 Then ActiveCell.Offset(0, -1).Select
Next x
ActiveWorkbook.Save
OngletDe = ActiveSheet.Name
Selection.Copy
Sheets(OngletVers).Select
Range("B200").Select
ActiveSheet.Paste
Sheets(OngletDe).Select
ActiveCell.Next.Activate
Application.CutCopyMode = False
Selection.Copy
Sheets(OngletVers).Select
Range("E200").Select
ActiveSheet.Paste
For x = 1 To 7
Sheets(OngletDe).Select
ActiveCell.Next.Activate
Application.CutCopyMode = False
Selection.Copy
Sheets(OngletVers).Select
ActiveCell.Next.Activate
ActiveSheet.Paste
Next x
If OngletDe = "21" And OngletVers = "Réalisation" Then Sheets("Réalisation").Range("O200") = Sheets("21").Cells(l, 15)
If OngletDe = "Réalisation" And OngletVers = "Terminée" Then Sheets("Terminée").Range("O200") = Sheets("Réalisation").Cells(l, 15)
If OngletVers <> "21" And OngletVers <> "Réalisation" Then GoTo Poursuivre
If OngletDe <> "21" And OngletDe <> "Réalisation" Then Range("O200").Value = OngletDe
Poursuivre:
Sheets(OngletDe).Select
ActiveCell.Next.Activate
Application.CutCopyMode = False
Selection.Copy
Sheets(OngletVers).Select
Range("P200").Select
ActiveSheet.Paste
For x = 1 To 5
Sheets(OngletDe).Select
ActiveCell.Next.Activate
Application.CutCopyMode = False
Selection.Copy
Sheets(OngletVers).Select
ActiveCell.Next.Activate
ActiveSheet.Paste
Next x
Range("B200").Select
Application.Run "ParEtablissement"
Application.Run "TriParPriorite"
Sheets(OngletDe).Select
For x = 1 To 14
ActiveCell.Previous.Activate
Next x
Application.Run "Efface2"
Application.Run "ParEtablissement"
Application.Run "TriParPriorite"
End Sub

Dans la section indiquée en rouge, je chercher à insérer un délai de 1 seconde si la valeur de x = 1. Ce délai serait inséré juste avant la ligne "Next x"

ex.: il x = 1 then wait 1 seconde

 

[gilbert_RGI]

Re : Insérer un délai dans...

Bonsoir

plusieurs possibilités

Sleep (1000)

ou

Application.OnTime Now + TimeValue("00:00:01"),"macro"