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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
S
SassaMo
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 21 mars 2020
Version d'Excel : office 365

Message par SassaMo » 21 mars 2020, 18:17

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.GIF
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'979
Appréciations reçues : 881
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 21 mars 2020, 18:44

Bonjour et bienvenue,

un fichier excel serait plus pertinent qu'une image

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'979
Appréciations reçues : 881
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 21 mars 2020, 20:44

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.
filtre menu deroulant onglet séparé.xlsm
(310.16 Kio) Téléchargé 5 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
S
SassaMo
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 21 mars 2020
Version d'Excel : office 365

Message par SassaMo » 21 mars 2020, 21:27

Merci pour votre réponse mais cela ne répond pas à mon problème
B
Boisgontierjacques
Membre fidèle
Membre fidèle
Messages : 470
Appréciations reçues : 109
Inscrit le : 5 octobre 2018
Version d'Excel : 2016

Message par Boisgontierjacques » 22 mars 2020, 15:34

Bonjour,

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



Boisgontier
Copie de RechercheBD4Intuitif.xls
(353.5 Kio) Téléchargé 6 fois
S
SassaMo
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 21 mars 2020
Version d'Excel : office 365

Message par SassaMo » 22 mars 2020, 15:53

Boisgontierjacques a écrit :
22 mars 2020, 15:34
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
B
Boisgontierjacques
Membre fidèle
Membre fidèle
Messages : 470
Appréciations reçues : 109
Inscrit le : 5 octobre 2018
Version d'Excel : 2016

Message par Boisgontierjacques » 23 mars 2020, 11:09

Bonjour,

Avec votre fichier

Boisgontier
RechercheBDIntuitifTextBox.xlsm
(55.06 Kio) Téléchargé 10 fois
RechercheBDIntuitifComboBox.xlsm
(61.16 Kio) Téléchargé 11 fois
1 membre du forum aime ce message.
S
SassaMo
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 21 mars 2020
Version d'Excel : office 365

Message par SassaMo » 24 mars 2020, 20:29

Boisgontierjacques a écrit :
23 mars 2020, 11:09
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 !
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message