Discussion :

[c.piette]

Bonjour le forum,


Voilà, je souhaiterais récupérer la position relative d'une cellule dans un tableau ... Dans ce sens où je souhaite la coordonnée (la ligne pour être plus précis) qui me permettrait d'atteindre une autre cellule sur la ligne correspondante via quelquechose du type:

Code :

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

ListObjects("MonTableau").DataBodyRange.Cells(i,3)

Avez vous des pistes ?

Merci d'avance !

[issoram]

Hello,

Une piste...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
 
    Dim i As Long
    Dim cellule As Range
    Dim feuille As Worksheet
 
    If Not cellule.ListObject Is Nothing Then 
        With feuille.ListObjects("MonTableau")
            i = cellule.Row - .DataBodyRange.Row + 1
            Debug.Print .DataBodyRange.Cells(i, 3).Value
        End With
    End With
 
End Sub

[c.piette]

Hello hello,

C'était plus qu'une piste, ça a fonctionné parfaitement !

Bonne journée