Récupération de données

[kheldar]

Bonjour au forum,

Je me permets de vous exposer mon problème :
Je souhaite récupérer grâce à la recherche verticale des données d'un classeur excel en fonction d'une valeur commune et ceci par l'activation d'une macro.
La macro doit être lancé chaque jour de la semaine (récupération quotidiennes de ces données car générées quotidiennement)

Voici le code :

Range("H15").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(C[-7],'ventes flegs journaliere.csv'!R1C1:R50000C5,4,FALSE)"

Dans l'exemple ci-dessus, vous pouvez constaté que c'est une cellule de la colonne H qui est considérée (journée du Lundi)
Seulement chaque jour de la semaine cette colonne ( H pour Lundi ; R pour le Mardi; AB pour le Mercredi..... jusqu'au Samedi).

Je n'ai évidemment pas envie de créer une macro pour chaque jour de la semaine.

Je souhaiterai faire bouger le -7 dans la formule de recherche verticale
-7 pour le Lundi
-17 pour le Mardi
-27 pour le Mercredi
.....


J'espère avoir été clair et précis.

Merci d'avance pour toutes vos réponses.
Cordialement.

 

[Compte Supprimé 979]

Re : Récupération de données

Bonjour Kheldar,

Pour faciliter la chose, tu peux transformer la "FormulaR1C1" en "FormulaLocal" et ça change tout 😀

Tu mets alors

Range("H16").FormulaLocal = "=RECHERCHEV(A:A;'ventes flegs journaliere.csv'!$A$1:$E$50000;4;FAUX)"

Sinon dans ton code, tu peux ajouter une variable avec une boucle par exemple

For ValC = -7 To -47 Step -10
  Range("H15").FormulaR1C1 = _
  "=VLOOKUP(C[" & ValC & "],'ventes flegs journaliere.csv'!R1C1:R50000C5,4,FALSE)"
Next ValC

Voili, voilà 😉

 

[JCGL]

Re : Récupération de données

Bonjour à tous,
Bonjour Bruno,

Voir aussi ici

A++
A+ à tous