IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Afficher un message box en cliquant sur un bouton


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2019
    Messages
    67
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2019
    Messages : 67
    Par défaut Afficher un message box en cliquant sur un bouton
    Bonjour,

    S'il vous plait, j'ai un bouton sous le nom "reporting", ce bouton sert à nettoyer un tableau dans une feuille et le placer dans une autre feuille, et du coup je veux si je clique sur le bouton la première fois ça passera rien (l'opération s'exécute normal), mais si je reclique une deuxième fois je veux que le message "Attention l'exportation est déjà faite ".

    Et merci d'avance

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 423
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 423
    Par défaut
    Bonjour,

    S'il n'y a pas moyen d'avoir un point de comparaison permettant de voir que l'on va recopier la même chose, une autre façon de faire est de déclarer une variable au niveau du module contenant la macro et de la suivre, par exemple ainsi:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Option Explicit
     
    Dim kFait As Integer
     
    Sub LaMacro()
        If kFait > 0 Then
            If MsgBox("Déjà fait " & kFait & " fois! Recommencer?", vbYesNo, "Pour info") = vbNo Then
                Exit Sub
            End If
        End If
        kFait = kFait + 1
        '--- suite du code
    End Sub
    Cordialement.
    Fichiers attachés Fichiers attachés

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2019
    Messages
    67
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2019
    Messages : 67
    Par défaut
    Mrrci bcp, je vais essayer votre méthode

  4. #4
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2019
    Messages
    67
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2019
    Messages : 67
    Par défaut
    Merci énormément pour votre aide, ca bien marché votre solution

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [débutant] afficher une JFrame en cliquant sur un bouton
    Par 7rouz dans le forum Agents de placement/Fenêtres
    Réponses: 5
    Dernier message: 07/03/2007, 11h22
  2. Réponses: 7
    Dernier message: 17/01/2007, 09h37
  3. Réponses: 2
    Dernier message: 24/04/2006, 13h56
  4. déclenchement d'un message box après click sur touche entrée
    Par new_wave dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 09/11/2005, 09h15
  5. afficher une "message box"
    Par requiemforadream dans le forum ASP
    Réponses: 2
    Dernier message: 19/04/2005, 16h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo