XL 2013 VBA Listobject

Jam

XLDnaute Accro
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

XLDnaute Accro
Bon, bah, j'ai trouvé comme un grand :D
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
 

Discussions similaires

Réponses
6
Affichages
189

Statistiques des forums

Discussions
311 102
Messages
2 077 042
Membres
242 010
dernier inscrit
Ratovonamana