Discussion :

[stephfor]

Bonjour

j ai realisé une macro qui dans un premier temps rend visible les onglets cachets, Fais apparaitre un Mgsbox et lance une feuille de saisie etc...

cette macro fonctionne correctement, cependand j aurais voulu remplacer le mgsbox par un userfor qui me permettrais de mettre le message d alerte en couleur et la je seche peut on incorporer la fenetre userfor pour qu elle apparaisse comme le fais le mgsbox et que au bout de 5 secondes la macro continu

ma macro et en rouge le message de rappel, je debute dans les userform

merci pour votre aide

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub StocksAlimentsEleveur()
'
' StocksAlimentsEleveur Macro
'

  
    Sheets("2- StocksAlimentsEleveur").Visible = True
    Sheets("Cubage silo info").Visible = True
    Sheets("2- StocksAlimentsEleveur").Select
    Application.DisplayFormulaBar = True
    MsgBox "Pensez à saisir toute les informations sur les Fourrages, les concentrés et les Minéraux" & Chr(10) & _
    "Pensez à rentrer le coût des aliments en € la Tonne brute ainsi que les Taux de MS" & Chr(10) & _
    "Cliquez sur la Touche entré pour Valider la saisie"
    
    Application.Goto Reference:="STOCKALIMENTELEVEURS"
    ActiveSheet.ShowDataForm
    Select Case MsgBox("Avez vous saisie toute les informations", vbYesNo, "Rappel")
    Case vbNo
    'procédure si click sur non
    Application.DisplayFormulaBar = True
    Application.Goto Reference:="STOCKALIMENTELEVEURS"
    ActiveSheet.ShowDataForm
    Sheets("2- StocksAlimentsEleveur").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cubage silo info").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("MENU").Select
    Case vbYes
    'procédure si click sur oui
    Sheets("2- StocksAlimentsEleveur").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cubage silo info").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("MENU").Select
    
    End Select
    

End Sub

[Fvandermeulen]

Salut,
Voici une méthode avec Wait. Attention il faut bien penser à mettre le UserForm en Non Modal

Code :

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

1
2
3
4
5
 
UserForm1.Show 'Affiche la Userform (vaut mieux la renommer)
If Application.Wait(Now + TimeValue("0:00:05")) Then 'Attend 5 seconde
    UserForm1.Hide 'Masque la UserForm
End If

Bonne continuation,

A+

[stephfor]

Merci pour ta réponse j ai inseré ton code dans la macro l userform apparait bien a l ecran mais ne ce ferme pas au bout de 5 secondes si je clic sur la croix la macro continue, peut on fermer l userform par un bouton ? ok par exemple

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub StocksAlimentsEleveur()
'
' StocksAlimentsEleveur Macro
'

    Sheets("2- StocksAlimentsEleveur").Visible = True
    Sheets("Cubage silo info").Visible = True
    Sheets("2- StocksAlimentsEleveur").Select
    Application.DisplayFormulaBar = True
    RAPPEL.Show 'Affiche la Userform (vaut mieux la renommer)
If Application.Wait(Now + TimeValue("0:00:05")) Then 'Attend 5 seconde
    RAPPEL.Hide 'Masque la UserForm
    Application.Goto Reference:="STOCKALIMENTELEVEURS"
    ActiveSheet.ShowDataForm
    Select Case MsgBox("Avez vous saisie toute les informations", vbYesNo, "Rappel")
    Case vbNo
    'procédure si click sur non
    Application.DisplayFormulaBar = True
    Application.Goto Reference:="STOCKALIMENTELEVEURS"
    ActiveSheet.ShowDataForm
    Sheets("2- StocksAlimentsEleveur").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cubage silo info").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("MENU").Select
    Case vbYes
    'procédure si click sur oui
    Sheets("2- StocksAlimentsEleveur").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cubage silo info").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("MENU").Select
    
    End Select
    
End If
End Sub

[mercatog]

Ajoute le 0 juste après le RAPPEL.Show (un F1 sur Show, te dira)

Code :

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

1
2
3
RAPPEL.Show 0'Affiche la Userform (vaut mieux la renommer)
If Application.Wait(Now + TimeValue("0:00:05")) Then 'Attend 5 seconde
RAPPEL.Hide 'Masque la UserForm

Pense à mettre les balises de ton code

une remarque à part! si on a pour une condition seulement 2 variantes; mettre

Code :

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

1
2
3
4
5
If Cond Then
   .....
Else
   ...
End If

au lieu des Select case
Le Activewindow. n'est pas nécessaire

L'enregistreur de macro aide beaucoup, mais en rajoute énormément

[mercatog]

Ta macro fais la même chose quand on click Oui ou Non?
Si c'est ça ta macro, surement elle ne fait presque rien

[stephfor]

merci pour ta reponse ca marche impect