tableau structuré - userform - vba

Version imprimable

Bonjour,

Je cherche à faire une macro de gestion de budget. Mon code fonctionnait mais je ne sais pas pourquoi il bug.
J'ai une userform qui est rempli, en fonction d'une valeur dans une combobox j'ajoute une ligne dans le bon tableau et copie les données de la userform.

J'ai une erreur de type 31 sur les lignes de code de ce genre :

[Tableau_BNP].Rows([Tableau_BNP].Rows.Count) = Array(TextBox_Type_de_depense.Value, TextBox_Description.Value, TextBox_Montant.Value, CDate(TextBox_Daate.Value))

Pourriez-vous m'aider à corriger ce bug svp.

Code:

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
 
Private Sub CommandButton1_Click()
'Option Compare Text
 
Dim Compte As Variant
Dim LastLine As Integer
 
Compte = (ComboBox_Compte.Value)
 
Select Case Compte
'on ajoute une ligne ddans le bon tableau pour copier les ?lements de la USERFORM
 
    Case "Compte BNP"
        ActiveSheet.ListObjects("Tableau_BNP").ListRows.Add
        LastLine = ActiveSheet.ListObjects("Tableau_BNP").DataBodyRange.Rows.Count
        [Tableau_BNP].Item(LastLine, 1).Select
        If [Tableau_BNP].Item(LastLine, 1) = "" Then
            [Tableau_BNP].Rows([Tableau_BNP].Rows.Count) = Array(TextBox_Type_de_depense.Value, TextBox_Description.Value, TextBox_Montant.Value, CDate(TextBox_Daate.Value))
            Else: MsgBox "Arr?t du programme car on risquait d'?craser des donn?es!"
        End If
 
    Case "Compte LBP"
        ActiveSheet.ListObjects("Tableau_LBP").ListRows.Add
        LastLine = ActiveSheet.ListObjects("Tableau_LBP").DataBodyRange.Rows.Count
        [Tableau_LBP].Item(LastLine, 1).Select
        If [Tableau_LBP].Item(LastLine, 1) = "" Then
            [Tableau_LBP].Rows([Tableau_LBP].Rows.Count) = Array(TextBox_Type_de_depense.Value, TextBox_Description.Value, TextBox_Montant.Value, CDate(TextBox_Daate.Value))
            Else: MsgBox "Arr?t du programme car on risquait d'?craser des donn?es!"
        End If
 
    Case "CAISSE"
        ActiveSheet.ListObjects("Tableau_CAISSE").ListRows.Add
        LastLine = ActiveSheet.ListObjects("Tableau_CAISSE").DataBodyRange.Rows.Count
        [Tableau_CAISSE].Item(LastLine, 1).Select
        If [Tableau_CAISSE].Item(LastLine, 1) = "" Then
            [Tableau_CAISSE].Rows([Tableau_CAISSE].Rows.Count) = Array(TextBox_Description.Value, TextBox_Montant.Value)
            Else: MsgBox "Arr?t du programme car on risquait d'?craser des donn?es!"
        End If
End Select
 
If UCase(TextBox_Description.Value) Like "*RETR*" Then
        ActiveSheet.ListObjects("Tableau_CAISSE").ListRows.Add
        LastLine = ActiveSheet.ListObjects("Tableau_CAISSE").DataBodyRange.Rows.Count
        [Tableau_CAISSE].Item(LastLine, 1).Select
        If [Tableau_CAISSE].Item(LastLine, 1) = "" Then
            [Tableau_CAISSE].Rows([Tableau_CAISSE].Rows.Count) = Array(TextBox_Description.Value & " " & ComboBox_Compte.Value & " " & CDate(TextBox_Daate.Value), TextBox_Montant.Value)
            Else: MsgBox "Arr?t du programme car on risquait d'?craser des donn?es!"
        End If
End If
 
 
' Transfer d'argent entre compte BNP & la poste
 
If ComboBox_Provenance.Value = "Compte BNP" Then
        ActiveSheet.ListObjects("Tableau_BNP").ListRows.Add
        LastLine = ActiveSheet.ListObjects("Tableau_BNP").DataBodyRange.Rows.Count
        '[Tableau_BNP].Item(LastLine, 1).Select
        If [Tableau_BNP].Item(LastLine, 1) = "" Then
            [Tableau_BNP].Rows([Tableau_BNP].Rows.Count) = Array(TextBox_Type_de_depense.Value, TextBox_Description.Value, TextBox_Montant.Value, CDate(TextBox_Daate.Value))
            Else: MsgBox "Arr?t du programme car on risquait d'?craser des donn?es!"
        End If
End If
 
 
If ComboBox_Destination.Value = "Compte BNP" Then
        ActiveSheet.ListObjects("Tableau_BNP").ListRows.Add
        LastLine = ActiveSheet.ListObjects("Tableau_BNP").DataBodyRange.Rows.Count
        '[Tableau_BNP].Item(LastLine, 1).Select
        If Tableau_BNP.Item(LastLine, 1) = "" Then
            [Tableau_BNP].Rows([Tableau_BNP].Rows.Count) = Array(TextBox_Type_de_depense.Value, TextBox_Description.Value, TextBox_Montant.Value, CDate(TextBox_Daate.Value))
            Else: MsgBox "Arr?t du programme car on risquait d'?craser des donn?es!"
        End If
