Auto resize d'un tableau

Bonjour à tous,

J'essaie présentement de resize un tableau lorsque de nouvelles données sont entrées dans celui-ci.
Voici ce que j'ai pour le moment, ça ne semble pas fonctionner puisque ça bloque à la ligne #6

Code:

---

1 2 3 4 5 6

'---------------Resize the TM1 table to fit the new amount of data--------------------------------------------------------------------------------------- Dim Bottom As Long   Worksheets("dataTM1").Activate Bottom = Range("A1048576").End(xlUp).Row ActiveSheet.ListObjects("tbTM1").Resize Range("$A$1:Bottom")

---

Est-ce que quelqu'un peut m'aider à trouver ce qui bogue et à le corriger? :zoubi:
Ou simplement m'indiquer une meilleure façon de procéder? :mrgreen:

Merci d'avance
Nomorerulz8-)

Bonjour,

Bottom est une variable représentant un nombre de type Long
Ton Range, tel que tu l'écris, attend une chaine de caractère commençant par l'adresse de la première cellule de la plage, finissant par l'adresse de la dernière cellule, les deux séparés par le double point ":"

Cette portion de code est donc bourrée de fautes, dans tous les sens possibles

Code:

---

Range("$A$1:Bottom")

---

tu mets une variables dans une chaine de caractères
cette variable, de toute façon, est un nombre et pas une addresse de type "Colonne-Ligne"
il manque la référence à la dernière colonne de la plage


Bref, sans se prendre la tête, utilises la propriété .CurrentRegion si tu veux trouver la plage rectangulaire des données qui commence en A1 ... plus besoin de calculer tes lignes

Et on notera la nouvelle manière de gérer ta feuille : pas besoin de l'activer, pour ensuite travailler sur "la feuille active"

Code:

---

1 2 3

With Worksheets("dataTM1") .ListObjects("tbTM1").Resize .Range("A1").CurrentRegion End With

---

Citation:

---

Envoyé par joe.levrai

Code:

---

1 2 3

With Worksheets("dataTM1") .ListObjects("tbTM1").Resize .Range("A1").CurrentRegion End With

---

---

Merci pour ta réponse joe.levrai,

Je viens de faire la modification et le tout cèsse de fonctionner à ceci:

Code:

---

.ListObjects("tbTM1").Resize.Range("A1").CurrentRegion

---

Une idée?

Merci,
Nomorerulz8-)

As-tu testé ma proposition telle que je l'ai fournie, avant de la modifier ... enfin de la massacrer ?

T'as accolé les deux morceaux de la ligne de code, alors que ce sont deux parties indépendantes et qui doivent nécessairement être dans le bloc With/End With

teste ces trois lignes dans une procédure écrite dans ton classeur (uniquement ces trois lignes dans la procédure) et là si ça marche pas tu indiques le message d'erreur, car sans avoir testé je ne vois pas ce qui ne fonctionnerait pas

Bonjour joe.levrai,

J'ai testé votre proposition tel qu'indiqué au départ, mais une erreur est survenue.
J'ai donc tenté d'effacer l'espace (ne connaissant pas ce type de code) afin de vérifier si l'erreur était à cet endroit.
J'ai probablement oublié de le remettre avant de coller l'information ici.

Merci de tenir compte du fait que je ne suis pas un utilisateur avancé de VBA.
Votre indulgence est très appréciée et je vous suis reconnaissant de me faire profiter de votre expérience.

Voici le message d'erreur:
Pièce jointe 214667

Le code que j'ai inscris pour l'instant est ce qui suit.

Code:

---

1 2 3

With Worksheets("dataTM1") .ListObjects("tbTM1").Resize .Range("A11").CurrentRegion End With

---

Les titres de mon tableau sont aux positions A11:L11.
J'ai également essayé de débuter à la première ligne de donnée (ligne 12), mais ça ne semblait pas faire de sens.

Si vous avez une idée pour m'aider à régler ceci, vous êtes la bienvenue!
Dans le cas contraire, je vous suis reconnaissant de l'aide que vous m'avez apporté jusqu'à maintenant.

Merci encore,
Nomorerulz8-)

Code:

---

1 2 3 4 5

Dim Bottom As Long Worksheets("dataTM1").Activate Bottom = Range("A1048576").End(xlUp).Row ActiveSheet.ListObjects("tbTM1").Resize Range("$A$1:Bottom")

---

1. erreur :Dim Bottom As Long
2. correction =Dim Bottom As range
   
3. erreur:Bottom = Range("A1048576").End(xlUp).Row
4. correction=Bottom = Range("A1048576").End(xlUp)
   
5. erreur:activeSheet.ListObjects("tbTM1").Resize Range("$A$1:Bottom")
6. correction=

et meme qu'il serait preférable d'englober le tout dans le with

Code:

---

1 2 3 4

with activeSheet.ListObjects("tbTM1") set Bottom = Range("A1048576").End(xlUp) .Resize .Range(cells(1,"A"),Bottom) end with

---

Bonjour,

en condition d'usage normal, je n'arrive pas à reproduire le phénomène

Voici des conditions qui, non respectées, vont générer l'erreur 1004 durant mes test :

(1) la ligne 10 est bien vide
(2) le redimensionnement du tableau ne va pas chevaucher un autre tableau

Bonjour Patricktoulon,

J'ai rencontré un petit problème avec votre proposition.
Le tout bogue à la 3e ligne.

Code:

---

1 2 3 4

