Discussion :

[thefamille]

bonjour à tous,

je suis plutôt novice en vba
je me retrouve bloqué avec un plantage au moment où mon code doit insérer une nouvelle ligne à un tableau avec le message
"erreur d'exécution 438
propriété ou méthode non géré par cet objet"

mon code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Bouton_Créer_Click()
'création de la variable dl = dernière ligne
Dim dl As Integer
 
'si article et unité ne sont pas vide
If Me.TB_Article <> "" And Me.CB_Unité <> "" Then
 
    Sheets(5).ListOjects(1).ListRows.Add 'ajouter une ligne au tableau
    dl = Sheets(5).Range("A99999").End(xlUp).Row 'aller à la dernière ligne du tableau

dans mon fichier j'ai un autre tableau similaire pour lequel le mâme de code fonctionne très bien.

merci d'avance pur votre aide

[ARTURO83]

Bonjour,
Mettre la recherche de la dernière ligne en premier, puis

Code :

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

1
2
 dl = Sheets(5).Range("B" & Rows.Count).End(xlUp).Row 'aller à la dernière ligne du tableau
    Sheets(5).Cells(dl, 1).ListObject.ListRows.Add AlwaysInsert:=False 'ajouter une ligne au tableau

et pour toutes les lignes suivantes, ajouter 1 à "dl"

Code :

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

1
2
3
   'ajouter dans le tableau
    Sheets(5).Range("A" & dl + 1) = Me.ET_ID_Article
    Sheets(5).Range("B" & dl + 1) = Me.TB_Article

Cdlt

[thefamille]

ARTURO83,
je viens d'essayer ta solution, mais çà me plante complétement Excel.
je me demande, si je n'ai pas un problème sur la feuille 5 (article) ?

[ARTURO83]

je viens d'essayer ta solution, mais çà me plante complétement Excel.

Ouvrez visual basic

Exécutez la procédure Private Sub Bouton_Créer_Click() mettez un point d'arrêt devant la ligne If Me.TB_Article <> "" And Me.CB_Unité <> "" Then, ouvrez le formulaire, remplissez-le et cliquez sur le bouton "Créer".
Le programme va s'arrêter au niveau de la ligne marquée du point d'arrêt, continuez en pas à pas avec la touche F8 et relevez la ligne qui fait défaut.

[thefamille]

re

ça marche mais il a fallu que je mette TRUE sur le code proposé

Code :

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

1
2
dl = Sheets(5).Range("B" & Rows.Count).End(xlUp).Row 'aller à la dernière ligne du tableau
Sheets(5).Cells(dl, 1).ListObject.ListRows.Add AlwaysInsert:=False 'ajouter une ligne au tableau

merci beaucoup