Autres [RÉSOLU] Liste déroulante

[un internaute]

Bonjour le forum
Quelqu’un sait-il faire une liste déroulante sans passer par Données => Validation => Liste pour faire apparaître 2021; 2022; 2023 etc..
Si oui mettre le bouton dans Plage K1:L1
Pour afficher les colonnes K à M double clic sur cellule A2
Contrôle?
Formulaire?
Userform?
Le plus pratique
Merci à vous

 

[Robert]

Re,

Ton fichier plante à l'ouverture ! Je l'ouvre sans activer les macros et quand je veux afficher les colonnes K et L je ne peux pas car le classeur est protégé. Je le déprotège et j'affiche les colonnes. L'année ne se trouve pas en K1:L1 mais seulement en K1. 2021;2022; 2023 et etc. Mais jusqu'à quand !?...

Le plus pratique
Merci à vous

Le plus pratique c'est un fichier qui n'a pas besoin de tout se b***el pour s'ouvrir !...

Sinon fusionne K1:L1 puis :

Private Sub Workbook_Open()
Dim J As Long, NumJour As Integer
Dim WSheet As Worksheet
Dim L As String
Dim I As Integer

Sheets("CURE_BEROCCA").Unprotect
For I = 2021 To 2050 'limite à adapter
    L = IIf(L = "", I, L & "," & I)
Next I
With Sheets("CURE_BEROCCA").Range("K1").Validation
    .Delete
    .Add xlValidateList, Formula1:=L
End With
Application.ScreenUpdating = False
For Each WSheet In Sheets                           ' Pour toutes les feuilles du classeur
    Protection WSheet
Next WSheet
Init_Feuille   ' Le 29/01/2021
End Sub

 

[un internaute]

Bonjour Robert,
Chez moi ça bug pas. Oui protégé.
Si je comprend bien ça va passer tout seul en 2022 sans manipulation?

 

[Robert]

Re,

Heu non !... T'as pas bien compris. Ça va pas passer tout seul en 2022. L'année sera affichée dans la liste déroulante mais il faudra que l'utilisateur la change manuellement...

 

[ChTi160]

Bonjour un internaute
Edit :Bonjour Robert
en pièce jointe une approche
oupss j'ai oublié de l'envoyer ce matin Lol
jean marie

 

[ChTi160]

Re
pour répondre a ton Interrogation
tu peux faire en sorte que lors de l'affichage de la feuille le Combobox affiche l'année de la date du Jours
Bonne journée
je regarde ce que Robert à proposé
jean marie

 

[un internaute]

Re à tous les deux
SUPER mais on ne peut pas faire fermer automatiquement l'userform après le choix de l'année?
Merci à vous deux

 

[ChTi160]

Arffffg
Excuses!

 

[un internaute]

Oui mais tu ajoutes quoi à la macro STP?
Merci d'avance

 

[un internaute]

Bonjour le forum,
Personne pour régler le problème de la fermeture de l'USERFORM?
Lorsque je mets le bouton dans plage K:M le bouton ne se ferme t-il pas aussi?
Merci pour vos éventuels retours
Cordialement

 

[un internaute]

Bonsoir à tout le forum et à ceux qui ont bien voulu participer à "dévelloper" le programme.
je ne sais pas si c'est toujours très logique mais ça fonctionne
Bonne fin de soirée à vous tous et bonne fin de WE
Cordialement