Insérer 2 formules rechercheV avec macros ?

[starz]

Bonjour,
POuvez vous m'aider à gagner du temps dans mon travail journalier.
Je saisie tous le temps les mêmes formules dans la même case, la formule est une rechercheV sur 2 autres fichiers dont le nom change 1 fois par trimestre.

La 1ere rechercheV s'applique dans la cellule G2 puis je la glisse jusqu'a première cellule vide. Cette rechercheV se fait via un fichier nommé ART 29 03 10.xls

en G2

=RECHERCHEV(A2;'[ART 29 03 10.xls]ART'!$A$2:$AB$61051;10;0)

La seconde rechercheV s'applique dans la cellule G3 et je la glisse verticalement et horizontale.
Cette rechercheV se fait via un fichier EXTPXHA 04 10.xls

En H2

=RECHERCHEV($A2;'[EXTPXHA 04 10.xls]EXTPXHA'!$A$2:$P$61060;3;0)

En I2

=RECHERCHEV($A2;'[EXTPXHA 04 10.xls]EXTPXHA'!$A$2:$P$61060;4;0)

En J2

=RECHERCHEV($A2;'[EXTPXHA 04 10.xls]EXTPXHA'!$A$2:$P$61060;5;0)

et ça jusqu'en O3

Pouvez vous m'aider à automatiser cette application de formules avec une macro pour la rechercheV utilisant ce fichier ART 29 03 10.xls
et une seconde macro utilisant ce fichier EXTPXHA 04 10.xls ou 1 macro qui fait les 2.

merci

voici l'exemple

 

[JCGL]

Re : Insérer 2 formules rechercheV avec macros ?

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Formules()
    Feuil2.Range("G2:G5").Formula = _
            "=VLOOKUP(RC[-6],'\\Scmpl.fr\racine\Dossier\Chiffrage\Extration Donnée\[ART 29 03 10.xls]ART'!R2C1:R61051C28,10,0)"
    Feuil2.Range("J2:J5").Formula = _
            "=VLOOKUP(RC1,'\\Scmpl.fr\racine\Dossier\Chiffrage\Extration Donnée\[EXTPXHA 04 10.xls]EXTPXHA'!R2C1:R61060C16,5,0)"
End Sub

A+ à tous

 

[starz]

Re : Insérer 2 formules rechercheV avec macros ?

Bonsoir,
J'ai essayé mais il y a quelques petits problème,
je m'explique,
pour la première rechercheV j'ai un #NA sur la première ligne soit en G2
pour la seconde rechercheV j'ai les résultat qu'a partir de la colonne J et toujours un #NA dans la cellule J2

je joint les 3 fichiers pour plus de faciliter pour les tests

merci de votre aide

 

[JCGL]

Re : Insérer 2 formules rechercheV avec macros ?

Bonjour à tous,

Les trois fichiers ouverts :

Option Explicit

Sub Formules()
    Feuil2.Range("G2:G5").Formula = _
            "=VLOOKUP(RC[-6],'[ART 29 03 10.xls]ART'!C1:C28,10,0)"
    Feuil2.Range("J2:J5").Formula = _
            "=VLOOKUP(RC1,'[EXTPXHA 04 10.xls]EXTPXHA'!C1:C10,5,0)"
End Sub

A+ à tous

 

[starz]

Re : Insérer 2 formules rechercheV avec macros ?

Re,
Je n'ai plus de #NA en G2 et J2 par contre pas de résultat en H2,I2,K2,M2 etc...

Pour info :
Jje n'ai peut être pas précisé mais ça me semblait évident pour moi:
De la colonne A à la colonne F les données changent et le nombre de ligne peut arrivé à + de 200 (dans l'exemple joint j'ai mis que 4 lignes) !

@+

 

[JCGL]

Re : Insérer 2 formules rechercheV avec macros ?

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Formules()
    Application.ScreenUpdating = 0
    Application.Calculation = xlCalculationManual
    Feuil2.Range("G2:G200").Formula = _
            "=VLOOKUP(RC[-6],'[ART 29 03 10.xls]ART'!C1:C28,10,0)"
    Feuil2.Range("H2:M2").Formula = _
            "=VLOOKUP(RC1,'[EXTPXHA 04 10.xls]EXTPXHA'!C1:C10,COLUMN()-3,0)"
    Feuil2.Range("H2:M200").FillDown
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[JCGL]

Re : Insérer 2 formules rechercheV avec macros ?

Bonjour à tous,

Pour anticiper ta prochaine question : Condition pour supprimer le #NA

Option Explicit

Sub Formules()
    Application.ScreenUpdating = 0
    Application.Calculation = xlCalculationManual
    Feuil2.Range("G2:G200").Formula = _
             "=IF(RC[-6]="""","""",VLOOKUP(RC[-6],'[ART 29 03 10.xls]ART'!C1:C28,10,0))"
    Feuil2.Range("H2:M2").Formula = _
            "=IF(RC[-6]="""","""",VLOOKUP(RC1,'[EXTPXHA 04 10.xls]EXTPXHA'!C1:C10,COLUMN()-3,0))"
    Feuil2.Range("H2:M200").FillDown
    Application.Calculation = xlCalculationAutomatic
End Sub

A+ à tous

 

[starz]

Re : Insérer 2 formules rechercheV avec macros ?

Nickel ! ça fonctionne à 99% c'est juste le#NA qui apparait jusqu'a la ligne 200 qui me gène un peu, mais c'est pas grand chose comparé à ce que vous venez de me faire.
Cependant si il y a une solution je suis preneur 🙄

 

[JCGL]

Re : Insérer 2 formules rechercheV avec macros ?

Bonjour à tous,

Lire mon message de 18:46.... 😉

A++
A+ à tous

 

[starz]

Re : Insérer 2 formules rechercheV avec macros ?

OUps désolé j'avais pas vu !
Merci beaucoup, vraiment ! 🙂
bonne soirée

 

[starz]

Re : Insérer 2 formules rechercheV avec macros ?

Bonjour à tous,
j'aimerai apporté une Petite modification !
Je faut il rajouter dans la macro dans le cas ou les fichiers ne se trouvent plus à l'adresse indiqué ?
Peut on utilisé ou exploité ce code ? Access-3stone - Fichiers - Sélection fichier (MOL)

merci de votre aide

bonne journée