Bonjour,
je créé un fichier où à l'ouverture je demande quelques informations à travers un userform et textbox, puis lorsque l'utilisateur valide il doit entrer ses informations personnelles. Pour cela je voudrais arrêter la macro et laisser un certain temps pour modifier ces données avant de reprendr la macro et de terminer ce que la macro a à faire...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ouverture()
 
    ouvert.Show
    If Sheets("EVS Janvier").Range("A3").Value = "0" Then Exit Sub
    Sheets("EVS Janvier").Select
    Range("I5").Select
    MsgBox "veuillez entrer vos données aux emplacements prévus, vous avez 2 minutes 30." & Chr(13) & "Passé ce délai, une boite de dialogue s'ouvrira pour vous demander si vous avez encore besoin de temps pour terminer."
'ici je voudrais stopper la macro pendant 2mn30 avant de terminer le travail
    ActiveWindow.SmallScroll up:=9
    Range("I5").Select
    Range("c18").Select
    ActiveWindow.SmallScroll down:=9
 
End Sub
Merci pour votre aide