Problème avec le choix de la fonction

Bonsoir,

Je viens vers vous car j'ai du mal a utiliser la fonction VLOOK ( même avec les cours du fofo )

Ci-joint un fichier avec les données de base :

J'ai 2 lignes avec 2 inconnus X( A2/3) et Y ( B2/3).

Nous Z et Zone donc connus au préalable en ( C2/3 et D2/3).

Dans les colonnes F,G,H et I j'y ai place ma bibliothèque de référence.

Je souhaite rechercher tous les X et Y possible avec les données Z et Zone en commun.

J'ai mis 1 exemple dans l'onglet "essai".

Surtout par la suite, il faut que je puisse rechercher tous les X et Y avec plus de critères communs, exemple dans l'onglet "essai1".

Qu'en dites vous?

Salut,

Je ne pense pas que ton problème soit résoluble par formules. Voici donc un essai par macro.

Sub Recherche()
Dim i As Integer, j As Integer, Contrôles_nécessaires As Integer, Compteur As Integer, DerLig As Integer

Contrôles_nécessaires = Range("C" & Rows.Count).End(xlUp).Row - 1

Application.ScreenUpdating = False

Range("K2:L" & Rows.Count).ClearContents
DerLig = Range("H" & Rows.Count).End(xlUp).Row

For j = 2 To Contrôles_nécessaires + 1
    For i = 3 To DerLig
        If Range("H" & i) = Range("C" & j) And Range("I" & i) = Range("D" & j) Then
            Compteur = Compteur + 1
            Range("F" & i & ":G" & i).Copy Range("O" & Compteur)
        End If
    Next i
Next j

Range("O1:P" & Rows.Count).Sort Key1:=Range("O1"), Order1:=xlAscending, Header:=xlYes, Key2:=Range("P1"), Order2:=xlAscending, Header:=xlYes

Range("Q1") = 1
Range("Q2").Activate

Do Until ActiveCell.Offset(0, -1) = ""
    If ActiveCell.Offset(1, -2) = ActiveCell.Offset(0, -2) And ActiveCell.Offset(1, -1) = ActiveCell.Offset(0, -1) Then
        ActiveCell = ActiveCell.Offset(-1, 0) + 1
    Else
        ActiveCell = 1
    End If
    ActiveCell.Offset(1, 0).Activate
Loop

DerLig = Range("O" & Rows.Count).End(xlUp).Row
Compteur = 1

For i = 1 To DerLig
    If Range("Q" & i) = Contrôles_nécessaires Then
        Compteur = Compteur + 1
        Range("O" & i & ":P" & i).Copy Range("K" & Compteur)
    End If
Next i

Range("O:Q").ClearContents

End Sub

Cordialement.

Toutes mes félicitations Yvouille.

C'est excellent !

Par contre, je rencontre un autre souci donc un nouveau post

Re,

Merci pour tes compliments. Pour continuer la discussion, merci de rester si possible sur le Forum et de ne pas passer en privé.

Sur ton fichier Book099, si tu cliques sur le bouton et que tu choisis l’option ‘Affecter une macro’, tu vois que c’est la macro ‘Recherche’ du Book_V3 qui y est affectée. Tu choisis alors la macro sans référence au fichier (la macro ‘Recherche’) et le tour est joué.

Pourquoi surviennent de telles constellations ? Je n’ai jamais trop cherché !

Amicalement.

Que dire ???

Trop fort Yvouille.

Que dire !!!

Trop fort le Yvouille

Salut Noyan,

Je n'ai pas compris si tu as voulu poster une nouvelle demande - auquel cas ton texte n'a pas passé - ou si tu as simplement fait une fausse manipulation en réactivant ce fil par erreur. Si c'est le premier cas, il faudra que tu 'repostes' ta demande.

Cordialement.