XL 2013 [RESOLU] Incorporer temps sur réponse msgbox

[BENAM69]

Bonjour,

J'ai un fichier excel qui se met à jour automatiquement à l'ouverture.
Je souhaite un msgbox avec un bouton OK qui apparaît et au bout de 5 sec, si la personne n'a pas cliqué sur le bouton, le fichier lance ma macro de mise à jour. S'il a cliqué sur le bouton OK, il ne se passe rien.

Merci à ceux qui pourrait m'aider

Bien à vous

 

[Oranger]

Bonjour Benam69,

Voici une proposition de solution dans le fichier ci-joint.

je me suis inspiré des 2 publications suivantes:

-https://www.commentcamarche.net/forum/affich-27632213-comment-fermer-une-msgbox-en-vbs-automatiquement
-https://www.developpez.net/forums/d589573/logiciels/microsoft-office/excel/macros-vba-excel/msgbox-disparaitrait-bout-quelque-secondes/

Oranger

 

[youky(BJ)]

Bonjour tous,
Je n'ai pas mis une Msgbox mais une forme est créée à l'ouverture et détruite ensuite.
Ceci pour éviter la méthode Sendeys qui verrouille certain clavier numérique.
Bruno

Edit: Le Module 3 est à supprimer

 

[BENAM69]

Bonjour Benam69,

Voici une proposition de solution dans le fichier ci-joint.

je me suis inspiré des 2 publications suivantes:

-https://www.commentcamarche.net/forum/affich-27632213-comment-fermer-une-msgbox-en-vbs-automatiquement
-https://www.developpez.net/forums/d589573/logiciels/microsoft-office/excel/macros-vba-excel/msgbox-disparaitrait-bout-quelque-secondes/

Oranger

Je te remercie beaucoup pour le temps consacré à mon problème. Je vais tester ta modification demain au bureau hihi.
Je te tiens au courant des que possible si cela ne marche pas.
Merci beaucoup ^^

 

[BENAM69]

Merci

Bonjour tous,
Je n'ai pas mis une Msgbox mais une forme est créée à l'ouverture et détruite ensuite.
Ceci pour éviter la méthode Sendeys qui verrouille certain clavier numérique.
Bruno

Edit: Le Module 3 est à supprimer

Merci Beaucoup pour la méthode et le temps consacré à mon besoin. Comme répondu à Oranger, je te fais suivre si cela ne marche pas. En tout cas merci merci ^^.
Je vais tester des demain la modif hihi

 

[BENAM69]

Je te remercie beaucoup pour le temps consacré à mon problème. Je vais tester ta modification demain au bureau hihi.
Je te tiens au courant des que possible si cela ne marche pas.
Merci beaucoup ^^

Salut Oranger,

Ta macro marche très bien ^^ parfait. C'est exactement ce que je voulais hihi ^^

Merci beaucoup !!!

 

[BENAM69]

Merci

Merci Beaucoup pour la méthode et le temps consacré à mon besoin. Comme répondu à Oranger, je te fais suivre si cela ne marche pas. En tout cas merci merci ^^.
Je vais tester des demain la modif hihi

Bonjour Youky,

Ta méthode marche très bien et répond aussi à ma demande c'est parfaite ^^.

J'ai par ailleurs, un problème, quand je lance ma macro un bug apparaît
Sub MAJ()
Feuil1.Shapes(nomess).Delete

Il se met en jaune pour indiquer une erreur.
Je suppose que c'est le grand carré bleu qui doit se supprimer.
Sais-tu comment faire pour que l'erreur disparaisse ?
Par contre quand je le mets en mode commentaire avec un ' et que je fais pareil avec Public nomess As String ma macro marche et mais le carré bleu ne disparaît pas.

Merci beaucoup pour ton aide ^^

 

[phlaurent55]

Bonjour à tous,

J'ai par ailleurs, un problème, quand je lance ma macro un bug apparaît
Sub MAJ()
Feuil1.Shapes(nomess).Delete

Il se met en jaune pour indiquer une erreur.
Je suppose que c'est le grand carré bleu qui doit se supprimer.
Sais-tu comment faire pour que l'erreur disparaisse ?

il suffit de remplacer:
Feuil1.Shapes(nomess).Delete
par:
Feuil1.Shapes(1).Delete

à+
Philippe

 

[BENAM69]

Bonjour à tous,


il suffit de remplacer:
Feuil1.Shapes(nomess).Delete
par:
Feuil1.Shapes(1).Delete

à+
Philippe

Le code n'affiche aucune erreur mais le carré bleu reste toujours. Il ne se supprime pas du tout. C'est bizarre ...

 

[phlaurent55]

Re,

il faut alors remplacer nomess par le nom du carré bleu et ne pas oublier de mettre ce nom entre guillemets

Feuil1.Shapes("nom_du_carre").Delete
dans le dernier fichier posté par Youky, le carré bleu se nomme: Rectangle à coins arrondis 1

à+
Philippe

 

[youky(BJ)]

Bonjour tous,
en haut de module il faut pas oublier de déclarer ces 2 lignes
Public temps As Date
Public nomess As String
Sinon bug
Bruno

 

[BENAM69]

Bonjour tous,
en haut de module il faut pas oublier de déclarer ces 2 lignes
Public temps As Date
Public nomess As String
Sinon bug
Bruno

J'ai bien laissé les deux déclarations ^^

 

[BENAM69]

Re,

il faut alors remplacer nomess par le nom du carré bleu et ne pas oublier de mettre ce nom entre guillemets

Feuil1.Shapes("nom_du_carre").Delete
dans le dernier fichier posté par Youky, le carré bleu se nomme: Rectangle à coins arrondis 1

à+
Philippe

Je te remercie pour ton retour, il faut juste que je mette Feuil1.Shapes("Rectangle à coins arrondis 1").Delete ? Ou je me trompe ?
Quand je clique sur le carré bleu, je vois écris Rectangle à coins arrondis 4.
Est-ce le cas ?

 

[youky(BJ)]

Remplacer les Feuil1 par ActiveSheet dans toutes ces lignes
Sub MAJ()
Feuil1.Shapes(nomess).Delete
'ta mise ? jour ici
Beep
MsgBox "Mise ? Jour"
End Sub
Sub annule()
On Error Resume Next
Application.OnTime temps, "MAJ", , False
Feuil1.Shapes(nomess).Delete
End Sub

 

[BENAM69]

Remplacer les Feuil1 par ActiveSheet dans toutes ces lignes
Sub MAJ()
Feuil1.Shapes(nomess).Delete
'ta mise ? jour ici
Beep
MsgBox "Mise ? Jour"
End Sub
Sub annule()
On Error Resume Next
Application.OnTime temps, "MAJ", , False
Feuil1.Shapes(nomess).Delete
End Sub

YYYOOOOUUUUUPPPIIIIII ça fonctionne à merveille hihi
Merci énormément pour ton aide youhouuuuuuuuu !!!!