Discussion :

[mélii]

Bonjour à tous,

Voilà, j'ai un petit souci de sélection multiple de cellules dans word. Je voudrais, afin d'y coller des données, sélectionner plusieurs cellules contiguës d'une même ligne (mais pas la ligne entière) d'un tableau, mais je n'y arrive pas.

Voici une image pour illustrer ma demande :



et voici mon code m'ayant permis de chercher mon tableau et de sélectionner la 1ère cellule à partir de laquelle copier les données (cf photo ci dessus) :

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 Table_Investigation()
 
'Placement du curseur word au début du document fraichement activé
Selection.StartOf unit:=wdStory
 
'Recherche de la chaine de caractère contenant "Investigation summary" (c'est écrit juste au dessus du tableau mais n’apparaît pas sur la capture d'écran que j'ai joint)
With Selection.Find
    .Execute FindText:="Investigation summary"
    .Execute FindText:="Investigation summary"
End With
 
'Selection d'une ligne + 1 à l'occurence
Selection.MoveDown unit:=wdLine, Count:=1
 
'Si le curseur se trouve dans un tableau, alors on sélectionne ce dernier
If Selection.Information(wdWithInTable) Then
    Selection.Tables(1).Select
 
'La je selectionne la 1ère cellule à partir de laquelle coller mes données
Selection.Tables(1).Cell(3, 2).Select
 
End Sub

Savez vous comment faire? merci d'avance pour votre aide.

[QuestVba]

Bonjour,

Pour une piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'sélection du tableau
ActiveDocument.Tables(1).Select 
 
'Mettre la sélection sur la ligne au dessus
Selection.MoveUp unit:=wdLine, Count:=1
 
'remettre la sélection sur la première cellule du tableau
Selection.MoveDown unit:=wdLine, Count:=1
 
'Etendre la sélection sur la cellule en dessous
Selection.MoveDown unit:=wdLine, Count:=1, Extend:=wdExtend

[mélii]

Bonsoir QuestVba,

Merci beaucoup pour ta réponse, grâce à toi j'ai trouvé, il suffisait de faire :

Code :

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

1
2
 
Selection.MoveEnd Unit:=wdLine, Count:=7

Bonne soirée

Nb : j'aurai surement d'autres questions lol car je suis en train de faire de grosses macros sur un fichier et je suis débutant en VBA word.