Discussion :

[Doursal]

Bonjour,

Je me lance depuis peu dans le VBA, et j'ai besoin de bcp d'aide.

Je travaille sur un document word, contenant plusieurs tableaux, mais pour l'exemple, je me limiterai a 2 tableaux (tab1 et tab2) comme illustré sur l'image. . J'ai crée des bookmarks pour chacun de mes tableaux.

J'aimerai créer une macro qui me permette de sélectionner avec une liste déroulante le tableau et sa ligne que je veux copier (tab1 et ligne Etape 2 sur l'image) ainsi que le deuxieme tableau et sa ligne de destination (l'endroit ou sera coller la ligne copiée, tab2 et ligne Etape 4 sur l'image) .
Est-ce possible de créer cela en VBA ? Et si oui comment ?

D'avance merci bcp.

[Invité]

Bonjour,

Avez-vous regardé le tutoriel d'Olivier LEBEAU vba-word ?

[Doursal]

Bonjour,

Avez-vous regardé le tutoriel d'Olivier LEBEAU vba-word ?

Bonjour,

J'ai fait pas mal de biblio pour comprendre le vba. Je n'ai pas regardé ce tutoriel en particulier.

J'ai cru comprendre qu'avec des userforms, on peut créer des fenêtres comportant des combobox. Cependant, je ne sais pas comment faire en sorte que le contenu de mes combobox soit le contenu texte de la premiere colonne de mon tableau, faire une copie d'une ligne d'un tableau vers un autre tableau, et faire en sorte que le bouton "valider" active ma copie.

[Invité]

Au niveau des userforms, vous retrouverez beaucoup de similitudes avec ceux d'Excel. C'est au niveau du VBA Word que cela change pas mal si vous comparez avec le VBA Excel, et l'enregistreur de macros n'est pas aussi facile à manier. Le tutoriel d'Olivier LEBEAU vous donne une bonne approche.

Avez vous déjà préparé un document avec votre userform, ses combobox et vos deux tables ?

[Doursal]

...

Oui, j'ai fait le userform. Par contre, dans la fonction "CommandButton1_Click() ", je n'arrive pas a définir mes tableaux avec ces lignes:

Code :

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

1
2
Set Doc = ActiveDocument
Set Tabl1 = Doc.Bookmarks("Tab1").Range.Tables(1)

[Invité]

Code :

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

1
2
3
 
Set Doc = ActiveDocument
Set Tabl1 = Doc.Tables(1)

[Doursal]

Code :

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

1
2
3
 
Set Doc = ActiveDocument
Set Tabl1 = Doc.Tables(1)

Je vais avoir bcp de tableaux dans mon document. C'est pour cela que je préfére utiliser des bookmarks afin d'appeler le bon tableau.

[Doursal]

Voici mon userform:


Niveau code, j'ai comme fonctions

• Userform_Initialize: pour l'instant, j'ai défini la liste de ma combobox en dur, mais a la fin, j'aimerai que ça soit rempli de façon dynamique en fonction du nombre de ligne du tableau selectionne (je ne sais pas encore le faire)
• CommandButton1_click: je déclare les deux tableaux de mon document grâce aux bookmarks, et je fais des tests. Je reçois une erreur me disant "error 5941, the request member of the collection does not exist" pour la ligne *Set Tabl1 = Doc.Bookmarks("Tab1").Range.Tables(1)*

[Invité]

Pouvez-vous mettre votre document en ligne sans données confidentielles ?

[Doursal]

Pouvez-vous mettre votre document en ligne sans données confidentielles ?

Je ne le puis malheureusement. C'est pour cela que j'illustre au maximum mes messages à l'aide d'images.

[Invité]

Un exemple avec vos captures d'écran de votre premier message est suffisant.

[Invité]

Je vais avoir bcp de tableaux dans mon document. C'est pour cela que je préfére utiliser des bookmarks afin d'appeler le bon tableau.

Code :

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

???

Vous pourriez également utiliser la propriété Title de vos tableaux pour les reconnaître facilement.

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub DonnerUnTitreAUneTable()
 
  With ActiveDocument
       .Tables(1).Title = "Table 1"
       .Tables(2).Title = "Table 2"
  End With
 
End Sub

Un exemple pour récupérer une table d'après son titre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function TableSelectionnee(ByVal DocEnCours As Document, ByVal TitreTable As String) As Integer
 
Dim CtrI As Long
 
    With DocEnCours
         For CtrI = 1 To .Tables.Count
             If .Tables(CtrI).Title = TitreTable Then TableSelectionnee = CtrI
         Next CtrI
    End With
 
End Function
 
Sub TestTableSelectionnee()
 
 Dim MaTable_2 As Table
 
     Set MaTable_2 = ActiveDocument.Tables(TableSelectionnee(ActiveDocument, "Table 2"))
     MsgBox MaTable_2.Title
 
End Sub

[Invité]

Voici l'erreur que j'obtiens lorsque je clique sur validate

Voir mon message précédent.

[Doursal]

Voir mon message précédent.

Je ne connaissais pas cette technique. Merci.

Neanmoins, quel est le probleme aevc les bookmarks ici ? Je ne comprends pas.

Car mon document possède plusieurs tableaux. Seuls quelques tableaux vont être traites. Numéroter les tableaux n'est pas une solution envisageable dans la mesure où tout ajout de tableau par la suite rendrait ma macro obsolète (je serai obligée de la mettre à jour). Je cherche un solution dynamique, indépendante du nombre de tableaux du document et des modifications qui peuvent avoir lieu par la suite.

