XL 2013 Code VBA formule extensible

[chezswan]

Bonjour à tous,

Je n'arrive pas à trouver un code VBA satisfaisant qui permettrait d'ajouter et d'étendre la formule qui ressemblerait à : =SIERREUR(INDEX($F$2:$H$5;EQUIV($A2;$G$2:$G$5;0);1);"") dans les 2 dernières colonnes (en jaune).
Le nombre de ligne du tableau peut aussi varier.

Je vous remercie par avance de votre éclairage.

Bonne journée à tous.

 

[Simply]

Bonjour,

Option Explicit

Sub TestFormula()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("C2:C" & LastRow).Formula = "=IFERROR(INDEX(F$2:H$" & LastRow & ",MATCH(A2,G$2:G$" & LastRow & ",0),1),"""")"
    Range("D2:D" & LastRow).Formula = "=IFERROR(INDEX(F$2:H$" & LastRow & ",MATCH(A2,G$2:G$" & LastRow & ",0),3),"""")"
End Sub

 

[sylvanu]

Bonjour Chezswan, Simply,
On peut trouver la bonne colonne où rechercher avec :

=SIERREUR(INDEX($F:$H;EQUIV($A2;$G:$G;0);EQUIV(C$1;$F$1:$ZZ$1;0));"")

Cette formule est indépendante du nombre de colonnes ( limité ici à 671 avec le ZZ1 ) et du nombre de lignes.

 

[chezswan]

Bonjour Simply, Bonjour Sylvanu,

Merci beaucoup pour vos réponses respectives. Ca fonctionne parfaitement.

Bonne journée à vous.

 

[chezswan]

Bonjour,

Je reviens sur ce même fil, car je n'arrive pas à adapter le code lorsque les 2 tableaux se trouvent sur des feuilles différentes. C'est surement évident, en tous cas pour vous, mais j'avoue que ça m'échappe complètement.

Je vous remercie par avance. Bonne journée à tous.

Swan

 

[sylvanu]

Bonjour,
Un essai en PJ, c'est la même chose que précédemment. Il faut faire attention aux noms de colonnes, et aussi à la position des "$" qui figent les lignes et colonnes.

=SIERREUR(INDEX(Feuil2!$A:$ZA;EQUIV($A2;Feuil2!$B:$B;0);EQUIV(C$1;Feuil2!$A$1:$AZ$1;0));"")

 

[chezswan]

Bonjour,
Un essai en PJ, c'est la même chose que précédemment. Il faut faire attention aux noms de colonnes, et aussi à la position des "$" qui figent les lignes et colonnes.

=SIERREUR(INDEX(Feuil2!$A:$ZA;EQUIV($A2;Feuil2!$B:$B;0);EQUIV(C$1;Feuil2!$A$1:$AZ$1;0));"")

Bonjour Sylvanu,

Merci beaucoup, une fois de plus. J'avais un peu pensé la même chose mais je n'ai surement pas utilisé la/les bonne(s) syntaxe(s).
Je vais reprendre mon tableau et réessayer.

Bonne journée

 

[chezswan]

Bonjour,

Je reviens sur mon précédent message. Il se peut que je n'ai pas compris la réponse de sylvanu.
En fait, je ne sais pas adapter le code VBA de Simply lorsque les tableaux se trouvent dans des feuilles distincts.


Je vous remercie par avance de votre aide.

Swan

 

[sylvanu]

Bonjour,
Le plus simple serait de fournir un fichier test représentatif.
Le post #6 semblait résoudre le problème, non?

 

[chezswan]

Bonjour,
Le plus simple serait de fournir un fichier test représentatif.
Le post #6 semblait résoudre le problème, non?

Bonjour,

A priori le dernier post convient pour une formule appliquée dans une cellule. Ce que je cherche c'est la même chose en VBA. Le code de Simply fonctionne très bien si les tableaux se trouvent sur la même feuille, mais pas si ils sont sur des feuilles distincts. Le fichier joint conserve le code de simply.

Bonne journée à tous.

 

[sylvanu]

Re,
Il suffit de préciser la feuille de recherche :

Sub TestFormula()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("C2:C" & LastRow).Formula = "=IFERROR(INDEX(Feuil2!C1:C677,MATCH(RC1,Feuil2!C2,0),MATCH(R1C,Feuil2!R1C1:R1C52,0)),"""")"
    Range("D2:D" & LastRow).Formula = "=IFERROR(INDEX(Feuil2!C1:C677,MATCH(RC1,Feuil2!C2,0),MATCH(R1C,Feuil2!R1C1:R1C52,0)),"""")"
End Sub

 

[chezswan]

Re,
Il suffit de préciser la feuille de recherche :

Sub TestFormula()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("C2:C" & LastRow).Formula = "=IFERROR(INDEX(Feuil2!C1:C677,MATCH(RC1,Feuil2!C2,0),MATCH(R1C,Feuil2!R1C1:R1C52,0)),"""")"
    Range("D2:D" & LastRow).Formula = "=IFERROR(INDEX(Feuil2!C1:C677,MATCH(RC1,Feuil2!C2,0),MATCH(R1C,Feuil2!R1C1:R1C52,0)),"""")"
End Sub

Re,

Merci beaucoup pour votre patience et vos réponses. c'est parfait.