Fonction WITH

Re : Fonction WITH

Salut bien,
With machin
Signifie avec.... machin
Ensuite pour faire référence à machin on mets un point
exemple .range(" fera référence à la feuille machin
Donc pour ta macro pas besoin de selectionner et regarde les points

Private Sub CommandButton1_Click()
Dim k As Byte, i As Byte
k = 0


With Sheets("Bdd")
Me.ListBox1.Clear
If Me.Nom = "" Then Me.Nom = "*"
If Me.Prenom = "" Then Me.Prenom = "*"
If Me.DateNaiss = "" Then Me.DateNaiss = "*"

For i = 2 To .Range("A65536").End(xlUp).Row + 1
If .Cells(i, 1) Like "*" & Me.Nom & "*" _
And .Cells(i, 2) Like "*" & Me.Prenom & "*" _
And .Cells(i, 3) Like DateNaiss Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = .Cells(i, 1)
Me.ListBox1.List(k, 1) = .Cells(i, 2)
Me.ListBox1.List(k, 2) = .Cells(i, 3)
Me.ListBox1.List(k, 5) = i
k = k + 1
End If
Next i
End With
End Sub

Bruno

Re : Fonction WITH

Salut,

Merci pour ta réponse, hélas ça ne fonctionne pas ! :/

Re : Fonction WITH

Malgré toutes mes tentatives, il faut que la feuille BDD soit active sinon le code ne marche pas... 🙁

Re : Fonction WITH

Bonjour,
Les recherches sur le texte , nombre ou date ne s'effectue pas exactement de la même façon.
Like sur une date ne marchera pas car pour lui la date est une valeur numéric
Je te propose dans ce fichier une autre version de procéder
Tape exemple ......t dans mon petit textbox ou ...a
selectionne le nom dans la liste en dessous
Bruno

Re : Fonction WITH

Salut,

Ta solution est intéressante, je vais essayer de travailler tout ça.

Merci d'avoir pris du temps pour moi 😉

Re : Fonction WITH

Nouvelle solution qui permet toutes recherches par Nom ou Prénom ou date.
Seule la macro est différente
Bruno