VBA avec 1 critère de choix

Bonjour
j’ai enregistrer un code qui définis ce que je voudrais .
dans ma cellule A1 je saisie ou choisie un jours de la semaine: LUNDI ou MARDI ou MERCREDI ou JEUDI ou VENDREDI ou SAMEDI&LUNDI.
Lorsque je saisie un de ces choix il va me cherche ''Enfin je vais cherché"" les donner que j’ai déjà construis en amonts sur pwq, pour la charger dans ma feuille
Est-il possible que vous puissiez avec votre gentillesse, m’aidé à faire une condition (if; then; end if) pour ma cellule A1?
J’espère avoir été assez explicite.Merci beaucoup
Cordialement.

Sub testecharLundi()
Range(“A1”).Select
ActiveCell.FormulaR1C1 = “LUNDI”
Application.CutCopyMode = False
Application.CutCopyMode = False
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
“OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=””LUNDI (2)””;Extended Properties=””””” _
, Destination:=Range(“$B$3”)).QueryTable
.CommandType = xlCmdSql
.CommandText = Array(“SELECT * FROM [LUNDI (2)]”)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = “LUNDI__2”
.Refresh BackgroundQuery:=False
End With
Range(“A1”).Select
End Sub

Bonjour,
Peux-tu préciser ta version Excel (dans ton profil) et joindre un fichier à ta demande ?
On doit pouvoir utiliser les fonctionnalités d'un filtre sous PQ (et non PWQ).
Cdlt.

365 EN-FR
Je veux une possibilité d'insérer IF dans mon code et non une manipulation sur Power Q.
Toute mes donné sont prête juste avec connexion il faut juste que je charge le bon jour sur ma feuille après actualisation.
Merci beaucoup.
Cordialement

le fichier en pj pour exemple

merci a vous

Bonjour

Je n'ai pas trouver grand chose pour le moment mais ,dernièrement je me suis tourné sur la formule suivante qui fonctionne aussi =SIERREUR(INDEX(INDIRECT(SUBSTITUE($A$2;"&";"_"));LIGNE()-LIGNE(B$3);EQUIV(B$3;LUNDI[#En-têtes];0));"")

Donc le sujet est résolût