Ajouter une condition qu'on on clique sur un bouton

maynou24 -  
danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   -
est ce que je peux insérer une macro dans IF.
je m'exprime un peu plus: je veux que lorsque je clique sur le bouton une vérification d'une condition ce fait. si elle est vérifié on exécute le macro du bouton si elle est fausse un message box s'affichera
.. je peux érire
If NomMacro then
.
.
.
else
rep = msgBox (......)
end if ?

1 réponse

  1. danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   287
     
    Bonjour,

    Tu peux écrire :

    If Condition = True Then
      Macro
    Else...


    Cordialement.

    Daniel
    0
    1. maynou24
       
      la condition c'est de cliquer sur le bouton .. comment est ce que je peux l'écrire ?
      0
    2. danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   287
       
      Pardon. Avec un bouton des contrôles de formulaires, fais un clic droit sur le bouton et clique sur "Affecter une macro". Indique le nom de la macro. Avec un bouton ActiveX fais un clic droit sur le bouton et clique sur "Visualiser le code". Mets le nom de la macro entre les deux lignes :

      Private Sub CommandButton1_Click()
      
      End Sub


      Note que "CommandButton1" est le nom du bouton. Il peut être différent.

      Cordialement.

      Daniel
      0
    3. maynou24
       
      encore vous ne m'avez pas compris .
      alors moi j'ai déjà écrit le code de la macro du boutton et elle fonctionne très bien
      je veux maintenant que lorsque je clique sur le bouton il va vérifié une condition si cette condition est vrai il m'affiche un msgbox si elle est fauuse il exécute la macro du boutton !!
      j'espère que je me suis bien expliqué ^^
      0
    4. danielc0 Messages postés 2191 Date d'inscription   Statut Membre Dernière intervention   287
       
      Dur !

      Mets au début de ta macro :

      If Condition = vrai then
      MsgBox
      Exit Sub
      End If
      Reste de la macro

      Daniel
      0