Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Word recopie de valeurs de combobox dans un tableau word

recopie de valeurs de combobox dans un tableau word

3 réponses
Avatar
lomer
bonjours à tous
En Word j'ai fait 1 userform avec beaucoup de combobox. je souhaite copier
la valeur de ces combobox dans le tableau N°11 d'une page word
Afin de compacter le code je souhaite utiliser une boucle For....next
j'ai écri le code suivant mais il ne fonctionne pas (il n'y a pas de message
d'erreur à la construction et à l'utilisation mais rien ne s'inscrit dans le
tableau).
For i = 3 To 13
For k = 400 To 410
ActiveDocument.Tables(11).Cell(i, 1).Range =
UserForm1.Controls("Combobox" & k).Value
Merci par avance à qui pourra me dire où ce code bugg.
--
lomer
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JièL Goubert
Bonjoir© lomer

pas sur de comprendre, mais il semblerait que la boucle k ne soit pas
très utiles car vous ne mettez qu'un seul résultat dans la cellule i du
tableau...

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Le 19/04/2006 10:26 vous avez écrit... :
bonjours à tous
En Word j'ai fait 1 userform avec beaucoup de combobox. je souhaite copier
la valeur de ces combobox dans le tableau N°11 d'une page word
Afin de compacter le code je souhaite utiliser une boucle For....next
j'ai écri le code suivant mais il ne fonctionne pas (il n'y a pas de message
d'erreur à la construction et à l'utilisation mais rien ne s'inscrit dans le
tableau).
For i = 3 To 13
For k = 400 To 410
ActiveDocument.Tables(11).Cell(i, 1).Range =
UserForm1.Controls("Combobox" & k).Value
Merci par avance à qui pourra me dire où ce code bugg.


Avatar
Corona
Bonjour Lomer,
Comme l'a justement écrit Jièl, il y a une boucle de trop.
Si j'ai bien compris tu veux placer à la ligne 3 tu tableau 11 la valeur
de la ComboBox 400 et ainsi de suite (cad 3 + 397 = 400).
Donc ton code doit être
For i = 3 To 13
ActiveDocument.Tables(11).Cell(i, 1).Range =
UserForm1.Controls("Combobox" & i + 397).Value
next
Philippe
"lomer" a écrit dans le message de news:

bonjours à tous
En Word j'ai fait 1 userform avec beaucoup de combobox. je souhaite copier
la valeur de ces combobox dans le tableau N°11 d'une page word
Afin de compacter le code je souhaite utiliser une boucle For....next
j'ai écri le code suivant mais il ne fonctionne pas (il n'y a pas de
message
d'erreur à la construction et à l'utilisation mais rien ne s'inscrit dans
le
tableau).
For i = 3 To 13
For k = 400 To 410
ActiveDocument.Tables(11).Cell(i, 1).Range > UserForm1.Controls("Combobox" & k).Value
Merci par avance à qui pourra me dire où ce code bugg.
--
lomer


Avatar
lomer
ca marche
effectivement la boucle k était en trop
merci beaucoup à vous deux
--
lomer



Bonjour Lomer,
Comme l'a justement écrit Jièl, il y a une boucle de trop.
Si j'ai bien compris tu veux placer à la ligne 3 tu tableau 11 la valeur
de la ComboBox 400 et ainsi de suite (cad 3 + 397 = 400).
Donc ton code doit être
For i = 3 To 13
ActiveDocument.Tables(11).Cell(i, 1).Range =
UserForm1.Controls("Combobox" & i + 397).Value
next
Philippe
"lomer" a écrit dans le message de news:

bonjours à tous
En Word j'ai fait 1 userform avec beaucoup de combobox. je souhaite copier
la valeur de ces combobox dans le tableau N°11 d'une page word
Afin de compacter le code je souhaite utiliser une boucle For....next
j'ai écri le code suivant mais il ne fonctionne pas (il n'y a pas de
message
d'erreur à la construction et à l'utilisation mais rien ne s'inscrit dans
le
tableau).
For i = 3 To 13
For k = 400 To 410
ActiveDocument.Tables(11).Cell(i, 1).Range > > UserForm1.Controls("Combobox" & k).Value
Merci par avance à qui pourra me dire où ce code bugg.
--
lomer