1er objet d'une collection
Le
-=lolol=-
Bonjour à tous
Dans un classeur Excel, j'ai différents onglets avec différents
tableaux de données. Ces tableaux sont nommés (insérer un nom) avec des
entêtes.
Ainsi je peux via VBA manipuler les colonnes avec
[TblNum1[NomColonne]].Clear
pour par exemple effacer le contenu de la colonne "NomColonne" du
Tableau "TblNum1", ok.
J'arrive à traiter en masse avec
For Each LaCell In Range("TblNum2[[Colon1]:[Colon3]]")
Comment connaitre la valeur de la première cellule de la série d'une
colonne [TblNum1[NomColonne]] ?
Question subsidiaire
Comment connaitre la valeur de la dernière cellule de la série d'une
colonne [TblNum1[NomColonne]] ?
J'imagine que [TblNum1[NomColonne]] est une collection et qu'on doit
pouvoir lui causer comme ça, je n'y arrive pas :-(
Merci pour votre aide
@+Laurent
Dans un classeur Excel, j'ai différents onglets avec différents
tableaux de données. Ces tableaux sont nommés (insérer un nom) avec des
entêtes.
Ainsi je peux via VBA manipuler les colonnes avec
[TblNum1[NomColonne]].Clear
pour par exemple effacer le contenu de la colonne "NomColonne" du
Tableau "TblNum1", ok.
J'arrive à traiter en masse avec
For Each LaCell In Range("TblNum2[[Colon1]:[Colon3]]")
Comment connaitre la valeur de la première cellule de la série d'une
colonne [TblNum1[NomColonne]] ?
Question subsidiaire
Comment connaitre la valeur de la dernière cellule de la série d'une
colonne [TblNum1[NomColonne]] ?
J'imagine que [TblNum1[NomColonne]] est une collection et qu'on doit
pouvoir lui causer comme ça, je n'y arrive pas :-(
Merci pour votre aide
@+Laurent
Une manière de procéder
Adapte le nom de la feuille dans mon exemple
'--------------------------------------
Sub test()
With Worksheets("Feuil1").ListObjects("TblNum1").DataBodyRange.Columns(1)
'Première cellule
x = .Cells(1, 1).Value
'Dernière cellule
Y = .Cells(.Cells.Count, 1)
End With
End Sub
'--------------------------------------
Si tu veux boucler sur chacune des cellules de la colonne
'--------------------------------------
Sub test1()
Dim C As Range
For Each C In
Worksheets("Feuil1").ListObjects("TblNum1").DataBodyRange.Columns(1).Cells
x = C.Value
Next
End Sub
'--------------------------------------
MichD
e 05/12/19 à 08:07, -=lolol=- a écrit :
Grand merci pour ton aide.
With
Worksheets("Feuil1").ListObjects("TblNum1").DataBodyRange.Columns(1)
Je ne connaissais pas, je vais regarder.
Merci
@+Laurent
Le 05/12/2019 à 19:20, -=lolol=- a écrit :
Et avec ce qui suit cela ne marche pas :
With [TblNum1]
MsgBox .Cells(1, 1).Value
MsgBox .Cells(.Rows.Count, 1).Value
End With