Recherche multiple
Bonsoir a tous,
j'ai déjà essayer d'avoir une réponsse sur ce sujet, mais je n'ais pas encore réussi à mettre en place un formulaire de recherche pour ma base de données.
Mon classeur excel fait environs 20 onglets avec 100 lignes de données à exploiter. J'ai déjà reussi a faire pas mal de chose dessus mais je bute sur la page de recherche.
La page clients est alimenter automatiquement par les nombreuses pages, et je voudrais pouvoir faire une recherche dans cette base.
J'ai vu passer un truc userform qui correspond a peu prés a ce que je veux mais avec moins d'options, je souhaite juste que cela m'affiche les clients, ainssi que ceux qui portent le meme nom de famille.
je joint un exemple du tableau avec les en-téte de colonne. Merci de votre aide
bonjour
y sont tous morts ???
cordialement
dsl, revoila une copie avec des données
Bonjour,
tulipe_4 a écrit :y sont tous morts ???
cordialement
non, dans ce cas, on dit : « mes condoléances »
Bonjour,
Option Compare Text
Dim f, choix1()
Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Set Rng = f.Range("A2:L" & f.[A65000].End(xlUp).Row)
choix1 = Rng.Value
Me.ListBox1.List = choix1
End Sub
Private Sub TextBox1_Change()
Dim b()
tmp = "*" & Replace(Me.TextBox1, " ", "*") & "*"
n = 0
For i = LBound(choix1) To UBound(choix1)
If choix1(i, 1) Like tmp Or choix1(i, 2) Like tmp Or choix1(i, 5) Like tmp Or choix1(i, 7) Like tmp Then
n = n + 1: ReDim Preserve b(1 To 7, 1 To n)
b(1, n) = choix1(i, 1): b(2, n) = choix1(i, 2): b(3, n) = choix1(i, 3): b(4, n) = choix1(i, 4): b(5, n) = choix1(i, 5): b(7, n) = choix1(i, 7)
End If
Next i
If n > 0 Then Me.ListBox1.Column = b Else Me.ListBox1.Clear
End SubBoisgontier