Discussion :

[Nomorerulz]

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 :

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

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?
Ou simplement m'indiquer une meilleure façon de procéder?

Merci d'avance
Nomorerulz

[joe.levrai]

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 :

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

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 :

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

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

[Nomorerulz]

Code :

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

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 :

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

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

Une idée?

Merci,
Nomorerulz

[joe.levrai]

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

[Nomorerulz]

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:


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

Code :

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

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,
Nomorerulz

[patricktoulon]

Code :

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

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 :

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

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

[joe.levrai]

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

[Nomorerulz]

Bonjour Patricktoulon,

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

Code :

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

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.
Nomorerulz

[RyuAutodidacte]

Bonsoir,

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

Code :

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

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 :

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

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

[RyuAutodidacte]

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 :

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

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

[Nomorerulz]

Bonjour RyuAutodidacte,

Tout fonctionne parfaitement!
Merci énormément.

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

Code :

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

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!
Nomorerulz

[patricktoulon]

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

Code :

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

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

[RyuAutodidacte]

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 ?

[patricktoulon]

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

[RyuAutodidacte]

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

[patricktoulon]

selon une certaine logique ca doit être cela

Code :

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

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

[RyuAutodidacte]

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

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é

[RyuAutodidacte]

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

Code :

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

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