Microsoft 365 Extractions de données avec plusieurs critères de recherches

Deadpool_CC à dit:

pour reformuler ma compréhension de la demande

dans une "Feuil2" en A1 ont a une liste déroulante avec les prénoms des pères (colonne C) et en B1 une liste déroulante des noms de la mère (Colonne F). l'utilisateur fait un choix pour les deux et on copie sur la feuil2 toutes les données des lignes de la feuil1 pour lesquelles la correspondance des 2 critères est vérifiée ... (critère 1 ET critère 2 vérifiés).
c'est bien cela ?

ps: j'avais pas vu l'heure ..; je repasse demain pour votre réponse.

Cliquez pour agrandir...

fanfan38 à dit:

Bonjour et bienvenu sur Excel Downloads

Ci joint ma solution
on peut ensuite en cliquant sur une ligne du listbox remplir une ligne...

A+ François

Cliquez pour agrandir...

Thierry29280 à dit:

Bonsoir
Oui c'est ça dans l'idée générale. Mais en relisant ce que vous avez noté en demande je m'apercois que j'ai fais une erreur, il me faut le Nom (colonne B), les prénoms des pères (colonne E et pas C) et nom de la mère (colonne F) si possible d'avoir les 3, sinon ne faire que colonne B et F
Pas de souci, je ne suis pas au jour près.

Merci encore de votre aide

Cliquez pour agrandir...

Thierry29280 à dit:

Bonsoir
Je trouve bien votre solution, elle peut sans doute être améliorer, je vais déjà voir comment c'est réaliser pour intégrer le Nom en colonne B en plus des 2 autres critères.

Merci en tout cas de votre aide
Bonne soirée

Cliquez pour agrandir...

fanfan38 à dit:

Bonjour

VB:

Sub aff_listbox()
  Dim c As Range, firstAddress As String, j As Byte 'déclaration des variables
    Me.ListBox1.Clear 'on efface le listbox
    Me.ListBox1.ColumnCount = [T_data].Columns.Count 'on affecte le nombre de colonne
    With [T_data[Prénom père]] 'avec la base de données T_Data dans la colonne Prénom père
        Set c = .Find(Me.ComboBox1, LookIn:=xlValues, lookat:=xlWhole) 'on recherche le combobox1
        If Not c Is Nothing Then 'si trouvé
            firstAddress = c.Address 'on enregistre l'adresse
            Do'boucle
'si nom de la mere identique au combobox2
             If [T_data[Nom mère]].Item(c.Row - 1) = Me.ComboBox2.Value Then
               Me.ListBox1.AddItem [T_data].Item(c.Row - 1, 1) 'on ajoute au listbox la ligne
               For j = 1 To [T_data].Columns.Count - 1
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, j) = [T_data].Item(c.Row - 1, j + 1)
               Next
             End If
             Set c = .FindNext(c) 'on continue la recherche du prenom du pere
             If c.Address = firstAddress Then Exit Do 'si on revient à la premiere adresse on quitte
            Loop While Not c Is Nothing 'tant que l'on trouve le prenom du pere on continue la boucle
        End If
    End With
End Sub

A+ François

Cliquez pour agrandir...

• est égal à
• contient
• liste contient tous
• liste contient certains
• commence par
• finit par
• supérieur à
• inférieur à