recherche par nom et prénom

[ExcelDZ]

Bonjour,
recherche par nom et prénom
je veux chercher quelqu'un d'une liste par son nom et prénom
pour faire de ces donner en (inscription) un petite carte dans (Recherche)

 

[Hieu]

Re : recherche par nom et prénom

Salut,

Voilà une première solution :

Avec recherche par nom.
J'me suis permis de mettre une liste dans la cellule en question pour être sûr de ne pas se tromper sur l'écriture.

++
Hieu

 

[BOISGONTIER]

Re : recherche par nom et prénom

Bonjour,

Avec recherche intuitive type Google par Nom+Prénom(on peut frapper les premières lettres du nom ou du prénom)

Private Sub UserForm_Initialize()
  Set f = Sheets("BD")
  tblBD = Range("A2:G" & [A65000].End(xlUp).Row).Value      ' BD
  n = f.[A65000].End(xlUp).Row - 1
  ReDim choix1(1 To n)
  For i = 1 To n
   choix1(i) = tblBD(i, 1) & " " & tblBD(i, 2)
  Next i
  Me.ChoixNom.List = choix1
End Sub

Private Sub Choixnom_Change()
  If Me.ChoixNom.ListIndex = -1 And IsError(Application.Match(Me.ChoixNom, choix1, 0)) Then
   Me.ChoixNom.List = Filter(choix1, Me.ChoixNom.Text, True, vbTextCompare)
   Me.ChoixNom.DropDown
  Else
    ChoixNom_click
  End If
End Sub

Private Sub ChoixNom_click()
 'on récupère tous les champs
 For i = 1 To UBound(choix1)
  If tblBD(i, 1) & " " & tblBD(i, 2) = ChoixNom Then
    ligneEnreg = i
    Me.Controls("TextBox1") = tblBD(ligneEnreg, 1)
    Me.Controls("TextBox2") = tblBD(ligneEnreg, 2)
    For k = 3 To 7
        Me.Controls("TextBox" & k) = tblBD(ligneEnreg, k)
      Next k
    End If
  Next i
End Sub

JB

 

[JHA]

Re : recherche par nom et prénom

Bonjour à tous,

Un essai par formules

JHA

 

[ExcelDZ]

Re : recherche par nom et prénom

bonjour
excellent travail
Je vous remercie beaucoup pour votre aide