Question pour un menu déroulant avec des dates

  • Initiateur de la discussion Initiateur de la discussion Papy 100
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : Question pour un menu déroulant avec des dates

Bonjour Papy, Pierrot, bonjour le forum,

En utilisant un colonne supplémentaire (colonne O masquée), un filtre élaboré, une plage nommé date et la macro événemetielle SelectionChange ci-dessous :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'la colonne O est masquée
'la plage nommée "date" vient du Menu Insertion/Nom/Définir - Date =DECALER(Feuil1!$O$2;;;NBVAL(Feuil1!$O:$O)-1)

If Target.Address <> "$J$7:$K$7" Then Exit Sub 'si la cllule active n'est pas la cellule fusionnée J7:K7, sort de la procédure
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
'filtre élaborée de la colonne A recopé en O1 sans doublons
Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("O1"), Unique:=True
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub
Le fichier :
 

Pièces jointes

Re : Question pour un menu déroulant avec des dates

Merci à vous Pierrot93; Robert et JHA pour votre aide et vos renseignements

Je suis encore novice avec ce logiciel et surtout avec les macros mais je vais m'y mettre pour.....

Je suis comblé avec vos réponses et je vais corriger mes fichiers pour que cela aille comme je le souhaite.

Encore MERCI à vous Patrick
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
216
Réponses
9
Affichages
331
Réponses
12
Affichages
408
Réponses
4
Affichages
481
Retour