Définir le choix d’une liste déroulante en quittant Excel
Résolu
mijean94
Messages postés
417
Statut
Membre
-
mijean94 Messages postés 417 Statut Membre -
mijean94 Messages postés 417 Statut Membre -
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
Merci pour vos réponses
Cordialement
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
- Word et excel gratuit - Guide
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
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 SubMerci, ça fonctionne nickel
Cordialement