Msgbox à afficher toute les heures

[llambry]

😕 Bonjour

Je voudrait que mon msgbox apparaisse toute les heures en fonction d'une condition :
pour le moment mon msgbox ne fonctoin que lorsque je change de feuille et que la condition est rempli.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sheets("Kanban").Range("an200").Value <> "" Then
MsgBox "N'oublier pas la demande Kanban !!!", vbOK + vbExclamation, "Information Kanban"
End If
Mais je ne sais pas comment faire, besoin d'aide .....

 

[Victor21]

Re : Msgbox à afficher toute les heures

Bonsoir, llambry.

Voir
Application.OnTime TimeValue("17:00:00"), "my_Procedure"

Cordialement,

 

[llambry]

Re : Msgbox à afficher toute les heures

Merci pour cette réponse rapide, mais je début en vba, pourrait tu me donner un peu plus d'explication ???

 

[Etienne2323]

Re : Msgbox à afficher toute les heures

Salut llambry, Victor, le forum,

en suivant le même genre de raisonnement que Victor, voici une possibilité.

Dans le module "ThisWorkbook", placez le code suivant :

Private Sub Workbook_Open()
Dim i As Byte
For i = 0 To 23
    Application.OnTime TimeValue(i & ":00:00"), "Mon_Msgbox"
Next i

End Sub

Dans un module traditionnel, le code suivant :

Sub Mon_Msgbox()
If Sheets("Kanban").Range("AN200").Value <> "" Then
    MsgBox "N'oublier pas la demande Kanban !!!", vbOK + vbExclamation, "Information Kanban"
End If
End Sub

Donc, à chaque heure, la macro Mon_Msgbox sera lancée automatiquement. La condition mentionnée plus haut se trouve dans la macro Mon_Msgbox.

Cordialement,

Étienne

 

[llambry]

Re : Msgbox à afficher toute les heures

Merci je vais essayer et vous tiendrez au courant...

 

[llambry]

Re : Msgbox à afficher toute les heures

J'ai essayé de mettre ce code VBA met aucun résultat !!!!

 

[Victor21]

Re : Msgbox à afficher toute les heures

Re, llambry. Bonjour, Etienne 2323

Avez- vous patienté 1 heure ?

 

[Etienne2323]

Re : Msgbox à afficher toute les heures

Salut llambry,
effectivement, j'ai oublié de faire repartir le déclenchement.

Voici une solution.
Dans le Module "ThisWorkbook"

Private Sub Workbook_Open()
    ActiverTimer
End Sub

Dans un module traditionnel

Sub ActiverTimer()
    
Dim i As Byte
For i = 0 To 23
    Application.OnTime TimeValue(i & ":00:00"), "Mon_Msgbox"
Next i
End Sub

Sub Mon_Msgbox()
Dim i As Byte

If Sheets("Kanban").Range("AN200").Value <> "" Then
    MsgBox "N'oublier pas la demande Kanban !!!", vbOK + vbExclamation, "Information Kanban"
End If

For i = 0 To 23
    Application.OnTime TimeValue(i & ":00:00"), "Mon_Msgbox"
Next i

End Sub

Une fois que la macro est déclenchée, l'interrupteur se ferme. Si on veut que la macro reparte encore dans une heure, il faut ouvrir l'interrupteur de nouveau.

Le commentaire de Victor est judicieux, la macro est programmée pour se déclencher uniquement aux heures 00 (ex : 1h00, 2h00, 3h00). Si vous voulez changer cette donnée, il n'y a qu'à modifier le code VBA.

Cordialement,

Étienne

 

[llambry]

Re : Msgbox à afficher toute les heures

Bonjour,

Merci Etienne, j'ai mon ton code vba. Mais maintenant lorsque j'ouvre mon fichier, j'ai un message d'erreur VBA : erreur de compilation dans le module caché : this workbook ?????

peu tu m'aider ????

 

[Etienne2323]

Re : Msgbox à afficher toute les heures

Salut llambry,
essaye de remplacer par ceci :

Private Sub Workbook_Open()
    Application.Run "ActiverTimer"
End Sub

Cordialement,
Étienne

 

[llambry]

Re : Msgbox à afficher toute les heures

Salut Etienne

Non cela ne fonctionne pas non plus...

Merci quand même.