Recherche par VBA

Bonjour a tous,

je me permet de venir à vous pour une petite question :

Je suis en train de monter mon arbre généalogique

Je me suis servi du fichier présent dans les cours et formation sur le champ de recherche par vba, celui-ci me convient presque parfaitement.

j'aurais juste voulu savoir :

- si je pouvais ajouter en affichage de résultat la date
- et sur le résultat, quand je clic sur le nom qui me convient, celui-ci s'affiche en E2 (derrière, tout est déjà fait par rechercheV

Je vous joins le fichier pour un peu plus de compréhension

Par avance, un grand merci :)

Bonjour,

Pour afficher le nom en E2, ajouter dans la feuille de code de la feuille "N" le code suivant :

Private Sub ListBox1_Click()
 Range("E2").Value = ListBox1.Value
End Sub

Pas compris le besoin concernant la date

A+

je me suis trompé ou très mal exprimé.

En fait dans la listbox, si je clic /selectionne un nom je voudrais que ce résultat se mette en E2
et concernant la date, quand je recherche un nom (par ex : jean claude), les résultats m'afficheront que les jean claude, donc pour etre un peu plus sur je voulais ajouté dans la listbox le champ date de naissance
j'ai fais un imprim ecran pour essayé d'etre encore + clair :)

Bonjour toutes et tous

coucou AlgoPlus

@Micsel

un début de réponse

• - double clic gauche sur la textbox1 de la feuille on supprime le contenu de cette textbox1 de la feuille N
• on clic sur la listbox1 de la feuille N ^{( lorsque la textbox1 de recherche a effectué une recherche)} s'affiche dans la cellule E2
• la cellule B2 de la feuille N couleur du texte blanc, reprend le contenu de ta textbox1 + la rechercheV de la cellule B3 donnera la date adéquate

ci-joint

Edit coucou, merci Ric

avec le code de Ric ci-joint:

crdlt,

André

Presque André
juste je souhaite que ca apparaisse dans le champs de recherche.
Comme montré dans l'imprim ecran, si plusieurs nom identique, l'idée c'est de pouvoir bien le choisir

Bonjour à tous,

Pour avoir aussi la date de naissance dans la listbox > 2 étapes ...

1- dans les propriétés de la listbox > mets "ColumnCount" à 2 ...

2- utilise ce code ...

Private Sub TextBox1_Change()
 Sheets("N").Range("b2").Value = TextBox1.Value
    Application.ScreenUpdating = False

    Range("A2:A100").Interior.ColorIndex = 2
    ListBox1.Clear
    Lboxligne = 0
    If TextBox1 <> "" Then
        For ligne = 2 To 100
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 43
                ListBox1.AddItem
                ListBox1.List(Lboxligne, 0) = Cells(ligne, 1).Value
                ListBox1.List(Lboxligne, 1) = Cells(ligne, 2).Value
            Lboxligne = Lboxligne + 1
            End If
        Next
    End If
End Sub

ric

re,

merci Ric -;)

ah c'est génial
merci beaucoup :)
tout fonctionne

André,
j'ai bien aimé le "double clic"

Re,

merci de ton retour, de rien avec plaisir -;)

crdlt,

André