Discussion :

[Tidrah51]

Bonjour à vous tous et merci par avance.

Voici le problème que j'ai :

j'ai un tableau classique (pas TCD) (Tableau 3) qui lorsque j'ajoute une valeur sous la dernière valeur en colonne A il ne se redimentionne pas.

J'aimerais un code VBA pour augmenter de 1 ligne la taille du tableau

par exemple si le tableau va de : =$A$24:$V$34 lorsque j'applique ce code on est =$A$24:$V$35


Par avance merci à la communauté!
Amicalement Pierre

[Invité]

Bonjour,

Si vous passez votre tableau en tableau structuré, cela va se faire tout seul.
Pour y passer : Sélectionner votre tableau puis Insertion - Tableau, puis donnez-lui un nom explicite plutôt que Tableau1.

[Pierre Fauconnier]

Salut.

Comme il semble que tu utilises déjà un tableau structuré (Tableau3), peut-être dois-tu vérifier tes options Excel?




Pour répondre à ta question "Comment ajouter une ligne à un tableau (structuré) en VBA?" => Range("tableau1").ListObject.ListRows.Add en notant que Add est une méthode qui renvoie un objet ListRow pointant vers la nouvelle ligne créée dans le tableau. De là, on peut alors manipuler l'objet ListRow, par exemple pour en récupérer la plage et la valoriser (Voir mon billet sur ce sujet)

[Tidrah51]

Bonjour,

alors je me suis mal exprimé ce n'est pas ajouter une ligne c'est étendre le tableau (comme lorsque l'on se sert de la poignée en bas à droite du tableau).
Car la avec le code Range("tableau1").ListObject.ListRows.Add il décale les lignes dessous. J'aimerais qu'il les intègrent.

[Pierre Fauconnier]

Ceci peut-être? A adapter à ton cas. Ici, on étend jusqu'à la dernière ligne utilisée en A

Code :

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

Range("t_Produits").ListObject.Resize Range("a1:b" & Range("a1048576").End(xlUp).Row)

Au cas où le tableau ne serait pas calé en A1:

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
  Dim LastRow As Long
  Dim NewRange As Range
 
  LastRow = Range("t_Produits").Parent.Cells(1048576, Range("t_Produits").Column).End(xlUp).Row
  Set NewRange = Range("t_Produits").ListObject.Range.Resize(LastRow - Range("t_Produits").Row + 2)
  Range("t_Produits").ListObject.Resize Range("f5:g22")
End Sub

NB: Les lignes d'un tableau, même vides, sont considérées comme étant utilisées lors d'un End(xlUp), de sorte que la dernière ligne en A sera 7 dans le cas suivant, et pas 4.

[Tidrah51]

C'est parfait ça marche super !
voici le code final que j'ai utilisé :

Code :

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

Range("tableau3").ListObject.Resize Range("A24:T" & Range("a1048576").End(xlUp).Row)

Merci à toi Pierre