End If
 
 
If ComboBox_Provenance.Value = "Compte LBP" Then
        ActiveSheet.ListObjects("Tableau_LBP").ListRows.Add
        LastLine = ActiveSheet.ListObjects("Tableau_LBP").DataBodyRange.Rows.Count
        '[Tableau_LBP].Item(LastLine, 1).Select
        If [Tableau_LBP].Item(LastLine, 1) = "" Then
            [Tableau_LBP].Rows([Tableau_LBP].Rows.Count) = Array(TextBox_Type_de_depense.Value, TextBox_Description.Value, TextBox_Montant.Value, CDate(TextBox_Daate.Value))
            Else: MsgBox "Arr?t du programme car on risquait d'?craser des donn?es!"
        End If
End If
 
 
If ComboBox_Destination.Value = "Compte LBP" Then
        ActiveSheet.ListObjects("Tableau_LBP").ListRows.Add
        LastLine = ActiveSheet.ListObjects("Tableau_LBP").DataBodyRange.Rows.Count
        '[Tableau_LBP].Item(LastLine, 1).Select
        If [Tableau_LBP].Item(LastLine, 1) = "" Then
            [Tableau_LBP].Rows([Tableau_LBP].Rows.Count) = Array(TextBox_Type_de_depense.Value, TextBox_Description.Value, TextBox_Montant.Value, CDate(TextBox_Daate.Value))
            Else: MsgBox "Arr?t du programme car on risquait d'?craser des donn?es!"
        End If
End If
 
 
Unload UserForm1
 
End Sub

08/12/2020, 18h43
Philippe Tulliez

Bonjour,
Je vous conseille la lecture du billet de Pierre Fauconnier titré Tableaux structurés VBA: AJouter une ligne dans un tableau structuré et y placer des valeurs
Et comme vous évoquez un UserForm et les tableaux structurés, je ne peux que vous conseiller la lecture de cette contribution du même auteur Modélisation des liaisons entre userform et table de données Excel (tableau structuré)
08/12/2020, 20h17
akim_59330

Merci pour votre retour.
J'ai lu ces 2 tickets, ils m'ont beaucoup apporté, j'ai su lier les infos des userform avec le tableau structuré. Ces 2 contributions m'ont permis d'utiliser les propriétés des tableaux structurés pour trouver la dernière ligne et insérer une ligne.
Par contre je ne parviens pas à écrire dans ce tableau.
Le code fonctionnait et d'un coup j'ai ce bug qui apparait et je suis bloqué.
08/12/2020, 20h49
Philippe Tulliez

Bonjour,

Citation:

Par contre je ne parviens pas à écrire dans ce tableau.
Le code fonctionnait et d'un coup j'ai ce bug qui apparait et je suis bloqué.

Avec cette seule information et sans code publié avec indication du nom du tableau, vous comprendrez, j'imagine, qu'il est difficile de vous aider, à moins d'être devin.
08/12/2020, 20h58
akim_59330

1 pièce(s) jointe(s)

Salut Mickael,

Le problème venait bien du Cdate. Si je ne mets pas de date ou que l'entrée ne correspond pas à une date alors j'ai une erreur.
Avant l'ajout du CDATE, le code fonctionnait.

Merci pour votre aide.

Akim
08/12/2020, 21h38
mfoxy

Bonsoir,

Tout comme Philippe que je plussoie, je te conseille,vivement, de (re) lire les tutos de Pierre.

Chacun travail comme il le veux ,mais a première vue, pour avoir lu,relu,étudié, tester, les consignes pro donné ici et là par Pierre et Philippe, je peux t'assurer qu'une relecture s'impose.

Pour ton erreur, si tout fonctionnait bien "avant", le top c'est de savoir avant quoi, lol.

Ne serait-ce pas avant que tu ajoutes un Cdate sans vérifier que la TXTbox contienne bien un Texte qui pourrait-etre 'traduit' en date ( comme indiqué tout à l'heure dans la rubrique contribuez ?)

Perso, je n'ouvre pas les fichiers joints, pour des raisons de sécurité.

Bat,
08/12/2020, 23h38
Philippe Tulliez

Bonjour,

Citation:

Le problème venait bien du Cdate. Si je ne mets pas de date ou que l'entrée ne correspond pas à une date alors j'ai une erreur

C'est le rôle d'une procédure de contrôle qui doit se situer en amont de l'écriture.
Dans le formulaire d'encodage (UserForm), soit on vérifie contrôle par contrôle si la donnée introduite correspond bien à ce qu'on attend (ici la date) soit le contrôle se fait au moment où l'utilisateur souhaite écrire ce qui l'a encodé et là soit un message lui indique les contrôles qui sont mal encodés soit l'écriture peut avoir lieu.

La procédure de vérification est en général une fonction booléenne qui permet ainsi en fonction du résultat renvoyé, d'afficher le message indiquant le mauvais encodage soit de continuer la procédure en lançant l'écriture.