Inserer une ligne à la fin d'un tableau excel avec vba

Bonjour,

je réalise un petit projet en bureautique mais je n'arrive pas à créer une macro qui me permet d'inserer une ligne à la fin de mon tableau...


Merci

Bonjour
1) qu'appelles-tu exactement un "tableau" ? Est-ce une feuille Excel ou un véritable tableau Excel (insertion -->> tableau depuis le menu) sur une feuille Excel ?
2) quels sont les éléments (lignes, colonnes) de ce "tableau" ? Sont-ils des constantes ou des résultats de formules ?

Quel code as-tu au moins tenté d'écrire pour parvenir à tes fins (montre-le ici entre balises code, s'il te plait) ?

Bonjour,

1. Oui j'ai fais insertion, tableau
2. Je vous met mon document en pièce jointe

J'ai essayer de faire avec l'enregistreur de macro.

Le problème c'est lorsque je commence à enregistrer la macro je sélectionne une certaine cellule (au hasard), la macro fonctionne seulement lorsque cette cellule est sélectionnée...

Merci

Bonjour
à mon avis et du coté conception, il est à mon avis recommandé de faire avec 3 feuilles
Achats - Montage - Stock et éviter l'insertion des lignes surtout que t'as pas des connaissance en VBA

Re
Attention je suis Aussi débutant VBA
voila comment insérer une ligne suivant ton choix :

Code:

---

1 2 3 4 5 6 7

Sub test() Dim ref As String ref = InputBox("veuillez entrer la référence de la ligne à insérer") With Sheets("feuil1") Rows(ref).Resize(1).Insert End With End Sub

---

Citation:

---

Je vous met mon document en pièce jointe

---

lis donc la dernière phrase de ma signature et ceci :
https://www.developpez.net/forums/d8...s-discussions/
Je ne t'ai en aucun cas (et pour cause) demandé ton classeur en pièce jointe, mais ceci, pour mémoire :

Citation:

---

Quel code as-tu au moins tenté d'écrire pour parvenir à tes fins (montre-le ici entre balises code, s'il te plait) ?

---

Et je t'ai également posé cette question, restée sans réponse :

Citation:

---

2) quels sont les éléments (lignes, colonnes) de ce "tableau" ? Sont-ils des constantes ou des résultats de formules ?

---

Sauf à t'y conformer, ne compte pas sur mon aide !

Excusez-moi j'avais pas vu

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub InsertLigneTableauAchats() ' ' InsertLigneTableauAchats Macro ' Cette macro permet d'inserer une ligne à la fin du tableau achats '   ' Selection.ListObject.ListRows.Add AlwaysInsert:=True Range("A11").Select End Sub

---

2) quels sont les éléments (lignes, colonnes) de ce "tableau" ? Sont-ils des constantes ou des résultats de formules ?

Il n'y aucune formule dans mon tableau, lignes : n°facture et colonne : type de produit


Merci

Bonjour,
Je ne comprends pas bien où se situe ton problème. Si tu ajoutes des données à la fin d'un tableau Excel, la nouvelle ligne s'intègre automatiquement au tableau.
Quel est le but de ton insertion de ligne ? Quelles sont les données que tu veux ajouter ?
Peut-être qu'il serait plus facile pour nous de le comprendre si tu nous joint une copie d'écran de ton tableau.

J'aimerais créer une macro que j'affecterai à un bouton. Lorsqu'on clique sur le bouton, une ligne s'ajoute en s'intégrant automatiquement au tableau. L'utilisateur aura ensuite pour mission de compléter manuellement le tableau.

Je vois toujours pas à quoi te sert la macro :
Pièce jointe 305203

La personne qui va utilisée ce document n'y connais rien en excel.


Je sais que le tableau prend en compte automatiquement les données saisies en suivant mais je veux INSERER une ligne, une nouvelle ligne en cliquant sur un bouton et qu'elle s'intègre au tableau.

J'ai essayé de mettre une copie écran

Merci beaucoup pour vos réponses

Ah ok, c'est parce qu'il y a une ligne de total en dessous du tableau que c'est important d'insérer une ligne. Je te propose ceci :

Code:

---

1 2 3 4 5 6

Sub ajoutLigne() Dim nvlLig As Long nvlLig = Range("A" & Rows.Count).End(xlUp).Row - 1 'ligne juste en dessous du tableau Rows(nvlLig).Insert 'insertion d'une ligne juste en dessous du tableau ActiveSheet.ListObjects("Tableau1").Resize Range("A1:A" & nvlLig) 'redimensionnement du tableau pour prendre en compte la dernière ligne. End Sub

---

A adapter à ton document (mon tableau comportait seulement la colonne A).

Merci, c'est déjà plus clair mais je n'arrive pas à l'adapter à mon tableau

Merci

C'est-à-dire ? Ton tableau est sur les colonnes A à G et commence à la ligne 3. On adapte le code :

Code:

---

1 2 3 4 5 6

Sub ajoutLigne() Dim nvlLig As Long nvlLig = Range("A" & Rows.Count).End(xlUp).Row - 1 'ligne juste en dessous du tableau Rows(nvlLig).Insert 'insertion d'une ligne juste en dessous du tableau ActiveSheet.ListObjects("Tableau1").Resize Range("A3:G" & nvlLig) 'redimensionnement du tableau pour prendre en compte la dernière ligne. End Sub

---

EDIT : i lfaut bien sûr aussi adapter le nom tu tableau.

Youpiiiiii !

Merci beaucoup !!

Bonjour, désolé de faire remonter le post mais je cherchais également la solution pour insérer un ligne à la fin d'un objet tableau.
Je me permet de proposer la solution que j'ai utilisé, plus simple je pense, si ça peut servir à d'autres.

Ps : mon tableau à une ligne de total et la nouvelle ligne est bien insérée entre la dernière ligne et la ligne de total.

Code:

---

Sheets("maFeuille").ListObjects("monTableau").ListRows.Add

---