champs memo en colonnes [Résolu]

[amarchal]

Bonjour,

J'ai cherché et pas trouvé de solution à ce problème

Dans une table j'ai un champ MEMO qui comprend par exemple 20 lignes

Dans un formulaire je voudrais créer un contrôle présentant ces 20 lignes sous forme de tableau de 4 colonnes et 5 lignes

Cela est-il possible ?

Si oui avec quel contrôle et comment le remplir ?

Merci de vos réponses

AM

[Philippe JOCHMANS]

Bonjour

Envoyé par amarchal

Dans un formulaire je voudrais créer un contrôle présentant ces 20 lignes sous forme de tableau de 4 colonnes et 5 lignes

Peux-tu donner un exemple de ce que tu as dans le champ mémo et comment tu veux la séparation, selon quels critères ?

Philippe

[amarchal]

Bonjour

j'ai ds le champ memo

400 g carottes
150 g chair d'avocat
1/2 gousse ail
2 échalotes
5 cuillères soupe de lait d'amande
Huile d'olive
Cumin ou curry
1 jus de citron
1 botte de cresson
Feuilles de chicorée ou fanes de carotte


je voudrais ds mon contrôle
400 g carottes____________5 cuillères soupe de lait d'amande
150 g chair d'avocat_______Huile d'olive
1/2 gousse ail____________Cumin ou curry
2 échalotes______________Feuilles de chicorée ou fanes de carotte

les"_" ne sont la que pour pouvoir présenter ma disposition

ceci pouvant être sur 3 ou 4 colonnes

Merci de vous intéresser a mon problème


AM

[Philippe JOCHMANS]

Re

Voici un exemple que je viens de faire :

Une table (LaTable) avec un Champ (LeChamp)

Un formulaire avec un zone de liste (LaListe) et un bouton de commande (LeBouton).

Voici le code sur le clique du bouton :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub LeBouton_Click()
    ' éclatage d'un champ mémo
 
    ' déclaration
    Dim tabMemo() As String     'création d'un tableau qui récupérera les données
    Dim strListe As String      ' pour remplir la zone de liste
 
    ' éclatage
    tabMemo = Split(DLookup("LeChamp", "LaTable"), vbCrLf)
 
    ' réunification
    strListe = Join(tabMemo(), ";")
 
    ' remplissage de la zone de liste
    With Me.LaListe
        .ColumnCount = 2                'ici on a deux colonnes
        .RowSourceType = "Value List"   ' la source de la liste est une chaine
        .RowSource = strListe
        .Requery
    End With
 
End Sub

Le principe est d'éclater les données du champ mémo avec la fonction Split et comme séparateur le retour chariot, cela est éclaté dans un tableau.

Ensuite on crée un chaîne de ce tableau avec la fonction Join, que l'on met en source de la liste qui ici comprend deux colonnes.

Il s'agit d'un exemple à adapter à ton cas.

Philippe

[amarchal]

Bonjour

Un grand merci
Ca fonctionne SUPER

AM