[WD-2003] "boucler" textbox vers signet

[8e8eClo]

Bonjour,

J'ai un userform qui comprend plusieurs textbox.
Mon document word comprend autant de signets que de textbox.
Les textbox sont libellés ainsi textbox1, textbox2, ... et les signets ainsi signet1, signet2,...

Je pensais boucler le tout avec des "for i=i+1" un truc du genre mais je n'y arrive pas.
J'ai des bribes de code :

Code :

1
2
dim i as integer
For i = 1 to 40 '40 étant le nombre de signets. C'est ça ?

J'aimerais faire appel à cette macro pour le remplissage des signets :

Code :

1
2
3
4
5
6
7
8
Sub BookmarkNewValue(ByVal NomSignet As String, ByVal NouvelleValeurSignet As String)
If ActiveDocument.Bookmarks.Exists(NomSignet) Then
ActiveDocument.Bookmarks(NomSignet).Select
Selection = NouvelleValeurSignet 'le bug est ici... le remplacement de la valeur supprime le signet
Selection.Bookmarks.Add Name:=NomSignet, Range:=Selection.Range
Selection.MoveRight Unit:=wdCharacter, Count:=1
End If
End Sub

Si quelqu'un pouvait m'aider à tout assembler

Merci

[Heureux-oli]

Salut,

Il faut concaténer le nom du controle ou le nom du signet et la valeur de I

Voilà un exemple de boucle sur les contrôles :

Code :

1
2
3
4
Dim intI As Integer
For intI = 1 To 3
Me.Controls.Item("TextBox" & intI) = "Oli " & intI
Next intI

[8e8eClo]

Bonjour,

Merci pour cette réponse.
Cependant elle ne répond pas à mes attentes. Je me suis sans doute mal exprimé.
En effet, avec le code fourni, quand je clique sur "ok" dans l'USF mes textbox affiche "signet1", "signet2", ...
Or j'aimerais que le contenu de mes textbox soit renvoyé vers les signets du document.

J'utilise actuellement ce code :

Code :

1
2
3
4
 
Bookmarknewvalue "signet1", Me.textbox1
Bookmarknewvalue "signet2", Me.textbox2
...

Mais c'est trop long à coder.

[Heureux-oli]

Salut,

Pour l'envoi vers le document, c'est :

Code :

ActiveDocument.Bookmarks(NomSignet).range.text = NouvelleValeurSignet

Par contre, pour UserForm, sans aucune ligne de code, pas possible de dire d'où vient l'erreur.

[8e8eClo]

Bonjour,

Bon, je reprends.

Dans mon USF j'ai ce code :

Code :

1
2
3
4
Private sub commandbutton1_Click()
Bookmarknewvalue "signet1", Me.textbox1
Bookmarknewvalue "signet2", Me.textbox2
end sub

Et dans un module j'ai ce code :

Code :

1
2
3
4
5
6
7
8
Sub BookmarkNewValue(ByVal NomSignet As String, ByVal NouvelleValeurSignet As String)
If ActiveDocument.Bookmarks.Exists(NomSignet) Then
ActiveDocument.Bookmarks(NomSignet).Select
Selection = NouvelleValeurSignet 'le bug est ici... le remplacement de la valeur supprime le signet
Selection.Bookmarks.Add Name:=NomSignet, Range:=Selection.Range
Selection.MoveRight Unit:=wdCharacter, Count:=1
End If
End Sub

Ce système fonctionne bien.
Je voudrais juste éviter à avoir à écrire 30 fois la même chose car 30 textbox pour 30 signets.

Merci

[Heureux-oli]

Envoyé par Heureux-oli

Salut,

Il faut concaténer le nom du controle ou le nom du signet et la valeur de I

Voilà un exemple de boucle sur les contrôles :

Code :

Tu me dit que ce n'est pas ça que tu cherches ??

Or, c'est une boucle sur les TextBox d'un userform, je n'en ai mis que trois dans mon UF de 1 à 3.

Tu me dis que tu souhaites injecter dans un signet le contenu des TextBox, je donne le code à utiliser dans ta fonction :

Code :

 ActiveDocument.Bookmarks(NomSignet).range.text = NouvelleValeurSignet

c'est toujours pas ce que tu cherches !

je suis un peu perdu.