Sélectionner une page selon une date renseignée dans un combobox

Question

Dans le cadre d'un projet d'entreprise il m'as été missionné de réaliser un fichier de suivi hebdomadaire de la production j'aimerais alors: réaliser un système permettant de sélectionner une page correspondant au numéro de semaine selon une date renseignée dans un combobox lui même compris dans un userform. mais je n'arrive pas a réaliser mon envie... C'est pourquoi je demande a une âme charitable de m'aiguiller sur ce sujet je met ci-joint mon fichier merci par avance ☺...

Xmenpl · Answer

Bonjour, je pense qu'il y a méprise sur les infos que vous renseignez et la date que vous souhaitez reconstituer.

-Vous ne pouvez pas juste additionner les contenus de combobox. !!! ---> le texte : "jeudi1octobre2020" n'est pas une date pour excel.

- Par ailleurs l'intérêt de la combobox 4 ??? indiquer le jour ? la personne qui cherche le 2 février 2020 vous pensez qu'elle se rappel si c'est un lundi ou un jeudi ?

Donc trois de vos combobox suffisent :

Combobox2= jours ok çà c'est un nombre.

Combobox3= mois en lettre donc pas utilisable en chiffre ... il faudra utiliser l'option listindex pour avoir le chiffre du mois.

Combobox1=année ok aussi c'est un nombre.

On obtiend donc :

Private Sub CommandButton1_Click()
Dim MADATE As Date
Dim sem As Integer
Sheets("parametres").Activate
MADATE = Format(ComboBox3.Value & "/" & ComboBox2.ListIndex + 1 & "/" & ComboBox1.Value, "dd/mm/yyyy")
sem = Format(MADATE, "ww")
Worksheets("Feuil" & sem).Activate
Unload Me
End Sub

6application.xlsm (72.03 Ko)