Autres Erreur d'execution '438'

[Ryadhb13]

Bonsoir tout le monde , j'ai crée sur excel 2007 une application de comptabilité qui j'ai vue sur YouTube, et je suis coincé sur un code vba pour transfert des données d'un tableau vers d'autre tableaux , a chaque fois que je clique sur le bouton un message qui s'affiche message (Erreur d’exécution '438'), je suis vraiment besoin de votre aide , vous trouvez ci-joint mon fichier,et merci d'avance.

 

[sylvanu]

Bonsoir Ryadhb,
Vous avez oublié de préciser avec quel tableau vous vouliez travailler :

'^^^^^^^^^^^^^^^^^^^^^^^ controle
'prendre les information et les placer dans la bonne bas de données
If controle = True Then

 Dim nombre As Long
 nombre = ActiveSheet.[Tableau1].ListObjects.ListRows  ' Ajout de Tableau1'

(NB : Je n'ai pas testé le reste, mais l'erreur 438 a disparu )

 

[Ryadhb13]

Bonsoir Ryadhb,
Vous avez oublié de préciser avec quel tableau vous vouliez travailler :

'^^^^^^^^^^^^^^^^^^^^^^^ controle
'prendre les information et les placer dans la bonne bas de données
If controle = True Then

Dim nombre As Long
nombre = ActiveSheet.[Tableau1].ListObjects.ListRows  ' Ajout de Tableau1'

(NB : Je n'ai pas testé le reste, mais l'erreur 438 a disparu )

merci pour votre repense, mais l'erreur 438 n'a pas encore disparu, c'est toujours le même problème

 

[sylvanu]

Mille excuses.
En PJ (testée )
J'ai mis :

Nombre de lignes
nombre = [Tableau1].Rows.Count
effacement tableau
[Tableau1].ListObject.DataBodyRange.Delete
Add ligne
[Tableau1].ListObject.ListRows.Add

Je n'ai plus d'erreur de mon coté, mais pas sur d'avoir tout testé.

 

[Ryadhb13]

l'erreur 438 est disparu je ne sais commet je te remercie, vous me sauver la vie.bonne soirée