Discussion :

[vbword]

Bonjour.

Voilà sur une macro Word, j'ai trois champs de saisie associés.

- Un premier qui est une listbox avec des choix divers.
- Le second qui est un champ dans lequel vient s'agrémenter le choix de la listbox en vue de pouvoir le modifier.
- Le troisième est un champ dans lequel en multiligne viendrai s'agrémenter chaque choix les uns en dessous des autres après avoir fait Entrée quand on est dans le second champ.

Pour la listbox c'est bon je sais comment la configurer avec les choix en UserForm_Initialize.
Une fois cliqué sur le choix je sais l'agrémenter dans le second champ.
Là où ça se gate c'est pour le faire passer dans le troisième champ en faisant Entrée, et que les suivants s'agrémentent aussi en dessous le précédent et ainsi de suite ...

Donc si quelqu'un a compris et a de quoi m'aider ... merci d'avance

[Heureux-oli]

Salut,

Dans les propriétés de ton TextBox, tu dois mettre la propriété Multiline sur True, par défaut elle est sur False.

Ensuite, pour chaque choix de ton ListBox, tu dois ajouter

Code :

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

1
2
 
Me.TextBox1.Value = Me.TextBox1.Value & vbCrLf & Me.ComboBox1.Value

[vbword]

Merci pour ta réponse, mais ça ne fonctionne pas ...

Je n'ai pas mis assez d'informations :
- j'ai une listbox1 dans laquelle j'ai plusieures informations pour choix
- j'ai ensuite une textbox1 dans laquelle vient s'agrémenter un choix de la listbox une fois qu'on à cliqué dessus. Une fois dans cette textbox
- et enfin j'ai une textbox2 dans laquelle vont venir s'agrémenter les différents choix validés dans la textbox1 ... en guise d'archive

Donc en fait il me faut les scripts pour associer tous ces éléments entre eux

Dans l'ordre en partant de haut en bas
- Textbox2
- Lsitbox1
- Textbox1

Merci d'avance

[Heureux-oli]

Salut,

Et où est le problème ?

As-tu coché le multilignes ?

La concaténation peut se faire sur autant de champs que l'on souhaite, mais dans ton cas un à la fois.

Sur l'évènement AfterUpdate des différents contrôles

Code :

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

Me.TextBox1 = Me.TextBox1 & " " & Me.lecontrole.Value

[vbword]

Donc ...

Oui j'ai bien mis le multiligne et True.

Le problème est que dans ma listbox, j'ai des choix configurés en UerForm_Initialize.
Quand je sélectionne un choix, je veux qu'il passe dans la plus petite fenêtre pour pouvoir être modifie si besoin. Et ensuite en appuyant sur la touche Entrée du clavier, ce texte passe dans la plus grande fenêtre pour archive.
Ensuite en sélectionnant un autre choix, il vienne dans la plus petite fenêtre, et en appuyant sur la touche Entrée du clavier, ce texte passe dans la plus grande fenêtre pour archive, en seconde ligne, et ainsi de suite ... dans l'absolue de manière illimitée.
Et c'est la combinaison des trois que je n'arrive pas à confirgurer.

Si besoin le document word peut-être fournit

Merci d'avance

[Heureux-oli]

Salut,

C'est juste le contrôle de destination qui change et un petit code sur le bouton OK.

Code :

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

1
2
 
Me.MonPetitControle = Me.TextBox1.Value

sur le OK :

Code :

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

Me.MonGrandContrle = Me.MonGrandContrle & vbcrlf & me.monpetitcontrole

[vbword]

Et encore une fois pas déçu ...

Encore merci à toi ...

[vbword]

Ah si ... il me manque un truc

Quand je clique sur OK, ce qui est saisi dans monpetitcontrole va dans mongrandcontrole, ça c'est bon.
Mais je voudrais que celà efface dans la foulée ce qui est dans monpetitcontrole

Merci d'avance

----------------------------------------------------------------------

Bon j'ai répondu tout seul à ma question

Dans le script du bouton de commande OK, il suffit de rajouter

Code :

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

txtchoix1 = ""

Voici donc mes deux lignes de script

Code :

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

1
2
3
4
Private Sub cmdOK1_Click()
txtcr1 = txtcr1 & vbCrLf & txtchoix1
txtchoix1 = ""
End Sub

Code :

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

1
2
3
Private Sub ltbtexte1_Click()
txtchoix1.Value = ltbtexte1.Value
End Sub