Automatiser une extraction via VBA

Version imprimable

07/02/2019, 11h52
djonou

Automatiser une extraction via VBA
Bonjour a tous dans le cadre de mon travail je réalise une macro.

J'ai 12 tableaux correspondant au 12 mois de l'année et dans ces derniers je souhaite extraire une donnée spécifique pour l'incorporer dans une autre tableau sur une autre fiche afin de faire une synthèse.

J'ai utilisé l'enregistreur de macro qui m'a donnée ceci :
Code:

1 2 3 4 5 ActiveCell.FormulaR1C1 = "=Feuil1!R[-84]C[3]" Range("F97").Select ActiveCell.FormulaR1C1 = "=Feuil1!R[-67]C[3]" Range("F98").Select
Il s'agit de l'extraction de janvier puis février. Ce que j'aimerai faire c'est qu'il fasse cette procédure automatiquement et de manière répétitive 12 fois.
En effet le code suivant sera
Code:

1 2 ActiveCell.FormulaR1C1 = "=Feuil1!R[-50]C[3]" Range("F99").Select
Ça avance toujours de 17 en 17 au niveau du R[...]
et de 1 en 1 au niveau du Range("...")

Merci pour votre aide!!
07/02/2019, 13h27
Menhir

S'il s'agit simplement de mettre 12 formules dans 12 cellules, passer par une macro ce n'est pas rentable. Tu auras plus vite fait de le faire "à la main".
En utilisant la fonction DECALER() tu peux même le faire en une seule formule à recopier.

Il est très étrange que tu mettes la sélection d'une cellule après son affectation à une formule... :koi:
Mais je vais supposé que ton code est correcte, ce qui signifie que tu veux en F96 la valeur de I12, en F97 la valeur de I30, etc.

En F96, mets la formule :

Code:

=DECALER(I$12;18*(LIGNE()-LIGNE(F$96));0)

A recopier vers le bas autant que nécessaire.
07/02/2019, 13h50
djonou

Enfaite la premiere donnée vient d'in tableau A qui correspond a Janvier. Et la second donnée extraite vient d'un tableau B (février) qui se trouve plus bas dans ma feuille de calcul ....
Merci de ta réponse Menhir
07/02/2019, 14h41
Menhir

Citation:

Envoyé par djonou

Enfaite la premiere donnée vient d'in tableau A qui correspond a Janvier. Et la second donnée extraite vient d'un tableau B (février) qui se trouve plus bas dans ma feuille de calcul ....

J'avais bien compris.
Est-ce que, au moins, tu essayes ce que je te propose ou suis-je en train de perdre mon temps ?
07/02/2019, 15h13
djonou

Citation:

Envoyé par Menhir

J'avais bien compris.
Est-ce que, au moins, tu essayes ce que je te propose ou suis-je en train de perdre mon temps ?

J'ai essayé ca fonctionné je te remercie beaucoup Menhir :D:D:D
Ca va m'aider dans pas mal de situation, je clos le topic tu n'as perdu ton temps au contraire tu as aidé un alternant perdu !