Rétablir le choix d'une liste avec une Macro

Résolu/Fermé
ThomasMexcel Messages postés 28 Date d'inscription jeudi 8 juin 2017 Statut Membre Dernière intervention 28 mars 2018 - 28 juin 2017 à 17:42
ThomasMexcel Messages postés 28 Date d'inscription jeudi 8 juin 2017 Statut Membre Dernière intervention 28 mars 2018 - 29 juin 2017 à 08:41
Bonjour,
J'ai un fichier excel avec 2 onglets (1&2). Lorsque j'arrive sur l'onglet 2, une liste déroulante dans une cellule me permet d'afficher le choix Oui ou Non (le choix de oui lance une macro mais le sujet n'est pas la).

J'aimerais faire en sorte que lorsque je retourne sur l'onglet 1, la valeur de Non se réaffiche dans la case de sélection. De cette façon, quand je reviens plus tard sur l'onglet 2, le choix par défaut est repassé à Non.

Comment faire avec une macro ? Bien sur l'objectif n'est pas de rechoisir Non manuellement avant de retourner sur l'onglet 1...

Merci de votre aide.
A voir également:

1 réponse

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
28 juin 2017 à 17:58
Bonjour,

avec la procedure
Private Sub Workbook_SheetActivate(ByVal Sh As Object)

dans Thisworkbook ca devrait le faire
0
ThomasMexcel Messages postés 28 Date d'inscription jeudi 8 juin 2017 Statut Membre Dernière intervention 28 mars 2018
28 juin 2017 à 18:01
Non le choix reste sur Oui quand je reviens ...
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > ThomasMexcel Messages postés 28 Date d'inscription jeudi 8 juin 2017 Statut Membre Dernière intervention 28 mars 2018
28 juin 2017 à 21:01
Re,
Il faut ajouter du code pour initialisation de la cellule de votre liste déroulante, va pas se faire huit seul
0
ThomasMexcel Messages postés 28 Date d'inscription jeudi 8 juin 2017 Statut Membre Dernière intervention 28 mars 2018
29 juin 2017 à 08:41
Trop fastidieux pour cette simple application. J'ai finalement réussi en faisant tout simple :
'automatisation du choix non par defaut
If [AN8] = [B42] Then
[AN8] = [B41]
End If
en utilisant les choix de la liste...

Merci pour votre aide, bonne journée
0