Bonjour à tous,

J'ai mis en place ce code qui me permet de remplir un tableau dans une feuille de calcul à partir d'un Uf. Je n'ai rencontré aucun problème lors du remplissage de la 1ère ligne du tableau.
Lorsque que j'ai voulu en saisir une 2ème, 2 messages sont apparus au moment de la validation à partir de l'UF :

J'ai déjà utilisé ce code par ailleurs et il fonctionne bien, dans cette application il bug, je ne comprends pas !!

1 - "La méthode ADD a échoué"

2 - Erreur système & H80010108 (-2147417848). L'objet invoqué s'est déconnecté de ses clients.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
Private Sub bouton1_Click()
Dim DL As Integer
 
    If Me.Txt_Descrip <> "" And Me.Txt_Design <> "" And Me.Txt_PAHT <> "" And Me.Txt_Stock <> "" And Me.Cmb_Fourn.ListIndex <> "" And Me.Cmb_Tva.ListIndex <> "" Then
 
        Sheets("Articles").ListObjects(1).ListRows.Add
               DL = Sheets("Articles").Range("B1048546").End(xlUp).Row
 
        'On ajoute les articles au tableau de la feuille "Articles"
        With Sheets("Articles")
        .Range("B" & DL) = Me.Label_NumEnr.Caption
        .Range("C" & DL) = Me.Cmb_Fourn
        .Range("E" & DL) = Me.Txt_Design
        .Range("F" & DL) = Me.Txt_Descrip
        .Range("G" & DL) = CDbl(Me.Txt_PAHT)
        .Range("H" & DL) = Me.Cmb_Tva
        .Range("I" & DL) = CInt(Me.Txt_Nobre)
        .Range("L" & DL) = CInt(Me.Txt_Stock)
        .Range("N" & DL) = "Active"
 
        'On ajoute +1 à la cellule C4 de la feuille "Données" - ART-00001 + 1 = ART-00002
        Sheets("Données").Range("C4") = Sheets("Données").Range("C4") + 1
        End With
 
        'On efface ce qu'il ya dans les contrôles de l'UF
        Me.Cmb_Fourn = ""
        Me.Txt_Design = ""
        Me.Txt_Descrip = ""
        Me.Txt_PAHT = ""
        Me.Cmb_Tva = ""
        Me.Txt_Nobre = ""
        Me.Txt_Stock = ""
        ThisWorkbook.Save
     End If
End Sub
Merci par avance pour votre aide.