MsgBox périodique? Résolu/Fermé

Question

Bonjour tout le monde!

J'annonce tout de suite, je suis un grand novice en VBA et c'est pour cela que je viens vers vous!


Est-il possible de mettre en place un Msgbox qui s'afficherait de manière périodique (tous les X mois)?

Je travaille sur mon fichier et tous les X mois j'ai un Msgbox qui s'affiche avec le message souhaité.

Merci d'avance pour votre aide!


Configuration: Windows 8 / Chrome 27.0.1453.116

DGVDR · Answer

Bonjour,

Je peux t'aider sur la reflexion pas forcement sur le code.
J'ai quelque chose de similaire en place.

Dans une cellule (A1)tu as la date de dernière apparition ( pour la premiere tu mets une date ancienne : ex 01/011980)
Dans une seconde la période. (B1)
Dans une troisieme la date de dernière apparition + la période ( soit la date de prochaine apparition) (C1)
Quelque part sur ta feuille tu tape (=now) qui va reprendre la date de windows.
Dans une 4ème  (D1)tu fais  la différence entre la date se trouvant dans la cellule avec =now et la date de prochaine apparition ( cellule avec =now - C1)

Et après tu fais un bout de code qui te fait que quand ton compteur en D1 est négatif t'as Msgbox apparait.

Espérant t'avoir aidé.
DGVDR

Utilisateur anonyme · Answer

Bonjour,

Merci pour ton intervention et le partage de raisonnement!

je vais me pencher sur la question, ça me parle assez bien.


Je ferai un saut ici dés que j'ai mis cela en place!

A bientôt!

Utilisateur anonyme · Answer

Salut,

J'ai suivi ton raisonnement en faisant une petite modif' et ça marche au poil.

Merci pour l'aiguillage!

Passe une bonne soirée.

DGVDR · Answer

Bonjour,

Quelle modif as tu effectué ?

Merci,
DGVDR

Utilisateur anonyme · Answer

Bonjour,

Rien de chamboulant :-)

J'ai simplement brûlé une étape intermédiaire dans ton raisonnement. Je n'affiche nulle part la période car je calcule immédiatement la date du prochain évènement.

En résumé :

A1 : Date du dernier évènement (celui qui se passe tous les X mois).

B1 Date à laquelle doit se produire le prochain évènement. Pour ma part j'ai adopté la formule suivante "=Mois.decaler(A1,X)" où X est le nombre de mois (donc la période). J'obtiens donc la date en A1 + un certains nombre de mois.

C1 La date du jour : "=Aujourdhui()"

D1 la formule "= B1-C1" (Date du prochain évènement - date du jour) ce qui me génère un compte à rebours en nombre de jours.

La MsgBox apparaît quand D1 est inférieur ou égal à 0.

Pour redémarrer le compte à rebours on change la date en A1 (date du dernier évènement).

Encore un grand merci pour ton aide.

BlndBnt.

DGVDR · Answer

Je ne connaissais pas le =Mois.decaler.

Egalement quelques choses qui peut peut-être t'être utile, que j'ai mis en place pour ma part.

Dans ma MsgBox j'ai un bouton de validation ( je ne sais pas ce qui s'affiche dans la tienne...).

Lorsque tu appuis sur ce bouton, la date de dernière apparition est remplacée par la date au moment du clique ( celle de la case =Aujourdhui)

DGVDR

Utilisateur anonyme · Answer

Ravi de t'avoir appris l'existence de cette utile petite formule!

Effectivement cela peut-être très pratique ton bouton. Etant très novice en VBA, puis je me permettre de te demander la manière dont on le met en place? :-)

Merci.

BlndBnt

DGVDR · Answer

En gros :

If MsgBox(msgt, vbYesNo + vbInformation + vbMsgBoxcenter, "Alerte") = vbYes Then
    Worksheets("Commandes").Range("F" & A) = Worksheets("Commandes").Range("F" & A) + 7


- msgt étant le texte qui s'affiche dans ma message box, qui dit : "... voulez vous reportez ?"

Tu as en dessous un bouton Yes/No

Et comme tu peux le voir dans : 

Worksheets("Commandes").Range("F" & A) = Worksheets("Commandes").Range("F" & A) + 7

Si on clique sur Yes, ma date ( en l'occurence de commande) qui se trouve dans la colonne F est reporté de 7 jours ( date entré + 7)

A ta dispo,

DGVDR

Utilisateur anonyme · Answer

C'est bon code mis en place!


Private Sub Worksheet_Change(ByVal Target As Range)

    If Range("R2") <= 0 Then
        If MsgBox("Warning: It's time to update your workbook", vbYesNo, "Reminder") = vbYes Then
        
Worksheets("Sales Sheet").Range("P2") = Worksheets("Sales Sheet").Range("P2") + 180
        
        End If
    End If
    

End Sub

J'espere ne pas avoir fait de boulette...Après quelques tests cela semble bien fonctionner.


Merci pour les conseils!

BlndBnt

MsgBox périodique?

9 réponses

Discussions similaires

Newsletters