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 :

Arrêter la macro si OK dans msgbox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Inscrit en
    Février 2012
    Messages
    30
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2012
    Messages : 30
    Par défaut Arrêter la macro si OK dans msgbox
    Bonjour,

    J'ai réaliser un bouton "imprimer" auquel j'ai affecté une macro.

    Sur celui-ci, j'ai plusieurs conditions :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Private Sub Imprimer_Click()
     
    If IsEmpty(Cells(6, 5)) = True Then
    If MsgBox("Vous n'avez pas saisi de numéro d'OT !", vbOKOnly + vbInformation, "Impression impossible") = vbOK Then
    Exit Sub
    End If
     
     
     
    If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False Then
    MsgBox "Vous n'avez pas sélectionné de document(s) à imprimer", vbOKOnly + vbExclamation, "Impression"
    End If
     
    If CheckBox1.Value = True Or CheckBox2.Value = True Or CheckBox3.Value = True Then
    If MsgBox("Etes-vous sûr(e) de vouloir lancer l'impression ?", vbYesNo + vbInformation, "Impression") = vbYes Then
    sureprint
    End If
    End If
     
     
     
    End Sub
    J'aimerai que si la première condition est vraie :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    If IsEmpty(Cells(6, 5)) = True Then
    If MsgBox("Vous n'avez pas saisi de numéro d'OT !", vbOKOnly + vbInformation, "Impression impossible") = vbOK Then
    Exit Sub
    End If
    que les autres conditions ne s'appliquent pas. J'ai essayé avec mais ça ne fonctionne pas...

    Si qqn a une idée, merci de me venir en aide !

  2. #2
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2012
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2012
    Messages : 32
    Par défaut
    Bonjour,

    Tu as essayé avec des "Else"??

  3. #3
    Membre averti
    Homme Profil pro
    Inscrit en
    Février 2012
    Messages
    30
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2012
    Messages : 30
    Par défaut
    Non, mais je ne vois pas vraiment où les mettre les "else"...

  4. #4
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2012
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2012
    Messages : 32
    Par défaut
    Tu peux essayer comme ca :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Private Sub Imprimer_Click()
     
    If IsEmpty(Cells(6, 5)) = True Then
        If MsgBox("Vous n'avez pas saisi de numéro d'OT !", vbOKOnly + vbInformation, "Impression impossible") = vbOK Then
     
        Else
     
     
            If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False Then
                MsgBox "Vous n'avez pas sélectionné de document(s) à imprimer", vbOKOnly + vbExclamation, "Impression"
            End If
     
            If CheckBox1.Value = True Or CheckBox2.Value = True Or CheckBox3.Value = True Then
                If MsgBox("Etes-vous sûr(e) de vouloir lancer l'impression ?", vbYesNo + vbInformation, "Impression") = vbYes Then
                    sureprint
                End If
            End If
        End If
     End If
     
    End Sub

  5. #5
    Membre averti
    Homme Profil pro
    Inscrit en
    Février 2012
    Messages
    30
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2012
    Messages : 30
    Par défaut
    Merci, ton code fonctionne pour la 1ère condition, mais ne prends malheureusement pas en compte les autres conditions...

  6. #6
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2012
    Messages
    32
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2012
    Messages : 32
    Par défaut
    hum.. je pense que j'ai pas compris exactement comment fonctionne ta fonction, tu veux tester les valeurs de checkbox dans quel cas?

    Si tu veux faire ca quand la cellule (6,5) n'est pas vide, ce code devrait fonctionner :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Private Sub Imprimer_Click()
     
    If IsEmpty(Cells(6, 5)) = True Then
        answer = MsgBox("Vous n'avez pas saisi de numéro d'OT !", vbOKOnly + vbInformation, "Impression impossible")
    Else
     
     
     
            If CheckBox1.Value = False And CheckBox2.Value = False And CheckBox3.Value = False Then
                MsgBox "Vous n'avez pas sélectionné de document(s) à imprimer", vbOKOnly + vbExclamation, "Impression"
            End If
     
            If CheckBox1.Value = True Or CheckBox2.Value = True Or CheckBox3.Value = True Then
                If MsgBox("Etes-vous sûr(e) de vouloir lancer l'impression ?", vbYesNo + vbInformation, "Impression") = vbYes Then
                    sureprint
                End If
            End If
     End If
     
    End Sub

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

Discussions similaires

  1. Resultat requete SQL dans MsgBox
    Par PhRey dans le forum Requêtes et SQL.
    Réponses: 9
    Dernier message: 11/01/2007, 11h03
  2. Couleurs dans MsgBox (Access 2000)
    Par USnico dans le forum Access
    Réponses: 1
    Dernier message: 26/09/2006, 16h39
  3. faire une condition pour arrêter une macro
    Par db48752b dans le forum Access
    Réponses: 11
    Dernier message: 21/09/2006, 20h21
  4. Réponses: 5
    Dernier message: 28/06/2006, 13h23
  5. Saisie du texte dans Msgbox
    Par tamyme dans le forum Access
    Réponses: 2
    Dernier message: 11/10/2005, 14h53

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