Microsoft 365 Sélection par défaut valeur dans liste déroulante

V

vby

XLDnaute Nouveau
Bonsoir cher Forum,

Je sollicite votre aide svp,
J'ai une liste déroulante presque dans chaqu'une des feuilles de mon classeur VBA une liste déroulante.
J'ai partagé ce classeur avec des collègues qui peuvent défiler la liste déroulante.
Je voudrais que lors de l'ouverture d'une feuille que RESULTAT GENERAL soit par défaut sélectionné avant de commencer à défiler.

La liste déroulante se trouve à cellule H5 dans la feuille KPI-1
La liste déroulante se trouve à cellule N4 dans la feuille KPI-2
La liste déroulante se trouve à cellule K11 dans la feuille KPI-3
La liste déroulante se trouve à cellule H11 dans la feuille KPI-4
La liste déroulante se trouve à cellule I13 dans la feuille KPI-7

Etant novice en Vba, je préfère vous partager le code intégral, c'est seulement cette préoccupation signalée ci dessus que je veux insérer :

Private Sub Workbook_Open()


Application.DisplayFullScreen = True

'Définir le zoom pour chaque feuille
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "SOMMAIRE"
ws.Activate
ActiveWindow.Zoom = 33
Case "BASE DE DONNEES"
ws.Activate
ActiveWindow.Zoom = 55
Case "BASE2"
ws.Activate
ActiveWindow.Zoom = 100
Case "BASE1"
ws.Activate
ActiveWindow.Zoom = 100
Case "INDICATEURS CLES DE PERFORMANCE"
ws.Activate
ActiveWindow.Zoom = 66
Case "KPI-1"
ws.Activate
ActiveWindow.Zoom = 82
Case "KPI-2"
ws.Activate
ActiveWindow.Zoom = 73
Case "KPI-3"
ws.Activate
ActiveWindow.Zoom = 78
Case "KPI-4"
ws.Activate
ActiveWindow.Zoom = 77
Case "KPI-5"
ws.Activate
ActiveWindow.Zoom = 77
Case "KPI-6"
ws.Activate
ActiveWindow.Zoom = 66
Case "KPI-7"
ws.Activate
ActiveWindow.Zoom = 91
Case "KPI-8"
ws.Activate
ActiveWindow.Zoom = 66
Case "TOS"
ws.Activate
ActiveWindow.Zoom = 87

End Select
Next ws


'Modifier nom de la feuille à protéger et le mot de passe
Sheets("SOMMAIRE").Protect password:="adminn"
Sheets("BASE DE DONNEES").Protect password:="passer"
Sheets("BASE2").Protect password:="adminn"
Sheets("BASE1").Protect password:="adminn"
Sheets("INDICATEURS CLES DE PERFORMANCE").Protect password:="adminn"
Sheets("KPI-1").Protect password:="adminn"
Sheets("KPI-2").Protect password:="adminn"
Sheets("KPI-3").Protect password:="adminn"
Sheets("KPI-4").Protect password:="adminn"
Sheets("KPI-5").Protect password:="adminn"
Sheets("KPI-6").Protect password:="adminn"
Sheets("KPI-7").Protect password:="adminn"
Sheets("KPI-8").Protect password:="adminn"


'Activer la feuille SOMMAIRE
Sheets("SOMMAIRE").Activate


End Sub

Sub ShowScrollBars()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
' Définir la zone de défilement pour inclure toutes les cellules
ws.ScrollArea = ""
' Activer la barre de défilement vertical et horizontal
ws.ScrollBars = xlBoth
Next ws
End Sub
 
Trier par date Trier par votes
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Vby, Phil,
D'autant que dans votre code il n'y a aucune ligne concernant les listes déroulantes.
Pour le code, utilisez les balises </> c'est plus lisible ( à droite de l'icone GIF )
Et "just for the fun" , votre première macro doit pouvoir se simplifier ( mais sans être testée évidemment )
VB: 
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
'Définir le zoom pour chaque feuille
Dim ws As Worksheet, Z%
For Each ws In ThisWorkbook.Worksheets
    Select Case ws.Name
        Case "SOMMAIRE":                        Z = 33
        Case "BASE DE DONNEES":                 Z = 55
        Case "BASE2":                           Z = 100
        Case "BASE1":                           Z = 100
        Case "INDICATEURS CLES DE PERFORMANCE": Z = 66
        Case "KPI-1":                           Z = 82
        Case "KPI-2":                           Z = 73
        Case "KPI-3":                           Z = 78
        Case "KPI-4":                           Z = 77
        Case "KPI-5":                           Z = 77
        Case "KPI-6":                           Z = 66
        Case "KPI-7":                           Z = 91
        Case "KPI-8":                           Z = 66
        Case "TOS":                             Z = 87
    End Select
    ws.Activate
    ActiveWindow.Zoom = Z
