Code VBA Utiliser UserForm et incrementation de tableau Word

Bonjour,

Je me lance dans la programmation sous VBA. J'ai réalisé un UserForm sous Word et j'aimerai me servir des données saisies dans le UserForm pour les intégrer à un tableau word.

Il faudrait pouvoir ajouter une ligne à ce tableau pour intégrer les données saisies à chaque validation du USerForm.

Pour l'instant, j'arrive à intégrer mes données sur une ligne dans lequel j'ai intégrer des bookmarks mais lorsque j'ajoute une ligne au tableau les bookmarks ne suivent pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Private Sub Valider_Click()   Dim x As Integer ActiveDocument.Tables(8).Rows.Add x = ActiveDocument.Tables(8).Rows.Count ActiveDocument.Tables(8).Rows(x - 1).Range.Copy ActiveDocument.Tables(8).Rows(x).Range.Paste   With ActiveDocument .Bookmarks("TextRef").Range.Text = TextRef.Value .Bookmarks("TextActivite").Range.Text = TextActivite.Value .Bookmarks("TextRessource1").Range.Text = ComboBox1.Value .Bookmarks("TextRessource2").Range.Text = TextDefinitionRessource.Value .Bookmarks("TextPeril1").Range.Text = ComboBox2.Value .Bookmarks("TextPeril2").Range.Text = TextBox1.Value .Bookmarks("TextObjectif").Range.Text = ComboBox3.Value .Bookmarks("TextGravite").Range.Text = ComboBox4.Value .Bookmarks("TextFrequence").Range.Text = ComboBox5.Value .Bookmarks("TextCriticite1").Range.Text = TextCriticiteBrute.Value .Bookmarks("TextMaitrise1").Range.Text = ComboBox6.Value .Bookmarks("TextMaitrise2").Range.Text = TextBox2.Value .Bookmarks("TextCriticite2").Range.Text = TextBox3.Value     End With   Unload Me   End Sub

---

Comment faire ?

*Merci*

Salut,

Pourquoi utiliser des bookmarks alors que tu as un tableau ?

Si tu ajoutes une ligne, je suppose que les données seront écrites les unes sous les autres.

Utilise l'adressage des cellules du tableau.


http://heureuxoli.developpez.com/off...rd/?page=page6

Jette un oeil à ce tuto.
Si tu ajoutes une ligne à un tableau, tu peux l'adresser en comptant le nombre de ligne du tableau.
La colonne sera toujours la même.

Un tout petit exemple en passant.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ajouterLigne() Dim otbl As Table Dim intI As Integer   If ActiveDocument.Tables.Count = 0 Then ActiveDocument.Tables.Add Range:=Selection.Range, numrows:=1, numcolumns:=2     Set otbl = ActiveDocument.Tables(1) otbl.Rows.Add intI = otbl.Rows.Count   With otbl .Cell(intI, 1).Range.Text = "Col 1 - Ligne " & intI .Cell(intI, 2).Range.Text = "Col 2 - Ligne " & intI End With Set otbl = Nothing     End Sub

---

si ton document ne contient pas de table, la table est ajoutée au document.

Merci beaucoup pour l'info et la réacativité...c'est beaucoup plus simple et ça marche !

Très bien le tutoriel...Surtout pour les personnes qui débute comme moi !!!!


Pour info...le code que j'ai finalisé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Private Sub Valider_Click()   Dim otbl As Table Dim intI As Integer   Set otbl = ActiveDocument.Tables(8)   otbl.Rows.Add   intI = otbl.Rows.Count   With otbl   .Cell(intI, 1).Range.Text = TextRef.Value .Cell(intI, 2).Range.Text = TextActivite.Value .Cell(intI, 3).Range.Text = ComboBox1.Value .Cell(intI, 4).Range.Text = TextDefinitionRessource.Value .Cell(intI, 5).Range.Text = ComboBox2.Value .Cell(intI, 6).Range.Text = TextBox1.Value .Cell(intI, 7).Range.Text = ComboBox3.Value .Cell(intI, 8).Range.Text = ComboBox4.Value .Cell(intI, 9).Range.Text = ComboBox5.Value .Cell(intI, 10).Range.Text = TextCriticiteBrute.Value .Cell(intI, 11).Range.Text = ComboBox6.Value .Cell(intI, 12).Range.Text = TextBox2.Value .Cell(intI, 13).Range.Text = TextBox3.Value     End With   Set otbl = Nothing   Unload Me   End Sub

---