Discussion :

[Kestion100]

Bonjour,
Je souhaiterais placer mon curseur dans la dernière cellule de la deuxième ligne d'un tableau sans connaître le nombre de cellule de cette ligne mais n'y arrive absolument pas.

Quelqu'un aurait-il un début de solution s'il vous plaît?

MERCI

[Invité]

Bonjour,

A tester :

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
 
Option Explicit
 
Sub TestSelectionnerDerniereCelluleLigneTableau()
 
    SelectionnerDerniereCelluleLigneTableau ActiveDocument.Tables(1), 2
 
End Sub
 
 
Sub SelectionnerDerniereCelluleLigneTableau(ByVal TableauEnCours As Table, ByVal NumeroDeLigne As Integer)
 
Dim NbCellules As Long
 
    With TableauEnCours
         NbCellules = .Rows(NumeroDeLigne).Range.Cells.Count
         .Rows(NumeroDeLigne).Range.Cells(NbCellules).Select
        ' Selection.EndKey unit:=wdLine  ' Fin de la cellule
         Selection.HomeKey unit:=wdLine  ' Début de la cellule
    End With
 
End Sub

[Kestion100]

Bonjour, Je teste et donne le résultat mais je pense que ça va être un "Résolu", MERCI