Next ws
'Modifier nom de la feuille à protéger et le mot de passe
For Each ws In ThisWorkbook.Worksheets
    Sheets(ws.Name).Protect Password:="adminn"
Next ws
'Activer la feuille SOMMAIRE
Sheets("SOMMAIRE").Activate
End Sub
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Re
Bonjour Sylvain

Sylvain :
Juste une modification dans ton code pour ceci :
(Sauf si c'est une erreur de saisie de vby)
vby à dit:
Sheets("BASE DE DONNEES").Protect password:="passer"
Cliquez pour agrandir...

VB: 
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
'Définir le zoom pour chaque feuille
Dim ws As Worksheet, Z%
For Each ws In ThisWorkbook.Worksheets
    Select Case ws.Name
        Case "SOMMAIRE":                        Z = 33
        Case "BASE DE DONNEES":                 Z = 55
        Case "BASE2":                           Z = 100
        Case "BASE1":                           Z = 100
        Case "INDICATEURS CLES DE PERFORMANCE": Z = 66
        Case "KPI-1":                           Z = 82
        Case "KPI-2":                           Z = 73
        Case "KPI-3":                           Z = 78
        Case "KPI-4":                           Z = 77
        Case "KPI-5":                           Z = 77
        Case "KPI-6":                           Z = 66
        Case "KPI-7":                           Z = 91
        Case "KPI-8":                           Z = 66
        Case "TOS":                             Z = 87
    End Select
    ws.Activate
    ActiveWindow.Zoom = Z
Next ws
'Modifier nom de la feuille à protéger et le mot de passe
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "BASE DE DONNEES" Then
        Sheets(ws.Name).Protect Password:="adminn"
    Else
        Sheets(ws.Name).Protect Password:="passer"
    End If
Next ws
'Activer la feuille SOMMAIRE
Sheets("SOMMAIRE").Activate
End Sub

Pour le reste j'attends son fichier ;)

@Phil69970
 
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
Il n'y a aucune liste déroulante dans les cellules que vous avez évoquées au post #1.
Donc on ne sait pas ce qu'on doit mettre dedans. On peut faire par exemple dans la feuille KPI-1 :
Code: 
Sub Worksheet_Activate()
    ActiveSheet.Unprotect password:="adminn"
' Remplir la liste avec les items
    Liste = "Résultat général,Item1,Item2,Item3,Item4,Item5"
' ListeDéroulante
    Range("H5").Select
    Selection.Value = Split(Liste, ",")(0)
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Liste
        .ShowInput = True: .ShowError = True
    End With
    ActiveSheet.Protect password:="adminn"
End Sub
Je n'ai mis à jour que la feuille KPI-1, il suffit de la dupliquer dans les autres feuilles en changeant :
1- La cellule concernée
2- La liste des items. Par défaut ce sera le premier item affiché.
La macro se lance automatiquement lorsque la feuille est sélectionnée.
 

Pièces jointes

  • Dashboard (1).xlsm
    359.5 KB · Affichages: 2
Vote positif 0 Vote négatif
V

vby

XLDnaute Nouveau
Phil69970 à dit:
Re

Avec ce que j'ai compris ...... mais j’ai pas compris le but recherché :oops:
Le MDP fournit pour KPI-7 est faux donc à modifier dans le code

@Phil69970
Cliquez pour agrandir...
Oui pour le KPI-7 j'ai fait l'erreur d'écrire ADMINN en majuscule.
Le fichier est un classeur partagé avec les collègues sur Teams. Les utilisateurs peuvent le consulter et changer de partenaire au niveau de la liste déroulante pour visualiser les KPI du partenaire concerné.

L'objectif recherché est que : je souhaiterai que lorsque l'utilisateur a fini et fermé le classeur, que lorsqu'il rouvre à nouveau le classeur que RESULTAT GENERAL s'affiche par défaut au niveau de liste avant qu'il ne prenne autre option de partenaire

Par contre j'ai ressayé avec votre exemple mais ca ne marche pas !
 
Vote positif 0 Vote négatif
V

vby

XLDnaute Nouveau
sylvanu à dit:
Bonjour,
Il n'y a aucune liste déroulante dans les cellules que vous avez évoquées au post #1.
Donc on ne sait pas ce qu'on doit mettre dedans. On peut faire par exemple dans la feuille KPI-1 :
Code: 
Sub Worksheet_Activate()
    ActiveSheet.Unprotect password:="adminn"
' Remplir la liste avec les items
    Liste = "Résultat général,Item1,Item2,Item3,Item4,Item5"
' ListeDéroulante
    Range("H5").Select
    Selection.Value = Split(Liste, ",")(0)
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Liste
        .ShowInput = True: .ShowError = True
    End With
    ActiveSheet.Protect password:="adminn"
End Sub
Je n'ai mis à jour que la feuille KPI-1, il suffit de la dupliquer dans les autres feuilles en changeant :
1- La cellule concernée
2- La liste des items. Par défaut ce sera le premier item affiché.
La macro se lance automatiquement lorsque la feuille est sélectionnée.
Cliquez pour agrandir...
Merci, j'ai essayé mais ca ne marche pas.

Après si je choisis Item4 et que je ferme et rouvre le classeur, c'est toujours Item4 qui s'affiche au lieu de Résultat général
 
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
vby à dit:
Après si je choisis Item4 et que je ferme et rouvre le classeur, c'est toujours Item4 qui s'affiche au lieu de Résultat général
Cliquez pour agrandir...
Ce que vous affirmez m'échappe.
Cette macro met à jour la liste déroulante en KPI-1.
Après enregistrement puis ré ouverture alors c'est la feuille Sommaire qui est activée par défaut.
Donc si vous choisissez la feuille KPI-1 alors la macro s'exécutera et vous aurez la bonne valeur.

Quelle manip faites vous exactement ?
Quand vous ouvrez le fichier c'est bien la feuille Sommaire qui est active ?
 
Vote positif 0 Vote négatif
V

vby

XLDnaute Nouveau
sylvanu à dit:
Bonjour,

Ce que vous affirmez m'échappe.
Cette macro met à jour la liste déroulante en KPI-1.
Après enregistrement puis ré ouverture alors c'est la feuille Sommaire qui est activée par défaut.
Donc si vous choisissez la feuille KPI-1 alors la macro s'exécutera et vous aurez la bonne valeur.

Quelle manip faites vous exactement ?
Quand vous ouvrez le fichier c'est bien la feuille Sommaire qui est active ?
Cliquez pour agrandir...
Par défaut c'est la feuille SOMMAIRE qui est affiché à l'ouverture classeur qui sert de page d'accueil. Normalement je desactive l'affichage des feuilles et la navigation se fait uniquement à partir des liens pour accéder au KPI-1 à 8 ainsi Base de données , Tos et autres.

Maintenant une fois que l'on accéde aux KPI-1 et qu'on déroule la liste déroulante pour choisir par exemple Item4 pour visualiser les progressions d'un partenaire (Item4).
Si l'utilisateur ferme le classeur en le laissant à Item4, Je souhaiterai que lorsqu'il rouvre le classeur et arrivé au KPI-1 que par défaut c'est RESULTAT GENERAL qui s'affiche au lieu de Item4
 
Vote positif 0 Vote négatif

Discussions similaires

V
  • Question
Microsoft 365 VBA : faire clignoter une forme
Réponses
7
Affichages
1 K
patricktoulon
patricktoulon
S
  • Résolu(e)
Microsoft 365 Liste déroulante et case adjacente
Réponses
7
Affichages
82
JHA
J
M
  • Question
XL 2021 Macro qui permette d'afficher les feuilles à partir d'une liste déroulante
Réponses
5
Affichages
754
MCO2406
M
M
  • Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
636
Mody200
M
J
  • Résolu(e)
XL 2013 Liste déroulante et sélection de cellule
Réponses
2
Affichages
522
Jean_Valjean
J
chinel
  • Question
XL 2019 liste déroulante
Réponses
11
Affichages
999
chinel
chinel
F
  • Question
XL 2019 "rafraîchir" valeur active affichée liste déroulante si variable tableau source modifié dans autre feuille
Réponses
4
Affichages
530
Gégé-45550
Gégé-45550
José Alain
  • Résolu(e)
XL 2013 Filtrage automatique à partir d'une liste déroulante VBA
Réponses
7
Affichages
707
José Alain
José Alain
C
  • Résolu(e)
XL 2021 Liste dans liste
2 3
Réponses
36
Affichages
2 K
TooFatBoy
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Remplissage automatique sur base d'une liste déroulante n'affiche rien dans la première cellule
Réponses
4
Affichages
611
macksss
M

Membres actuellement en ligne

13 membres et 152 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 098
Messages
2 116 193
Membres
112 679
dernier inscrit
Yupanki