Autres Erreur d'execution '438'

Ryadhb13 · 15 Janvier 2021

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 · 15 Janvier 2021

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

VB:

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

sylvanu · 15 Janvier 2021

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

VB:

'^^^^^^^^^^^^^^^^^^^^^^^ 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 · 15 Janvier 2021

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

VB:

'^^^^^^^^^^^^^^^^^^^^^^^ 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 · 15 Janvier 2021

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

VB:

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 · 15 Janvier 2021

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

Autres Erreur d'execution '438'

Ryadhb13

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Ryadhb13

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Ryadhb13

XLDnaute Nouveau

Discussions similaires