Discussion :

[Vba14]

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.

[Invité]

Bonjour,

Il serait plus simple de travailler avec un objet ListRow. Le code ci-dessous est à adapter pour que les colonnes soient remplies avec les bons champs. J'ai neutralisé vos lignes de codes simplement pour illustrer l'exemple. Je suppose par ailleurs que le tableau commence en colonne A.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Private Sub bouton1_Click()
'Dim DL As Integer
Dim MonArticle As ListRow
 
   ' 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
 
        Set MonArticle = 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 MonArticle
 
            .Range(1, 2) = "B"
            .Range(1, 3) = "C"
            .Range(1, 5) = "E"
            .Range(1, 6) = "F"
            .Range(1, 7) = "G"
            .Range(1, 8) = "H"
            .Range(1, 9) = "I"
            .Range(1, 12) = "L"
            .Range(1, 14) = "N"
 
        End With
 
        Set MonArticle = Nothing
 
 
     '   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

[Vba14]

Bonjour Eric,

Merci pour votre participation. Mon tableau commence en colonne B.

Je vais regarder votre code et le tester en directe dans mon appli et je reviens vous dire ce qu'il en est.

[Invité]

Mon tableau commence en colonne B.

Dans ce cas, il faut simplement modifier les numéros de colonne dans les lignes .Range(1,...) = "XXXX"

[Vba14]

J'ai fait un premier test, et dans mes colonnes du tableau arrivent les lettres du code : Par exemple

Code :

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

1
2
 
.Range(1,1)="B" alors la lettre B arrive en colonne B

Je regarde un peu plus près, j'ai encore dû me planter quelque part ....

[Vba14]

J'ai résolu ce problème. Mais j'en rencontre un autre, lorsque je fais une nouvelle saisie, il me créé systématiquement une ligne vide entre la dernière saisie et la nouvelle.

Voici le code complet

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
 
Private Sub bouton1_Click()
Dim MonArticle As ListRow
 
    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
 
        Set MonArticle = Sheets("Articles").ListObjects(1).ListRows.Add
 
        'On ajoute les articles au tableau
        With MonArticle
        .Range(1, 1) = Me.Label_NumEnr.Caption
        .Range(1, 2) = Me.Cmb_Fourn
        .Range(1, 4) = Me.Txt_Design
        .Range(1, 5) = Me.Txt_Descrip
        .Range(1, 6) = CDbl(Me.Txt_PAHT)
        .Range(1, 7) = Me.Cmb_Tva
        .Range(1, 8) = CInt(Me.Txt_Nobre)
        .Range(1, 10) = CInt(Me.Txt_Stock)
        .Range(1, 13) = "Active"
        End With
        Set MonArticle = Nothing
 
        Sheets("Données").Range("C4") = Sheets("Données").Range("C4") + 1
 
        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