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

  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
MichD
Le #26532312
Bonjour,
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 :
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
-=lolol=-
Le #26532341
Bonsoir
Grand merci pour ton aide.
With
Worksheets("Feuil1").ListObjects("TblNum1").DataBodyRange.Columns(1)
Je ne connaissais pas, je vais regarder.
Merci
@+Laurent
Bonjour,
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 :
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
Michel__D
Le #26532344
Bonsoir,
Le 05/12/2019 à 19:20, -=lolol=- a écrit :
Bonsoir
Grand merci pour ton aide.
With Worksheets("Feuil1").ListObjects("TblNum1").DataBodyRange.Columns(1)
Je ne connaissais pas, je vais regarder.

Et avec ce qui suit cela ne marche pas :
With [TblNum1]
MsgBox .Cells(1, 1).Value
MsgBox .Cells(.Rows.Count, 1).Value
End With
Poster une réponse
Anonyme