Un petit code VBA pour effacer une MSGBOX

Bonsoir a tous et toutes, forum bonsoir

Je cherche un petit code VBA qui effacerai l'affichage d'une boite msgbox.

Ex: j'affiche un message dans une msgbox et je souhaiterai fermer automatiquement pour sortir de cette boite au bout de quelques secondes et continuer le programme mais pas de UserForm

Merci pour votre aide, bonne soirée a vous et merci pour votre aide.
Cdlt Ray

<config>Windows10 / Edge 99.0.1150.55</Excel 2007>

8 réponses

  1. Salut cs_le pivert

    Merci de ta réponse,

    J'ai déja essayer avec le lien que tu proposes mais ce n'ai pas fiable des secondes a rallonge et tous autres soucis ca plante mème Excel alors non

    Je pensais faire afficher une forme avec un message puis utiliser ce code qui fonctionne très bien, qui au bout du temps imposer efface automatiquement la forme et on continue le programme.

    Application.Wait (Now + TimeValue("0:00:01"))

    Je retrouve plus un exemple sur le net mais il a disparu sans doute

    voila si tu a une idée sur le sujet ca sera surement bon pour moi

    Merci de ton aide passe un bonne soirée

    Cdlt Ray
    1. @cs_Le PivertSalut cs_Le Pivert,

      Merci pour ta réponse,

      Je voulais éviter les userforms en mettant une forme
      c'est sur que c'est mieux pour l'habillage couleur etc etc etc

      --- je vais voir ce qu'il reste possible de faire facilement.

      Sinon pour les mgsboxs il faut coché

      "Microsoft Scripting Runtime"
      dans les références du module VBA? moi cela fonctionne maintenant mais comme je t'ai dit ce n'ai pas fiable

      Bonne journée a toi et merci

      Cdlt Ray
  2. Bonjour a vous deux,

    VieuxRay:
    Pendant l'affichage de la forme, le programme doit continuer a s'executer ou pas?
    1. Re,

      la forme devient non visible quand la cellule A1 n'est plus vide
      Donc il n'y a pas de notion de temps.
      Sub test()
      ActiveSheet.Shapes("Rectangle 1").Visible = True
      Do While Range("A1") = ""
      DoEvents
      Loop
      ActiveSheet.Shapes("Rectangle 1").Visible = False
      End Sub
      1. Salut f894009,

        Merci pour ta réponse,
        je n'avais pas penser a faire comme tu la fait dans ton code.

        Je dois contrôler plusieurs lignes A2,A8,A14,A22,A28,A34,F2,F8,F14,F22,F28,F34 comment faire
        et peut t'on utiliser ou incorporer dans le code afin d'éviter de faire appel a ta macro (Sans Sub)

        Merci pour ton aide, bonne après midi.

        Cdlt Ray
        1. Re,
          A quoi ressemble votre code que je puisse vous donner une reponse adéquate
      2. Re,

        Je recupere le fichier et regarde la chose demain matin si personne prend le relais
        1. Suite:
          Je dois contrôler plusieurs lignes A2,A8,A14,A22,A28,A34,F2,F8,F14,F22,F28,F34 comment faire
          De quelle feuille car aucunes ne correspondent a une saisie
      3. Salut f894009,

        Merci de ta réponse,

        Pour le programme NON pas besoin qu'il tourne.

        En fait j'entre des données prise sur mon cardiomètre puis je place les données dans le tableau

        Mais pour éviter des erreurs de manipulation, je voulais mettre des messages qui restent afficher un temps de quelques secondes, puis s'efface tout seul.
        Sans entrer dans un code laborieux, au plus court c'est bien Lol

        Merci pour ton aide, une bonne journée a toi
        Cdlt Ray
      4. Salut f894009,

        Voila le fichier en cours lien par (cjoint)

        https://www.cjoint.com/c/LDbpKaj2P3G

        Cdlt Ray