Définir le choix d’une liste déroulante en quittant Excel

Résolu
mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   -  
mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je souhaiterai positionner le choix d’une liste déroulante sur 0 en quittant mon programme.
J’ai cherché sans trouver de solution pour ajouter le code qui va bien.
Avez-vous une solution ? Es que c’est possible ?

voici un exemple de programme : https://www.cjoint.com/c/FCFu7DjkGVt 

Private Sub CommandButton9_Click()
'****************
'* Bouton quitter   *
'****************
If MsgBox("Voulez vous vraiment quitter ?", vbYesNo, "Demande de confirmation ") = vbNo Then
A = 1
End If
If A = 1 Then GoTo 1
Unload formulaire_debut
Application.Quit
Application.DisplayAlerts = False
1:
End Sub


Merci pour vos réponses

Cordialement

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    sur 0 en quittant mon programme.
    Sauf que le fichier ne correspond pas a votre code, pas de formulaire,mais une liste de validation !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    0
    1. mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   11
       
      Bonjour,

      Effectivement j'avais fait une copie simplifiée de mon programme peut-être trop simplifiée car sans le code.

      voici un exemple de mon programme avec le code : https://www.cjoint.com/c/FDbigXwcHBt

      Donc mon souhaite est que la liste déroulante se retrouve positionnée sur 0 avant de quitter et cela automatiquement.
      Dans mon programme cette mise à zéro permet de réinitialiser plusieurs cellules.

      Merci pour la réponse.

      Cordialement
      0
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention  
         
        Re, 

        Private Sub CommandButton1_Click()
'******************
'* Bouton quitter *
'******************
    Application.DisplayAlerts = False
    If MsgBox("Voulez vous vraiment quitter ? ", vbYesNo, "Demande de confirmation ") = vbYes Then
        Worksheets("feuil1").Range("A2") = 0
        Application.Quit
    End If
End Sub
        0
      2. mijean94 Messages postés 413 Date d'inscription   Statut Membre Dernière intervention   11 > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
         
        Re,

        Merci, ça fonctionne nickel

        Cordialement
        0

Discussions similaires

[EXEL] Comment créer une liste déroulante?
TORTULE -
Hermes -

3 réponses