Sélection automatique du mois

Marc_du_78

XLDnaute Accro
Bonjour à chacun, chacune,

Voici les données :
en A1 j'ai : =AUJOURDHUI()
en B1 j'ai : =$A$1 (cellule formatée : 'mmmm')
en X1 j'ai une liste de choix en 'texte' (par obligation) JANVIER, FEVRIER etc.
qui se répercute sur la feuille par ce bout de code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address(0, 0) = 'X1' Then Exit Sub
Const Source As String = 'Liste de Validation Excel'
Select Case Target.Value
Case 'JANVIER': Janvier Source
Case 'FEVRIER': Fevrier Source
etc.
En aboutissement aux réponses données dans ces deux fils : Votre avis sur écriture code :
Lien supprimé
et : recuperer le mois dans une cellule :
Lien supprimé
Je souhaiterai qu'à l'ouverture du classeur que celui-ci, en fonction du mois contenu en B1, me sélectionne le mois en X1.

En vous remerciant par avance.
 

Discussions similaires

Réponses
7
Affichages
549
Réponses
8
Affichages
727
Réponses
5
Affichages
712

Statistiques des forums

Discussions
312 310
Messages
2 087 119
Membres
103 478
dernier inscrit
Frederic Lagger