Recherche par montant ou par date - Filtre Avancé TxtBox VBA

Bonjour,

Je viens vous demander de l'aide car après plusieurs jours de recherche sur internet je ne trouve pas ma solution.

Comme beaucoup de monde, je débute en VBA et j'apprends sur le tas.

J'ai créé un formulaire qui m'affiche les données selon un critère de recherche.

Quand il s'agit d'un texte cela fonctionne très bien avec les "*"

Cependant, lorsque je saisie une donnée chiffrée (exemple date ou un montant) ma recherche ne fonctionne pas

J'ai une combobox avec une liste définie (semaine - date - Description - montant - statut - Banque) qui fonctionne très bien si je saisie un texte dans la Textbox

Mais quand je selectionne "semaine", "date" ou "montant" dans ma combobox, et que je saisie une valeur chiffrée dans ma Textbox ALORS aucune donnée n’apparaît

Je vous enverrai bien le fichier excel mais il est extrêmement lourd.

Je vous envoie donc la partie du code que j'ai pu faire.

Merci par avance pour votre aide

Private Sub BtnRecherche_Click()

Application.DisplayAlerts = False

Dim PlgF, i%

If CboBox1.ListIndex > -1 And TxtCherche.Value <> "" Then

With [Criteres]

.Cells(1, 1) = CboBox1.Value

.Cells(2, 1) = "*" & TxtCherche.Value & "*"

End With

FiltreData

With [Décaler_Données]

If .Rows.Count > 1 Then

PlgF = .Offset(1).Resize(.Rows.Count - 1).Value

Else

MsgBox "Aucune correspondance trouvée", vbInformation, "FiltreData"

End If

End With

With ListBox_Recherche

If UBound(PlgF) > 1 Then

.List = PlgF

Else

.AddItem PlgF(1, 1)

For i = 1 To 4

.List(0, i) = PlgF(1, i + 1)

Next i

End If

End With

Else

MsgBox "Définir les critères de filtrage !", vbExclamation, "FiltreData"

End If

Application.DisplayAlerts = False

End Sub

capture

Bonjour et bienvenue,

un fichier excel serait plus pertinent qu'une image

Personnellement je n'aime pas utiliser des userform si c'est ton cas ici ...

Quand j'ai une recherche à faire, j'utilise le filtre avancé

Le code est léger, et encore ici les 2/3 sont juste là pour construire un menu déroulant à partir de la BdD ce qui n'est pas toujours le cas.

Merci pour votre réponse mais cela ne répond pas à mon problème

Bonjour,

Exemple: Recherche BD (choix de la colonne de recherche & recherche intuitive)

Boisgontier

Bonjour,

Exemple: Recherche BD (choix de la colonne de recherche & recherche intuitive)

Boisgontier

Cette autre façon de faire a l'air super, je vais essayer de voir si cela fonctionne avec mon projet

Je vous reviens d'ici peu

Merci d'avoir pris le temps de m'aider

Bonjour,

Avec votre fichier

Boisgontier

Bonjour,

Avec votre fichier

Boisgontier

Bonjour,

C'est un énorme travail que vous m'avez fourni

C'est exactement ce que je voulais

Je vous remercie bcp d'avoir pris le temps de m'aider

Je vais pouvoir finaliser mon projet grace à vous

Un Grand Merci !

Rechercher des sujets similaires à "recherche montant date filtre avance txtbox vba"