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 :

Msgbox et conditions


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 23
    Par défaut Msgbox et conditions
    Bonjour,
    J'ai créé une msgbox OUI NON à l'ouverture d'un classeur. Si réponse OUI, faire une copie de la feuille active. Si réponse NON, ne rien faire rester sur la feuille active.
    La première partie fonctionne mais je bloque sur la réponse NON et Excel créé toujours une nouvelle feuille.
    Pouvez-vous m'aider car je suis novice en VBA ?
    Merci d'avance à tous

  2. #2
    Membre éprouvé
    Femme Profil pro
    Inscrit en
    Février 2009
    Messages
    174
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Février 2009
    Messages : 174
    Par défaut
    Bonjour,

    A quoi ressemble ton code ?

    Normalement tu devrais avoir qq ch comme cela :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Rep = msgbox("voulez-vous copier la feuille ?", vbyesno)
     
    if Rep = VbYes then
    'code de la copie de la feuille que tu souhaites
                thisworkbook.worksheets("Feuille souhaitée").Copy After:=Sheets(1) 'ici after ou before... désigné l'emplacement en fonction d'une feuille existante, soit par son nom, soit par son n° d'ordre
    'la nouvelle feuille est alors activée automatiquement
     
    else 'en cas de vbno
                thisworkbook.worksheets("Feuille souhaitée").activate
    end if
    A +
    Elise

  3. #3
    Membre averti
    Inscrit en
    Avril 2008
    Messages
    23
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 23
    Par défaut
    merci beaucoup Elise, j'ai pu repérer mon erreur de syntaxe. Mon problème est résolu. Bonne journée

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

Discussions similaires

  1. [AC-2003] MsgBox en fonction de plusieurs conditions..
    Par helico57570 dans le forum VBA Access
    Réponses: 1
    Dernier message: 27/04/2009, 17h45
  2. [E-01] Comment sauter une condition suite à une réponse de msgbox ?
    Par peofofo dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 28/01/2009, 16h46
  3. Affichage d'un MSGBox à l'aide d'une condition
    Par toff7721 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 20/10/2008, 22h44
  4. Afficher une MsgBox selon une condition
    Par arkorrigan dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 22/05/2008, 14h08
  5. [VBA-EXCEL]-condition pour ouvrir une msgbox
    Par captaine93 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/08/2006, 20h51

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