Code vba : recherche en H et V en même temps

Bonjour,

Pourquoi n'utilises-tu pas 2 feuilles dans un fichier plutôt que 2 fichiers d'une feuille?

Bonjour

Les 2 classeurs sont ils dans le m^mr dossier?

Si "non"
me donner le dossier par ex "C:\fff\bbbb\"

Bonjour à tous les deux

Tu n'as pas forcément besoin d'une macro
Les deux fichiers étant ouverts dans la même session d'excel
En D3 du fichier Principal
=SI(ESTNA(INDEX([Patri.xls]Feuil1!$C$4:$G$14;EQUIV($B3;[Patri.xls]Feuil1!$B:$B;0)-3;EQUIV($A3;[Patri.xls]Feuil1!$2:$2;0)-2));"";INDEX([Patri.xls]Feuil1!$C$4:$G$14;EQUIV($B3;[Patri.xls]Feuil1!$B:$B;0)-3;EQUIV($A3;[Patri.xls]Feuil1!$2:$2;0)-2))
devrait aller (il te suffira de changer l'extension .xls (mon vieil excel 2003) par .xlsx

Cdlmnt

Bon, on m'a demandé du VBA, vla du VBA sans philosopher dans le salon de thé

Option Explicit
'--------------------------
Sub informer()
Dim Chemin As String, Fich As String
Dim Derlig As Byte, Lig As Byte, Ville As String, Article As String

    Application.ScreenUpdating = False
    Chemin = ThisWorkbook.Path
    Workbooks.Open (Chemin & "\patri.xlsx")
    
    With ThisWorkbook.Sheets(1)
        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
        For Lig = 3 To Derlig
            Ville = .Cells(Lig, "A")
            Article = .Cells(Lig, "B")
            .Cells(Lig, "D") = ChercherHV(Ville, Article)
        Next
        .Activate
    End With
        Workbooks("patri.xlsx").Close
 End Sub
 '------------
Function ChercherHV(Cite, Arti) As String
Dim Col As Byte, Lig As Byte
    With ActiveWorkbook.Sheets(1)
        On Error GoTo inconnu
        Col = .Rows(2).Find(Cite, .Range("B2"), xlValues).Column
        Lig = .Columns("B").Find(Arti, .Range("B3"), xlValues).Row
            ChercherHV = .Cells(Lig, Col).Value
    End With
    Exit Function
inconnu:
 ChercherHV = "Article ou Ville inconnu""
End Function

Un seuk artickle(ville Oui et beaucoup d'article inconnus dans patri pour les quels j'ai écrit " article ou ville inconnu"
 Michel

1. INDEX([Patri.xls]Feuil1!$C$4:$G$14, ....
va rechercher une cellule dans le tableau C4:G14 (de Patri) dont
2. le n° de ligne est donné par
EQUIV($B3;[Patri.xls]Feuil1!$B:$B;0)-3
Or EQUIV($B3;[Patri.xls]Feuil1!$B:$B;0)- renvoie le n° de ligne dans la colonne B où se trouve $B3 (l'article du Principal) ; comme le tableau dans Patri commence à la ligne 4, il faut enlever 3 pour obtenir la bonne ligne dans le tableau de Patri
2. le numéro de colonne est donné par
EQUIV($A3;[Patri.xls]Feuil1!$2:$2;0)-2
même chose : le tableau dans Partri commence à la colonne 3 , donc il faut enlever 2

RQ. tu devrais jeter une oeil sur l'aide en ce qui concerne les fonctions INDEX et EQUIV

Salutations à michel en passant, qui ne devrait pas tarder à t'envoyer la rectification de la macro

Cdlmnt

Bonjour, CCM, ca va ?

Bon, on va rester sur ta solution par formule qui parait + adaptée. ;o)

> michel. merci, tout va ... pour le moment du moins et j'espère qu'il en est de même pour toi
Je ne vais pas avoir beaucoup de temps ces jours ci (encore de la programmation, mais des activités de mes petits enfants, et c'est au moins aussi compliqué que vba !), donc si tu veux bien prendre le relai sur ce coup là..... En plus, tu pourras lui fournir la solution avec SIERREUR, plus concise, que mon toujours vieil excel 2003 ne connaît pas

> Tschims.
1. post #16.Donc je travaille sur un mem fichier mais de feuilles différentes?
post #20 Fichier Principal : Ville => A3 : A 2800 et Article => N3 : N2800
2. Fichier Patri : Ville => E2 : Z2 et Article => D3 : D200 et mes réponses ("ce que je souhaite récuperer) => E3 : Z200.
Il va falloir choisir !
3. Tu devrais envoyer un bour de ton (tes) vrai(s) fichier(s), ça faciliterait bien les choses

Cdlmnt

Il suffit de repmlacer la référence au fichier patri par la référence à la feuille Patri et de modifier la colonne article de la feuille Principal
Ce qui donne en D3
=SI(ESTNA(INDEX(Patri!$C$4:$G$14;EQUIV(Principal!$L3;Patri!B:B;0)-3;EQUIV(Principal!$A3;Patri!$2:$2;0)-2));"";INDEX(Patri!$C$4:$G$14;EQUIV(Principal!$L3;Patri!B:B;0)-3;EQUIV(Principal!$A3;Patri!$2:$2;0)-2))

avec sierreur, ça devrait ressemble à ça (sans garantie)
=SIERREUR(INDEX(Patri!$C$4:$G$14;EQUIV(Principal!$L12;Patri!B:B;0)-3;EQUIV(Principal!$A12;Patri!$2:$2;0)-2));"")

Cdlmnt