Microsoft 365 Recherche plusieurs données

azerty64 · 1 Avril 2021

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

sylvanu · 1 Avril 2021

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

djidji59430 · 1 Avril 2021

Bonjour à tous,

Avec un TCD (d'un usage très souple !), que tu arranges a ta guise !

Crdlmt

sylvanu · 1 Avril 2021

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

azerty64 · 7 Avril 2021

Bonjour @djidji59430 et @sylvanu

Je vous remercie pour vos réponses !
Vous avez répondu à ma demande, vos idées me conviennent totalement.
Merci

Cdt,
azerty64

Microsoft 365 Recherche plusieurs données

azerty64

XLDnaute Junior

Pièces jointes

sylvanu

djidji59430

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

azerty64

XLDnaute Junior

Discussions similaires