XL 2013 VBA Listobject

Jam · 2 Mars 2017

Bonjour à tous,

J'ai un tableau avec plusieurs colonnes.
Je veux parcourir toutes les lignes de ce tableau qui a une 20aine de colonnes et ne récupérer la valeur que de quelques colonnes.
J'utilise le bout de code suivant mais je bloque sur la façon de récupérer les données de chaque colonne:

VB:

Sub Test1()
Dim Tbl As ListObject
Dim x As Long
Dim a As String
Dim b As String
Dim c As String

Set Tbl = Feuil1.ListObjects(1)

With Tbl
    For x = 1 To .ListRows.Count
        a = .ListColumns("FacNumCompost").DataBodyRange.Value
        b = .ListColumns("FacRefFournisseur").DataBodyRange.Value
        c = .ListColumns("UniqueDesignationFournisseur").DataBodyRange.Value
    Next
End With
End Sub

Merci d'avance pour vos suggestions.

Jam · 2 Mars 2017

Bon, bah, j'ai trouvé comme un grand
Merci à ceux qui se seraient déjà penché sur une soluce (si vous avez plus rapide, je reste preneur).

Ca donne ça:

VB:

Sub Test1()
Dim Tbl As ListObject
Dim x As Long
Dim a As String
Dim b As String
Dim c As String

Set Tbl = Feuil1.ListObjects(1)

With Tbl
    For x = 2 To .ListRows.Count
        a = .Range(x, .ListColumns("FacNumCompost").Index)
        b = .Range(x, .ListColumns("FacRefFournisseur").Index)
        c = .Range(x, .ListColumns("UniqueDesignationFournisseur").Index)
    Next
End With
End Sub

XL 2013 VBA Listobject

Jam

XLDnaute Accro

Jam

XLDnaute Accro

Discussions similaires