Récuperer text via inputbox

J'aime bien ta méthode pour remplir le tableau.
Mais, si j'ai plusieurs tableau, je voudrai les compter.

Pour l'instant je n'arrive pas à afficher le résultat du comptage.
J'ai déclarer ma variable comme suit :

Code:

---

1 2 3

Dim i As string i = ActiveDocument.Tables.Count

---

Il y a plusieurs idées sur differnts forum

Code:

---

1 2	Label1.Text = i.GetType.To String

---

Code:

---

1 2

MsgBox i

---

Quel est la meilleur?

Je vais étudier les liens que tu as envoyé
Merci d'avance

Re, Ca marche parfaitement avec

Code:

---

1 2 3 4

Dim i As string i = ActiveDocument.Tables.Count MsgBox i

---

L'autre m'éthode était sympas mais c'est déjà bien

Merci

Pourquoi aller voir ailleurs, tu n'est pas content de nos services :mouarf:

Trêve de plaisanteries, pour adresser une autre table, il suffit de lui donner un autre index

La première avec

Code:

---

ActiveDocument.Tables(1)

---

Les autres

Code:

---

ActiveDocument.Tables(X)

---

i dans ton cas.


Si tu veux toutes les parcourir c'est

Code:

---

1 2 3 4 5 6 7

Dim oTbl As Table   For Each oTbl In ActiveDocument.Tables   ... ... Next oTbl

---

Bonjour,

Cette méthode marche parfaitement.
Mais j'ai remarqué que cela modifie tous les tableau du document!! ;-(
Est ce que l'on peut remplir certains tableau et laisser les autre comme tel.

Derniere questions, mon userform s'ouvre à l'ouverture du document. Je voudrai fermet le userform et donc fermer le doc word. Est ce que cela est possible?

MErci d''avances

Salut,

Une boucle For Each Next va parcourir tous les objets de la collection. Mais c'est ce que j'avais écrit !

Si tu ne veux intervenir que sur certains tableaux, tu dois savoir lesquels et ne boucler que sur ces tableaux.

Merci Heureux-oli pour ces aides bien prcieuses.

Je sais sur quels tableau bouclé, mais j'ai l'impression que tous les tableaux sont appelé TAble.

Et la je suis bloqué.

Par rapport à la création d'un splash-screen dois je faire un nouveau sujet?

Merci d'avance.

Salut,

Il est recommandé de n'avoir qu'un seul sujet par message, donc fais un nouveau message pour le splash screen.

Pour ce qui est des tables, pour booucler sur les tables 1, 3, 5, 7

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim intI As Integer Dim oTbl As Table   intI = 0   For intI = 1 To 7 Step 2 Set oTbl = ActiveDocument.Tables(intI) ..... ..... ..... Next intI

---

Ok merci pour toutes ces information bien précieuse.