Bonjour, les amis. 

J'ai une zone liste (MaListe) provenant d'une table, je sélectionne un champ puis je clique sur un bouton (MaZoneDeTexte = MaListe.Column(0))  le texte apparaît dans une zone texte (MaZoneDeTexte). Je veux ajouter un nouveau champ, malheureusement le premier disparaît ! Donc comment faire pour ajouter plusieurs champs de la zone de liste dans une même zone de texte ?

Merci

Bonjour,

Merci Si Yassine, pour avoir répondu à ma question. Je n'arrive pas à appliquer ta réponse, où dois-je écrire le code, j'ai essayé plusieurs solutions sans résultats.

Merci

Bonjour Si Yassin

Grace à un autre internaute nopus avons progressé le code « MaZoneDeText.Value = MaZoneDeText.Value & MaListe.Column(0) » fonctionne très bien. Je voudrais être plus gourmand. Comme faire pour que le curseur se place au niveau d'une nouvelle ligne lorsque j'ajoute du texte, car actuellement les mots sont ajoutés sans espace entre eux. Merci

Les amis bonjour, Si Yassine bonjour,

Grâce à LatelyGreek le problème est résolu : « MaZoneDeText.Value = MaZoneDeText.Value & vbCrLf & MaListe.Column(0) ».

En plus en posant ces questions j'ai pu anticiper sur certaines de mes questions futures. A plus

Bonjour à tous,

Le problème est résolu : il faut créer une zone texte (txtRech Auteur), une zone de liste (lstResults) dont la source est une table (Source), un bouton BValider pour valider la recherche et un bouton BReinitiliase qui rafraîchi la zone de texte et la liste. Le code VB est le suivant :

1- Private Sub BValider _Click()

RefreshQuery

End Sub

2- Private Sub BReinitiliase _Click()

txtRechAuteur.Value = " "

Me.lstResults.RowSource = "SELECT CodSource, Titre, Auteur FROM Source;"

Me.lstResults.Requery

End Sub

3- Private Sub Form_Load()

'Les propriétés de la zone de liste sa source et sa requete

Me.lstResults.RowSource = "SELECT CodSource, Titre, Auteur FROM Source;"

Me.lstResults.Requery

End Sub

4- Private Sub RefreshQuery()

'Propocedure de Moteur de recherche

 Dim SQL As String

 Dim SQLWhere As String

 SQL = "SELECT CodSource, Titre, Auteur FROM Source Where Source!CodSource <> 0 "

    SQL = SQL & "And Source!Auteur like '*" & Me.txtRechAuteur & "*' "

 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

 SQL = SQL & ";"

 Me.lstResults.RowSource = SQL

 Me.lstResults.Requery

End Sub

Maintenant si quelqu'un peut m'aider à trier cette zone de liste, cela serait excellent !