Microsoft 365 Recherche plusieurs données

azerty64

XLDnaute Junior
Bonjour à tous,

Aujourd'hui je fais appel aux meilleurs ;)
Je souhaiterai avoir une formule ou du VBA, le plus simple pour vous, me permettant de faire ressortir plusieurs données d'une base en fonction d'un critère.
Dans une base de données (feuil 2) on va retrouver plusieurs critères avec une multitude de "résultats" et dans la "feuil 1" la synthèse dans laquelle se trouve un seul critère mais je veux avoir tous les résultats qu'il lui sont affecté.
Vous trouverez en PJ une explication plus concrète.
Bon courage et merci de votre aide 😘

cordialement,
azerty64
 

Pièces jointes

  • Bon courage et merci.xlsx
    11 KB · Affichages: 18
Solution
Bonjour Azerty,
Un essai en PJ avec :
VB:
Sub ChercheData()
    Dim DL, c, i, j
    Application.ScreenUpdating = False
    Range("B2:B" & (1+Range("B65500").End(xlUp).Row)).ClearContents
    DL = Range("H65500").End(xlUp).Row
    tablo = Sheets("Feuil2").[A1].CurrentRegion
    IndW = 2
    For c = 2 To DL
        Critere = Cells(c, "H")
        For i = 2 To UBound(tablo)
            If tablo(i, 1) = Critere Then
                For j = 1 To 4
                    Cells(IndW, j + 1) = tablo(i, j)
                Next j
                IndW = IndW + 1
            End If
        Next i
    Next c
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Azerty,
Un essai en PJ avec :
VB:
Sub ChercheData()
    Dim DL, c, i, j
    Application.ScreenUpdating = False
    Range("B2:B" & (1+Range("B65500").End(xlUp).Row)).ClearContents
    DL = Range("H65500").End(xlUp).Row
    tablo = Sheets("Feuil2").[A1].CurrentRegion
    IndW = 2
    For c = 2 To DL
        Critere = Cells(c, "H")
        For i = 2 To UBound(tablo)
            If tablo(i, 1) = Critere Then
                For j = 1 To 4
                    Cells(IndW, j + 1) = tablo(i, j)
                Next j
                IndW = IndW + 1
            End If
        Next i
    Next c
End Sub
 

Pièces jointes

  • Bon courage et merci.xlsm
    18.2 KB · Affichages: 7

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 111
Messages
2 116 340
Membres
112 721
dernier inscrit
Ulricn