Discussion :

[Manuel40]

Bonjour,

Lorsque je manipule un tableau, je souhaiterais déplacer automatiquement le curseur juste en dessous du tableau pour pouvoir écrire la suite.

J'ai trouver une solution, qui fonctionne, mais j'aimerai savoir s'il n'y a pas moyen de le faire plus proprement.

Voici mon code actuel

Code :

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

1
2
3
4
5
6
7
8
Sub Sortie_tab()
    Dim num_tab As Integer
    Dim ligne As Integer
 
    num_tab = ActiveDocument.Tables.Count
    ligne = ActiveDocument.Tables(num_tab).Rows.Count
    Selection.MoveDown Unit:=wdLine, Count:=ligne
End Sub

Merci d'avance,

Manu

[Heureux-oli]

Salut,

Si tu penses que c'est plus propre :

Code :

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

1
2
3
 
Selection.Expand unit:=wdTable
Selection.Collapse direction:=wdCollapseEnd

[Manuel40]

Merci beaucoup