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 :-(
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
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
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 :-(
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=-
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
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 :-(
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
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
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