Discussion :

[c.piette]

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 :

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

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

[joe.levrai]

Bonjour,

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

une méthode parmi tant d'autres

Code :

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

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))

[Philippe Tulliez]

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 :

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

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

[c.piette]

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

[c.piette]

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 :

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

1
2
3
4
 
Sub SelectCurrentRegion()
      ActiveCell.CurrentRegion.Select
End Sub

Bonne journée à vous

[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 :

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

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

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

Code :

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

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

[c.piette]

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