Fonction WITH

[TgR]

Bonjour à tous,

J'ai une petite question qui peut sembler facile à résoudre pour certains mais qui est actuellement en train de transformer mon cerveau en gruyère (d'appellation AOC).

Je vous explique :

J'ai sur une première feuille une userform qui me permet de faire une recherche multicritères. La base de donnée se situe sur la deuxième feuille.
Actuellement pour faire le lien entre les deux j'utilise la fontion with sheets("Bdd").select ce qui ne me convient pas puisqu'avec cette écriture la feuille 2 est sélectionnée et affichée.

J'aimerais que lorsque l'on clique sur le bouton "rechercher" la recherche s'effectue dans la feuille "Bdd" mais que cette dernière ne soit pas sélectionnée.

Je vous joins le fichier.

Merci à tous

 

[youky(BJ)]

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

 

[TgR]

Re : Fonction WITH

Salut,

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

 

[TgR]

Re : Fonction WITH

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

 

[youky(BJ)]

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

 

[TgR]

Re : Fonction WITH

Salut,

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

Merci d'avoir pris du temps pour moi 😉

 

[youky(BJ)]

Re : Fonction WITH

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