VBA - ajout d'une ligne à un tableau existant

Bonjour à tous,
Je travaille sur la création d'un tableau qui se remplit sur la base d'un formulaire.
Le souci que je rencontre est au niveau de cette ligne de code et je ne trouve pas d'où vient l'erreur et comment la corriger:(

If Sheets("feuil2").Range("a2") = "" Then
Sheets("feuil2").Range("a2") = TextBox7
Else
Sheets("feuil2").ListObjects(1).ListRows.Add
End If

ça se situe ici : Sheets("feuil2").ListObjects(1).ListRows.Add
j'avais tenté de désigner dans la feuille 2 les limites du tableau en l'appelant "tableau1" mais même en changeant ListObjects(1) en ListObjects("tableau1"), ça bugge qd mm ...
Pourriez vous avoir la gentillesse de m'expliquer comment réparer ce bug ?
merci beaucoup d'avance, c'est une première étape d'un long processus de programmation et se retrouver bloquée au début, ce ne laisse rien présager de bon pour la suite :?

Bonjour

Citation:

---

Je travaille sur la création d'un tableau qui se remplit sur la base d'un formulaire.

---

ton tabeau est dans l'onglet "Feuil1" alors que ton formulaire envoie les données à l'onglet "Feuil2"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub CommandButton1_Click() If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or ComboBox1 = "" Then MsgBox ("Toutes les informations ne sont pas remplies") Else If Sheets("feuil2").Range("a2") = "" Then Sheets("feuil2").Range("a2") = TextBox7.Value Else Sheets("feuil2").ListObjects("tableau1").ListRows.Add End If   dlt = Sheets("feuil2").Range("d1048576").End(xlUp).Row   Sheets("feuil2").Range("a" & dlt) = TextBox7 Sheets("feuil2").Range("b" & dlt) = TextBox6 Sheets("feuil2").Range("c" & dlt) = TextBox5 Sheets("feuil2").Range("d" & dlt) = TextBox1 Sheets("feuil2").Range("e" & dlt) = ComboBox1 Sheets("feuil2").Range("f" & dlt) = TextBox4 Sheets("feuil2").Range("g" & dlt) = TextBox3 Sheets("feuil2").Range("h" & dlt) = TextBox2 Unload Me 'End If End Sub

---

j'arrive pas à comprendre le but de ce partie du code??? et le but que tu cherches à atteindre ??

Code:

---

1 2 3 4 5

If Sheets("feuil2").Range("a2") = "" Then Sheets("feuil2").Range("a2") = TextBox7.Value Else Sheets("feuil2").ListObjects("tableau1").ListRows.Add End If

---

Merci de donner un peu plus d'explication
BONNE JOURNEE A TOUTES & A TOUS

Tout d'abord, merci d'avoir pris le temps de regarder :)
ce formulaire a deux buts :
- remplir le tableau en feuil 1 qui est une feuille de temps : informatiquement, elle sera ensuite signée par le responsable pour validation
- créer une BDD en feuille 2 qui sera ensuite versée en automatique sous ACCESS.
Cette feuille d'heure est pour l'instant limitée à un seul service alors que les données récupérées en feuille 2 seront versées dans une table ACCESS générale à l'entreprise. Je ne sais pas si c'est clair comme explication ?

Ce que je cherche à faire dans la feuille 2, c'est ajouter les enregistrements du formulaire à la suite et qu'une nouvelle entrée n'écrase pas ceux qui existent déjà ?
je suis une débutante sous VBA alors peut être que je n'ai pas la bonne démarche, c'est une possibilité :oops:

Bonjour

Je ne vois pas de listobject dans ton classeur.

Tu as juste nommé Tableau1 une plage de cellules ce qui donne une plage nommée, pas un listobject.

Un listobject est un tableau structuré obtenu via le bouton "Mettre sous forme de tableau" en étant au préalable placé sur un des titres et en ne définissant surtout pas de plage autres que celle proposée $A$1:$H$1 et en cochanrt "Mon tableau comporte des en-têtes.

La taille de la plage sera gérée par Excel ce qui permet de faire fonctionner add...

Re bonjour
un peu plus claire et ensemble on peut avancer
Un point à éclairer : Pour un jour tu peux pas avoir plus qu'une ligne??? surtout que tu viens de dire :

Citation:

---

Cette feuille d'heure est pour l'instant limitée à un seul service alors que les données récupérées en feuille 2 seront versées dans une table ACCESS générale à l'entreprise.

---

??? car je voix en feuil2 tu n'a réserver qu'une seule ligne par jour

MERCI BEAUCOUP !!!! j'ai compris où était mon erreur :)
encore une fois merci pour la réponse si rapide, y a plus qu'à modifier et continuer l'aventure