with activeSheet.ListObjects("tbTM1") set Bottom = Range("A1048576").End(xlUp) .Resize .Range(cells(1,"A"),Bottom) end with

---

Dois-je remplacer la mention cells(1,"A") par autre chose?
Mon tableau débute à la cellule A11, mais je ne sais pas comment l'adapter.

Merci beaucoup de ton aide.
Nomorerulz8-)

Bonsoir,

je pense que ça devrait marcher avec cela (dis moi si ok) :

Code:

---

1 2 3 4 5

'---------------Resize the TM1 table to fit the new amount of data--------------------------------------------------------------------------------------- Dim Bottom As Long, Col As String Col = Split(Worksheets("dataTM1").ListObjects("tbTM1").Range.Address, "$")(3) ' récupère la lettre de la dernière colonne Bottom = Worksheets("dataTM1").Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne Worksheets("dataTM1").ListObjects("tbTM1").Resize Range("$A$1:" & Col & Bottom) 'on redimensione

---

Optimisé dans un With :

Code:

---

1 2 3 4 5 6 7

'---------------Resize the TM1 table to fit the new amount of data--------------------------------------------------------------------------------------- Dim Bottom As Long, Col As String With Worksheets("dataTM1") Col = Split(.ListObjects("tbTM1").Range.Address, "$")(3) ' récupère la lettre de la dernière colonne Bottom = .Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne .ListObjects("tbTM1").Resize Range("$A$1:" & Col & Bottom) 'on redimensione End with

---

PS : si possible éviter les Activate , Select , Selection (je me demande si j'en ai pas oublié un ... ?)

Citation:

---

Envoyé par Nomorerulz

Mon tableau débute à la cellule A11, mais je ne sais pas comment l'adapter.

---

Si tu ne veux pas te prendre la tête avec les adresses tableaux :

Code:

---

1 2 3 4 5 6 7 8

'---------------Resize the TM1 table to fit the new amount of data--------------------------------------------------------------------------------------- Dim Bottom As Long, Deb_Tab_TM1 As String, Col_Fin_TM1 as String With Worksheets("dataTM1") Deb_Tab_TM1 = Split(.ListObjects("tbTM1").Range.Address, ":$")(0) 'Adresse de la 1ère cellule du tableau Col_Fin_TM1 = Split(.ListObjects("tbTM1").Range.Address, "$")(3) ' récupère la lettre de la dernière colonne Bottom = .Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne .ListObjects("tbTM1").Resize Range(Deb_Tab_TM1 & ":" & Col_Fin_TM1 & Bottom) 'on redimensione End with

---

Bonjour RyuAutodidacte,

Tout fonctionne parfaitement!
Merci énormément.

Voici le code qui a fonctionné pour de futures références:

Citation:

---

Code:

---

1 2 3 4 5 6 7 8

'---------------Resize the TM1 table to fit the new amount of data--------------------------------------------------------------------------------------- Dim Bottom As Long, Deb_Tab_TM1 As String, Col_Fin_TM1 as String With Worksheets("dataTM1") Deb_Tab_TM1 = Split(.ListObjects("tbTM1").Range.Address, ":$")(0) 'Adresse de la 1ère cellule du tableau Col_Fin_TM1 = Split(.ListObjects("tbTM1").Range.Address, "$")(3) ' récupère la lettre de la dernière colonne Bottom = .Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne .ListObjects("tbTM1").Resize Range(Deb_Tab_TM1 & ":" & Col_Fin_TM1 & Bottom) 'on redimensione End with

---

---

Merci encore!
Nomorerulz8-)

Bonjour
oui si on veut ....il y avais cela aussi

Code:

---

1 2 3 4

With Worksheets("dataTM1").ListObjects("tbTM1") Bottom = .Parent.Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne .Resize Range(.Cells(1), .Cells(Bottom, .Cells(1).CurrentRegion.Columns.Count)) 'on redimensione End With

---

Salut Patrick,
Je viens de tester ton code (oui je suis sur Mac, mais là je suis sur ma session windows, excel 2010),
et j'ai une erreur 438.
Est ce que tu as cette erreur aussi chez toi ?

oui tu a raison il y a meprise de ma part
je regarde je ne peut pas tester n'ayant pas listeobject

Comment ça pas de ListObjects, est ce dû à la version d'Excel ?

selon une certaine logique ca doit être cela

Code:

---

1 2 3 4 5

With Worksheets("dataTM1").ListObjects("tbTM1") Bottom = .Parent.Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne .Resize Range(.Rows.Count + (Bottom - .Rows.Count),.cells(1) .CurrentRegion.Columns.Count) 'on redimensione End With

---

Désolé mais c'est toujours la même erreur :mrgreen:

PS : alors t'en ai où dans l'EVALUATE de Marc ? Il faut que je le fasse aussi, le principe est super intéressant et c'est puissant

Edit : pour ceux que ça intéresse ou qui sont curieux pour l'Evaluate dont je parle, ça se trouve ici et là et de ce coté

Hi Patrick,
Voilà le code qui marche, j'en ai profité pour tout automatiser ;)

Code:

---

1 2 3 4 5 6

Sub test() 'RyuAutodidacte ;-) With Worksheets("dataTM1").ListObjects("tbTM1") Bottom = .Parent.Range(Split(.Range.Address, "$")(1) & Rows.Count).End(xlUp).Row 'dernière ligne .Resize .Range.Range(Cells(1), Cells(Bottom - .Range.Cells(1).Row + 1, .ListColumns.Count)) 'on redimensione End With End Sub

---