VBA: Fermeture d'une msgbox mais le userform reste affiché Résolu/Fermé

Question

Bonjour, 

J'ai créé un userform1 avec des textbox à remplir. Ensuite, il faut cliquer sur un bouton valider. A cet instant un msgbox s'ouvre avec un bouton ok et un bouton annuler. Je souhaiterai que si l'on clique sur ok la msgbox se ferme mais que la userform1 reste ouverte. Au contraire si on clique sur annuler, la userform1 se ferme et la userform demarrage s'ouvre. 
Pour le bouton Annuler ca fonctionne, mais pour le bouton ok je ne vois pas comment coder le fait de fermer la msg box mais de garde le userform.

Voila ce que ca donnne. C'est pour la partie en gras que j'aurais besoin d'aide.

Merci


Reponse = MsgBox("Merci de compléter chaque case blanche." & Chr(10) & Chr(10) & "Pour complèter votre liste cliquez sur OK." & Chr(10) & "Pour revenir a la page d'accueil cliquez sur Annuler.", vbExclamation + vbOKCancel, "Erreur")
    
      If Reponse = vbOK Then        'Si on clique sur OK
      ???????

      Else                                           'Si on clique sur annuler
              Unload UserForm1
              demarrage.Show
    
       End If

Configuration: Windows 7 / Chrome 23.0.1271.97

pijaku · Answer

Bonjour,
En gros, si on clique sur ok il ne se passe rien...
Donc ne mets rien à la place de tes ???

Reponse = MsgBox("Merci de compléter chaque case blanche." & Chr(10) & Chr(10) & "Pour complèter votre liste cliquez sur OK." & Chr(10) & "Pour revenir a la page d'accueil cliquez sur Annuler.", vbExclamation + vbOKCancel, "Erreur") 
If Reponse = vbOK Then 'Si on clique sur OK 
Else 'Si on clique sur annuler 
   Unload UserForm1 
   demarrage.Show 
End If
ou plus propre
If Reponse = vbCancel Then
   Unload UserForm1 
   demarrage.Show 
End If

VBA: Fermeture d'une msgbox mais le userform reste affiché

1 réponse

Discussions similaires