Créer un ListObject: optimisation de code

Version imprimable

Bonjour le forum,

Je m'excuse d'avance car je sais que si j'avais un meilleur lexique, j'aurais pu trouver la réponse par moi-même sur le forum.

J'ai une feuille Excel, chargée par l'utilisateur de mon formulaire. Sur cette feuille de donnée, il y a un tableau de données, mais qui n'a pas été mis sous forme de tableau au sens Excel (Insertion > tableau)...

Je programme donc une macro pour mettre cette plage de donnée sous forme de tableau/ListObject.

Comment faire pour que mon code soit plus robuste et puisse s'adapter automatiquement à la taille de cette plage de donnée ?

Mon Code:
Code:

1 2 3 4 5 ActiveCell.Offset(-46, 4).Range("A1").Select 'REMARQUE: cette case est prise au hasard au milieu de la feuille, _ 'car on peut se "douter" que celle ci est dans la zone de donnée ActiveCell.Range("A1:W5290").Select 'Taille du tableau lors de enregistrement de la macro ActiveSheet.ListObjects("Tableau2").Name = "TableauEtatInscription"
Merci à vous :)

Bonjour,

en supposant que la Cellule A1 est dans la zone de ton tableau

une méthode parmi tant d'autres

Code:

1
2
3
4
5
6
7
8
9
 
Dim i As Long
Dim j As Long
Dim Plage As Range
 
i = Workbooks("LeClasseur").Worksheets("Feuil1").Range("A1").End(xlDown).Row
j = Workbooks("LeClasseur").Worksheets("Feuil1").Range("A1").End(xlToRight).Column
 
Set Plage = Workbooks("LeClasseur").Worksheets("Feuil1").Range(Cells(1, 1), Cells(i, j))

Bonjour,
L'avantage d'utiliser les tableaux c'est qu'ils sont dynamiques et donc en VBA, il y a des propriétés qui renvoient les objets
Exemple Tu places le nom de ton tableau dans la constante TableName et tu testes

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub TableProperies()
 Const TableName As String = "tblStock"
 Dim sht As Worksheet, tbl As ListObject, txt As String
 Set sht = ActiveSheet
 Set tbl = sht.ListObjects(TableName)
 txt = "Quelques propriétés de ListObject"
 txt = txt & vbCrLf & "La table complète " & vbTab & tbl.Range.Address
 txt = txt & vbCrLf & "Les étiquettes de colonnes " & vbTab & tbl.HeaderRowRange.Address
 txt = txt & vbCrLf & "Les données " & vbTab & tbl.DataBodyRange.Address
 MsgBox txt
End Sub

17/04/2015, 10h30
c.piette

Re

Bonjour Joe,

Justement elle ne l'est pas, mais j'avais pensé à cette "Technique".

Il me semble qu'il existe une propriété qui permet de sélectionner toute la zone de donnée contigüe dont fait partie une cellule.

Est-ce que cela te parle ?

Cordialement
17/04/2015, 10h40
c.piette

Re
Re à vous deux, merci pour vos réponses.

J'ai trouvé la propriété que je cherchais pour que lors de la création du tableau, je ne sois pas embêté par le fait que je ne connaisse pas la taille du tableau :)

Et Joe, en fait le petit problème que j'ai c'est que plusieurs cellules sont complètes aux hasard un peu partout au dessus de la plage de donnée qui m'intéresse.

Voilà ce que je cherchais:
Code:

1 2 3 4 Sub SelectCurrentRegion() ActiveCell.CurrentRegion.Select End Sub
Bonne journée à vous :)
17/04/2015, 10h58
Philippe Tulliez

Bonjour,
Il me semblait pourtant que tu parlais d'une table (l'objet ListObject)
Pour connaître l'adresse du tableau où se trouve la cellule active
L'exemple renvoie $$ si la cellule active ne fait pas partie d'un tableau, il suffit de l'adapter

Code:

MsgBox IIf(ActiveCell.ListObject Is Nothing, "$$", ActiveCell.ListObject.Range.Address)

ou pour obtenir uniquement la plage de données du tableau

Code:

MsgBox IIf(ActiveCell.ListObject Is Nothing, "$$", ActiveCell.ListObject.DataBodyRange.Address)
17/04/2015, 11h39
c.piette

Re

Le quiproquo vient de moi je sais, j'ai encore du mal à jongler avec tous le lexique.

J'ai sur une feuille une plage de donnée, disposée "comme si c'était un tableau", mais il ne l'est pas encore. Cette feuille est chargée par l'utilisateur, donc dans l'avenir sont contenu va changer, mais sa disposition sera semblable.

Pour plus facilement manipuler avec VBA ces données. Je souhaite transformer cette plage, cet ensemble de données contigüe en ListObject/Tableau.

Comme j'ai dit, vu la disposition "type" de la feuille, je peux avec une relative assurance, affirmé que la cellule E50 fera toujours partie de cet ensemble de donnée. Donc je souhaitais partir de cette cellule pour sélectionner l'ensemble des données et transformer cette plage en tableau/ListObject :)

Mais au final, je me suis rendu compte que cela ne servait a rien et que je n'avais directement créer le tableau depuis la cellule. Excel étant suffisamment intelligent que pour comprendre que je souhaitais inclure toutes les données contigües à ce tableau :)

Voilà voilà :) mais merci pour l'attention portée à mon post :)