Discussion :

[phal2ip]

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

[pgz]

Bonjour.

Tu peux couper ton code en 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub subOuverture()
 
    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."
 
    Application.OnTime Now + TimeValue("00:02:30"), "subOuvertureSuite"
End sub
 
sub subOuvertureSuite
    ActiveWindow.SmallScroll up:=9
    Range("I5").Select
    Range("c18").Select
    ActiveWindow.SmallScroll down:=9
 
End Sub

Tu vois l'idée?
Il y a beaucoup trop de .Select là dedans, mais ce n'est pas la question.

Cordialement,

PGZ

[Didier Gonard]

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...

Bonjour,

Tu est parti dans une logique de saisie via USF, il serait peut-être intéressant (et ergonomique) de continuer avec un USF pour la saisie des données perso ?

cordialement,

Didier

[phal2ip]

Oui c'est vrai que je n'y avais vraiment pas pensé comme cela mais l'idée est très intéressante je vais m'y pencher...

Merci pour l'aide