Autres [RÉSOLU] Liste déroulante

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Février 2021

• #2

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

Cliquez pour agrandir...

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 :

VB:

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 5 Février 2021

• #3

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Février 2021

• #4

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Février 2021

• #5

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

 

Pièces jointes

• toto Chti160.xls

  110 KB · Affichages: 6

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Février 2021

• #6

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 5 Février 2021

• #7

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

 

Pièces jointes

• toto.xls

  116 KB · Affichages: 3

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 5 Février 2021

• #8

Arffffg
Excuses!

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 5 Février 2021

• #9

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

 

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 6 Février 2021

• #10

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

 

Pièces jointes

• toto.xls

  112.5 KB · Affichages: 3

Vote positif 0 Vote négatif

U

un internaute

XLDnaute Impliqué

• 6 Février 2021

• #11

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

 

Pièces jointes

• TOTO.xls

  132.5 KB · Affichages: 5

Vote positif 0 Vote négatif