Discussion :

[Jiben59]

Bonjour la communauté,

je me tourne vers vous pour savoir comment on peut insérer une "rechercheV" dans un formulaire.

J'ai créé un formulaire qui permet de retrouver chaque enregistrement en fonction de sous journal.
Je souhaiterais mettre en place une "rechercheV" pour que quand je me place dans "Sélectionnez un nom de sous journal" dès que je tape par exemple "c" qu'il me fait ressortir dans la barre de défilement tous les intitulés comportant un "c"
Voici une capture d'écran de mon formulaire pour mieux comprendre mon problème :


Dans ce cas si je tape "c", je souhaite obtenir que les libellés comportant une lettre c soit Crédit consommation, Frais bancaire, Cadeaux, Grande Surface, Petit commerçant...Je vous remercie chaque personne qui m'aidera à trouver une solution.

Bonne journée à vous.

Bien cordialement.

[marot_r]

Bonjour.

Les listes déroulantes ne fonctionnent pas "naturellement" comme cela.

il faut faire un peu de VBA et définir la source.

Pour la source, il faut quelque chose qui ressemble à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select [TaSource].* from [TaSource] where [TaTable].[TonChamp] like "*" & [Forms]![TonFormp]![TaListe].[Text] & "*"

Cela va te donner la liste des données qui contienne la chaîne tapée.

Pour le code, il faut mettre dans la procédure événementielle associée à l'événement SurChangement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.TaListe.Requery

Cela va forcer access à mettre à jour ta liste à chque fois que tu tapes une lettre.

A+

[Jiben59]

Bonjour marrot_r,

je te remercie pour ta réponse.

Il faut savoir que je suis un débutant, et j'essaie seulement de comprendre le VBA.

Donc le code, il faut le rentrer dans un module nouveau qui correspond au nom de la source ou il faut seulement intégrer le code dans la ligne "source contrôle" de la zone de texte du formulaire ?

Désolé de te déranger pour ces questions stupides.

Encore merci pour ton aide.

Bien cordialement,
Benjamin.

[Invité]

Bonjour,
Nous sommes dans un forum Access et rechercheV c'est Excel!

Parle t'on bien Access? Si oui ta liste est elle lier à une requête? Si oui utilises la propriété Filter!

[Jiben59]

Bonjour,
Nous sommes dans un forum Access et rechercheV c'est Excel!

Parle t'on bien Access? Si oui ta liste est elle lier à une requête? Si oui utilises la propriété Filter!

Bonjour,

oui on parle bien d'Access, je suis avec vous, je n'ai pas utilisé le mot correct pour décrire ma demande mais le but c'est quand je tape dans ma zone de texte des lettres seuls les intitulés ayant cette lettre apparaissent comme indiqué dans mon exemple.

Je crois que le code de marot_r est correct, il me faut simplement savoir comment le placé car je recherchais un code via "*".

Merci pour votre aide.

[jj4822]

Bonjour.

Dans la feuille de propriete de la liste deroulante, onglet "Evenement", Sur la ligne "Sur Entrée" (je pense que c'est le mieux mais il y a peut etre une meilleur choix), on selectionne [Procédure événementielle] et on clique sur les "...".

Selon moi, on peut faire la procedure suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim Requete As String
Requete = "select [nommonchamp] from [matable] where [nommonchamp] like '*" & Me!Nomlistedechoix & "*'"
    Me!Nomlistedechoix.RowSource = Requete

Comme les listes deroulantes affichent de suite le 1er texte commencant par la lettre saisie, il faut supprimer tout ce qui vient apres la lettre saisie puis "TAB" pour sortir du champ pour que le champ soit mis a jour. En selectionnant la fleche dans le champ, on a effectivement les mots contenant la lettre saisie.

Cdlt
Jean

[Jiben59]

Bonjour.

Dans la feuille de propriete de la liste deroulante, onglet "Evenement", Sur la ligne "Sur Entrée" (je pense que c'est le mieux mais il y a peut etre une meilleur choix), on selectionne [Procédure événementielle] et on clique sur les "...".

Selon moi, on peut faire la procedure suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim Requete As String
Requete = "select [nommonchamp] from [matable] where [nommonchamp] like '*" & Me!Nomlistedechoix & "*'"
    Me!Nomlistedechoix.RowSource = Requete

Comme les listes deroulantes affichent de suite le 1er texte commencant par la lettre saisie, il faut supprimer tout ce qui vient apres la lettre saisie puis "TAB" pour sortir du champ pour que le champ soit mis a jour. En selectionnant la fleche dans le champ, on a effectivement les mots contenant la lettre saisie.

Cdlt
Jean

Bonsoir Jean,

merci pour ton aide.

Alors j'ai implanté ta formule comme indiqué sauf que je n'ai plus de texte dans ma liste déroulante.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Requete As String
Requete = "select [ListeNomSsJrnl] from [SousJournal] where [ListeNomSsJrnl] like '*" & Me!ListeNomSsJrnl & "*'"
    Me!ListeNomSsJrnl.RowSource = Requete

Pour information :
ListeNomSsJrnl = Nom de la liste déroulante
SousJournal = Nom de la table où on retrouve les noms des sous journaux

Ci-joint en capture d'écran mon formulaire :


En espérant de ne pas avoir fait une grosse erreur.

Bonne soirée à vous.

Bien cordialement,
Benjamin.

[jj4822]

Bonsoir.

Quel est le nom du champ utilise dans la table "SousJournal" pour alimenter la liste du formulaire ? Est-ce "ListeNomSsJrnl" ?


Cdlt.
Jean