Automatiser une extraction via VBA

**djonou** · 07/02/2019, 11h52

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

**Menhir** · 07/02/2019, 13h27

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...

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A recopier vers le bas autant que nécessaire.

**djonou** · 07/02/2019, 13h50

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

**Menhir** · 07/02/2019, 14h41

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 ?