Discussion :

[n.danse]

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

[unparia]

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

[n.danse]

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

[BENNASR]

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

[BENNASR]

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

Code :

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

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

[unparia]

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 :

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 :

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 !

[n.danse]

Excusez-moi j'avais pas vu

Code :

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

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

[riaolle]

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.

[n.danse]

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.

[riaolle]

Je vois toujours pas à quoi te sert la macro :

[n.danse]

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

[riaolle]

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 :

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

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

[n.danse]

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

Merci

[riaolle]

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

Code :

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

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.

[n.danse]

Youpiiiiii !

Merci beaucoup !!

[siyas]

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 :

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

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