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

Réponses
15
Affichages
1 K

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024