remplacer mgsbox par un userform

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:

---

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

---

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

Code:

---

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+

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:

---

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

---

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

Code:

---

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:

---

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

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

merci pour ta reponse ca marche impect