Msgbox à afficher toute les heures

Victor21

XLDnaute Barbatruc

Supporter XLD

• 27 Janvier 2011

• #2

Re : Msgbox à afficher toute les heures

Bonsoir, llambry.

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

Cordialement,

 

Vote positif 0 Vote négatif

L

llambry

Guest

• 27 Janvier 2011

• #3

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

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 27 Janvier 2011

• #4

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 :

Code:

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 :

Code:

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

 

Vote positif 0 Vote négatif

L

llambry

Guest

• 27 Janvier 2011

• #5

Re : Msgbox à afficher toute les heures

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

 

Vote positif 0 Vote négatif

L

llambry

Guest

• 27 Janvier 2011

• #6

Re : Msgbox à afficher toute les heures

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 27 Janvier 2011

• #7

Re : Msgbox à afficher toute les heures

Re, llambry. Bonjour, Etienne 2323

Avez- vous patienté 1 heure ?

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 27 Janvier 2011

• #8

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"

Code:

Private Sub Workbook_Open()
    ActiverTimer
End Sub

Dans un module traditionnel

Code:

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

Code:

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

 

Vote positif 0 Vote négatif

L

llambry

Guest

• 29 Janvier 2011

• #9

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

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 30 Janvier 2011

• #10

Re : Msgbox à afficher toute les heures

Salut llambry,
essaye de remplacer par ceci :

Code:

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

Cordialement,
Étienne

 

Vote positif 0 Vote négatif

L

llambry

Guest

• 30 Janvier 2011

• #11

Re : Msgbox à afficher toute les heures

Salut Etienne

Non cela ne fonctionne pas non plus...

Merci quand même.

 

Vote positif 0 Vote négatif