[Doursal]

C'est pour cela que j'aimerai savoir quelle est la marche a suivre pour :
1. avoir des listes dynamique qui, en fct du tableau sélectionné dans le premier combobox, me donne la liste des étapes correspondantes (nombre de ligne -1 du tableau)
2. idem pour le tableau de destination
3. appuyer sur le bouton valider afin que la ligne sélectionnée soit copier dans le tableau de destination.

Dans quelle fonction dois-je déclarer mes tableaux ?
Ou mettre le code pour copier/coller les éléments sélectionnés dans mon userform ?
Comment gérer le bouton valider qui pour l'instant me donne une erreur quand j'appuie dessus.

[Invité]

Neanmoins, quel est le probleme avec les bookmarks ici ?

Je ne vois plus votre message. L'idée de travailler avec un signet englobant un tableau est une mauvais solution si à un moment donné vous devez remplacer votre tableau, car le signet va disparaître. Dans ce cas, il vous faut travailler plutôt avec des signets de position, descendre d'une ligne et récupérer l'index de la table.

Car mon document possedent plusieurs tableaux. Seuls quelques tableaux vont etre traites. Nemeroter les tableaux n'est pas une solution envisageable dans la mesure ou tout ajout de tableau par la suite rendrait ma macro obsolete. Je cherche un solution dynamique, independante du nombre de tableaux du document et des modification qui peuvent avoir lieu.

Justement, la technique donnant un titre à votre tableau vous permet de travailler sans connaître le numéro d'index des tableaux.

[Invité]

Pouvez-vous mettre en ligne vos différentes procédures ?

[Doursal]

Justement, la technique donnant un titre à votre tableau vous permet de travailler sans connaître le numéro d'index des tableaux.

Le numéro d'index intervient pourtant dans la déclaration même du tableau

Code :

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

1
2
Tables(1).Title = "Table 1"
       .Tables(2).Title = "Table 2"

Pour des raisons de praticité, il me sera bien plus simple de travailler avec des bookmarks, puisque mon tableau ne sera pas remplacer, que d'autres tableaux peuvent être ajouter avant/après, et que la création d'un bookmarks dans word est simple.

Merci toutefois pour cette approche qui pourra m’être utile pour d'autres cas.

[Invité]

Vous n'avez pas regardé l'utilisation de la fonction. Pour récupérer le tableau, je travaille uniquement avec son titre.

[Doursal]

Voici mon code pour le moment:

Code :

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

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
 
Private Sub ComboBox3_Change()
 
End Sub
 
 
 
Private Sub CommandButton1_Click()
 
    Dim doc As Document
    Dim Table_1 As Table
    Dim Table_2 As Table
 
    Dim maCell As Range
 
    Dim TableBookmarkName As String
 
    Set doc = ActiveDocument
    Set Table_1 = doc.Bookmarks("Tab1").Range.Tables(1)   'erreur ici
    Set Table_2 = doc.Bookmarks("Tab2").Range.Tables(1)  
 
    Set maCell = Table_1.Cell(2, 3).Range
    MsgBox "Contenu tableau: " & maCell
 
    Me.CommandButton1.Caption = "Valide !!"
    MsgBox Me.ComboBox1.Value
 
End Sub
 
Private Sub UserForm_Initialize()
 
    'UserForm_Init_Module
    Dim myTabl_Box1() As String
    ReDim myTabl_Box1(6)
 
    myTabl_Box1(1) = "Tab1"
    myTabl_Box1(2) = "Tab2"
    myTabl_Box1(3) = "Tab3"
    myTabl_Box1(4) = "Tab4"
    myTabl_Box1(5) = "Tab5"
    myTabl_Box1(6) = "Tab6"
 
    Me.ComboBox1.List() = myTabl_Box1
 
 
    Dim myTabl_Box2() As String
    ReDim myTabl_Box2(4)
 
    myTabl_Box2(1) = "Etape 1"
    myTabl_Box2(2) = "Etape 2"
    myTabl_Box2(3) = "Etape 3"
    myTabl_Box2(4) = "Etape 4"
 
    Me.ComboBox2.List() = myTabl_Box2
 
 
    Dim myTabl_Box3() As String
    ReDim myTabl_Box3(6)
 
    myTabl_Box3(1) = "Tab1"
    myTabl_Box3(2) = "Tab2"
    myTabl_Box3(3) = "Tab3"
    myTabl_Box3(4) = "Tab4"
    myTabl_Box3(5) = "Tab5"
    myTabl_Box3(6) = "Tab6"
 
    Me.ComboBox3.List() = myTabl_Box3
 
 
    Dim myTabl_Box4() As String
    ReDim myTabl_Box4(5)
 
    myTabl_Box4(1) = "Etape 1"
    myTabl_Box4(2) = "Etape 2"
    myTabl_Box4(3) = "Etape 3"
    myTabl_Box4(4) = "Etape 4"
    myTabl_Box4(5) = "Etape 5"
 
    Me.ComboBox4.List() = myTabl_Box4
 
 
End Sub
 
 
Private Sub ComboBox1_Change()
 
    Debug.Print Me.ComboBox1.Value          
    MsgBox Me.ComboBox1.Value
 
End Sub
 
Private Sub ComboBox1_CopyStep()
 
 
End Sub