Discussion :

[c.piette]

Bonjour à tous,


J'aimerais boucler sur toutes les cellules d'une colonne d'un ListObject; en sachant que je connait le nom de la colonne sur laquelle je souhaite boucler.


Pour mon code ne fonctionne-t-il pas ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Tbl As ListObject
Dim Cell1 As Range
 
Set Tbl = Sheets("ExtractionsPoste").ListObjects("TableauDonneesTriPoste")
 
For Each Cell1 In Tbl.Columns("Noms").Cells
 
'Une instruction
 
Next Cell1

Merci d'avance pour l'aide

[Philippe Tulliez]

Bonjour,
Exemple pour parcourir les données de la colonne dont l'étiquette est "Nom"

Code :

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

1
2
3
4
5
6
7
Sub t()
 Dim Tbl As ListObject, Cel As Range
 Set Tbl = Sheets("Feuil1").ListObjects("Tableau1")
 For Each Cel In Tbl.ListColumns("Nom").DataBodyRange
  Debug.Print Cel
 Next
End Sub

[c.piette]

Re,


Merci à toi, cela fonctionne parfaitement

Bonne journée