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

Résolu/Fermé

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 31 mars 2016 à 23:00
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 1 avril 2016 à 12:17

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

A voir également:

Définir le choix d’une liste déroulante en quittant Excel
Liste déroulante excel - Guide
Excel liste déroulante en cascade - Guide
Déplacer une colonne excel - Guide
Mise en forme conditionnelle excel - Guide
Calculer une moyenne sur excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17223 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 janvier 2025 1 712
1 avril 2016 à 08:42

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 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11
1 avril 2016 à 10:12

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

f894009 Messages postés 17223 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 janvier 2025 1 712 > mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024
1 avril 2016 à 12:02

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

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11 > f894009 Messages postés 17223 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 janvier 2025
1 avril 2016 à 12:17

Re,

Merci, ça fonctionne nickel

Cordialement

Discussions similaires

Suppression listes déroulantes

Supprimer liste déroulante Excel

Effacer le contenue d'une cellule avec liste déroulante

supprimer une liste déroulante

Effacer liste déroulante