Discussion :

[Kestion100]

Bonjour,
J'ai hérité d'un doc sur lequel je dois travailler sans trop y toucher, je souhaiterais ajouter 2 colonnes à la droite d'un tableau dont le nombre de cellules par ligne est variable.
Je pense que cela pourrait revenir à ajouter un cellule à droite de la dernière cellule de chaque ligne avec une boucle????

Pour l'instant, je place le curseur sur l'une des cellules de cette dernière colonne et quand je clic sur "ajouter à droite", tout est OK mais je dois le faire sur plus de 150 pages et souhaiterais automatiser et quand je procède avec du code, une cellule est ajoutée à droite de la colonne correspondante (il y a une seule cellule en première ligne du tableau et la colonne ajoutée se répartie sur les lignes suivante après la deuxième cellule or ces lignes contiennent le plus souvent trois cellules).

J'ai essayé plein de codes possible, rien n'y fait.

Je reçois aussi le message d'erreur:

Erreur d'exécution 5992 Impossible d'accéder à des colonnes individuelles de cette collection car le tableau possède des cellules de largeur différentes

Si quelqu'un peut me mettre sur la bonne voie

MERCI d'avance!!!!!!!

[Kestion100]

Tentative de code:

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
 
Sub SelTab()
 
Selection.GoTo What:=wdGoToBookmark, Name:="MonTableau2"
 
 
ActiveDocument.Tables(2).Cell(NbRows, 3).Range.Select
 
With Selection
.MoveDown unit:=wdParagraph, Count:=1
 
End With
 
 
Selection.InsertColumnsRight
 
 
End Sub

Ajoute une cellule après la deuxième cellule de chaque ligne....

Et non une colonne à droite de tout le tableau, le plus rageant est que cela fonctionne très bien avec le clic sur "Insérer à droite"!!!!!!!!!!!

[Kestion100]

Si j'arrivais à modifier:

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
 
Sub SelTab()
 
Selection.GoTo What:=wdGoToBookmark, Name:="MonTableau2"
 
 
Dim T As Table, NbRows As Long, A As Long
Set T = ThisDocument.Tables(2)
 
NbRows = T.Rows.Count
 
 
Dim i As Integer
 
For i = 1 To NbRows
 
ActiveDocument.Tables(2).Cell(i, 1).Range.Select
Selection.MoveDown unit:=wdParagraph, Count:=1
Selection.Cells.Add
 
Next i
 
 
End Sub

en faisant varier le

Code :

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

1

de

Code :

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

ActiveDocument.Tables(2).Cell(i, 1).Range.Select

pour tenir compte du nombre variable de cellules par ligne, je pense que ça pourrait fonctionner?????