Macro pour ajouter une personne dans ma base de données

**IK00010** · 18/11/2019, 17h32

Bonjour chers tous je ne suis pas un expert en réalisation de macro, mais je suis confronté à un problème auquel je suis confus.
d'abord j'ai crée un bouton macro sur mon formulaire qui me permet d'ajouter chaque nouvelle personne intégrée dans ma base de données. À chaque fois quand il y a une nouvelle personne que je dois ajouter dans ma base, la macro ne s'exécute pas. Il y a un message qui s'affiche erreur d'exécution '1004'.
Par la suite le second message s'affiche le mot de paste de la classe Worksheet a échoué. Je ne comprends pas comment faire ?
j'ai besoin d'aide.

**Mr l'Ashanti** · 18/11/2019, 21h00

bonjour. En prime à bord, il n'est pas très aisé d'ouvrir des fichiers au premier post. pouvez vous poster le code?
votre tableau est il un tableau structuré?

**Mr l'Ashanti** · 18/11/2019, 21h20

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ajouter()
 
Dim i%
    If TextBox1 <> "" Then
        Sheets("BD").ListObjects("Tableau1").ListRows.Add
            i = Sheets("DB").Range("A" & Rows.Count).End(xlUp).Row
            With Sheets("BD")
                .Range("A" & i) = TextBox1
                .Range("B" & i) = TextBox2
            End With
    End If
 
End Sub

essaie avec ce code

**IK00010** · 19/11/2019, 10h49

Bonjour Mr l'Ashanti ,
*Je viens de voir la reponse*a*mon mail hier , franchement* en toute sincerite*comment inserer la formule dans mon macro pour que cela .*J'ai des difficultés d'inserer*,si vous pouvez le faire pour moi ou bien montrer moi la procedure d'insertion pour la macro marche.Hier je vous ai envoyé le fichier jont.