VBA ViewList compilation

**stevaux74** · 03/03/2013, 20h12

Salut ts le monde,

Je commence en VBA et j'essaye de construire un fichier qui permette aux utilisateurs de completer leurs notes de frais.

Je souhaite utiliser un userform avec a l interieur une liste view qui affiche directement quand on appuye sur un bouton les résultat(UserFormBusinesstrip)

J'ai deux questions:

J'arrive bien a affiché un resultat dans la premiere collone de ma listview mais impossible de trouver le code pour la deuxieme colonnes ainsi que les autres.

Est il possible également d'avoir la somme de la colonne currency payment qui s'affiche dans la texte box totalexp.

Merci pour votre aide.

**Daniel.C** · 04/03/2013, 12h15

Bonjour,

Modifie ton code comme suit (je n'ai rempli que la seconde colonne), je ne suuis pas sûr de ce qu'il faut mettre dans les autres.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButtonAddexp_Click() 'Remplissage de listview avec les expenses
With ListViewExpense
      With .ListItems 'premiere ligne
        .Add , , TextBoxReceiptdate.Value
      End With
      With .ListItems(1)
        .ListSubItems.Add , , ComboBoxGl.Value
      End With
End With
TextBoxReceiptdate.Value = Clear
End Sub

Il suffit d'ajouter autant de lignes :

Code :

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

.ListSubItems.Add , , ComboBoxGl.Value

que de colonnes à remplir.

Est il possible également d'avoir la somme de la colonne currency payment qui s'affiche dans la texte box totalexp.

Oui, fais un total dans une variable au fur et à mesure que tu remplis la listview ett mets ce total dans la textbox.

**stevaux74** · 04/03/2013, 22h16

Salut Daniel,

Un grand merci pour ton aide. Je suis resté bloqué ts le weekend

Pour l'ajout des valeurs ds la listview j'ai utilisé le code que tu m'a donné. Ça marche pour la première ligne. mais pour la deuxième ligne ça ne s'affiche pas.

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
Private Sub CommandButtonAddexp_Click() 
With ListViewExpense
      With .ListItems 'premiere ligne
      .Add , , TextBoxReceiptdate.Value
      End With
      With .ListItems(1) ' les autre colonnes
        .ListSubItems.Add , , TextBoxGldesc.Value 
        .ListSubItems.Add , , TextBoxProjectcode.Value
        .ListSubItems.Add , , TextBoxBudget.Value
        .ListSubItems.Add , , TextBoxLcy.Value
        .ListSubItems.Add , , TextBoxexr.Value
        .ListSubItems.Add , , TextBoxAmount.Value 
        .ListSubItems.Add , , TextBoxComments.Value
        .ListSubItems.Add , , TextBoxComments.Value
      End With
End With  
TextBoxReceiptdate.Value = Clear
TextBoxGldesc.Value = Clear
TextBoxProjectcode.Value = Clear
TextBoxBudget.Value = Clear
TextBoxLcy.Value = Clear
TextBoxexr.Value = Clear
TextBoxAmount.Value = Clear
TextBoxComments.Value = Clear
End Sub

Pour le total je ne comprends pas. Rigole pas en lisant mon message.

"Oui, fais un total dans une variable au fur et à mesure que tu remplis la listview ett mets ce total dans la textbox."

Faut ajouter cela dans un module ? du genre qqchose comme ca :

Code :

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

1
2
3
4
Sub TextBoxTotalexp()
    Dim TextBoxTotalexp As Currency
    TextBoxTotalexp = Sum(ListViewExpense.ListSubItems(i))
End Sub

???
Merci pour ton aide.

**Daniel.C** · 04/03/2013, 22h45

Je n'ai pas eu le temps de tester; en tête du module :

Code :

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

Public Ctr As Integer, Tot As Double

en suite remplace la macro par :

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
Private Sub CommandButtonAddexp_Click() 'Remplissage de listview avec les expenses
With ListViewExpense
      Tot = 0
      Ctr = 0
      With .ListItems 'premiere ligne
        .Add , , TextBoxReceiptdate.Value
      End With
      Ctr = Ctr + 1
      With .ListItems(Ctr)
        .ListSubItems.Add , , TextBoxGldesc.Value
        .ListSubItems.Add , , TextBoxProjectcode.Value
        .ListSubItems.Add , , TextBoxBudget.Value
        .ListSubItems.Add , , TextBoxLcy.Value
        .ListSubItems.Add , , TextBoxexr.Value
        .ListSubItems.Add , , TextBoxAmount.Value
        .ListSubItems.Add , , TextBoxComments.Value
        .ListSubItems.Add , , TextBoxComments.Value
        Tot = Tot + CDbl(TextBoxAmount)
        TextBoxTotalexp = Format(Tot, "#0.00")
      End With
End With
TextBoxReceiptdate.Value = Clear
End Sub

**stevaux74** · 05/03/2013, 14h57

Salut Daniel,

J'ai essayé le code fonctionne parfaitement pour la premiere ligne avec le total mais quand je passe une nouvelle saisie les données ne s'affiche pas dans la listview et le total est uniquement celui de la derniere saisie.

J'ai rajouté un module aux userforms et placé ton premier code. Je nettoie également les formulaires avec le code a la fin ça pose peut etre un souci?

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
Private Sub CommandButtonAddexp_Click() 'Remplissage de listview avec les expenses
With ListViewExpense
      Tot = 0
      Ctr = 0
      With .ListItems 'premiere ligne
        .Add , , TextBoxReceiptdate.Value
      End With
      Ctr = Ctr + 1
      With .ListItems(Ctr)
        .ListSubItems.Add , , TextBoxGldesc.Value
        .ListSubItems.Add , , TextBoxProjectcode.Value
        .ListSubItems.Add , , TextBoxBudget.Value
        .ListSubItems.Add , , TextBoxLcy.Value
        .ListSubItems.Add , , TextBoxexr.Value
        .ListSubItems.Add , , TextBoxAmount.Value
        .ListSubItems.Add , , TextBoxComments.Value
        Tot = Tot + CDbl(TextBoxAmount)
        TextBoxTotalexp = Format(Tot, "#0.00")
      End With
End With  ' nettoie les cases pour nouvelles saisies
TextBoxReceiptdate.Value = Clear
TextBoxGldesc.Value = Clear
TextBoxProjectcode.Value = Clear
TextBoxBudget.Value = Clear
TextBoxLcy.Value = Clear
TextBoxexr.Value = Clear
TextBoxAmount.Value = Clear
TextBoxComments.Value = Clear
End Sub

**Daniel.C** · 05/03/2013, 17h22

Au temps pour moi; ça doit fonctionner mieux :

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
Private Sub UserForm_Initialize() ' c'est bien userform qui doit etre ecrit
Tot = 0
Ctr = 0
ComboBoxCurrencypayment.RowSource = ("CURRENCY") 'definit les données pr la currency
ComboBoxcurrencycashreceive.RowSource = ("CURRENCY")
CheckBoxCashreceive = False
FrameCashreceive.Visible = False
CheckBoxManualledger = False
TextBoxManualledger.Visible = False
CheckBoxOrlcy = False
FrameLcy.Visible = False
With ListViewExpense
        'Définit le nombre de colonnes et Entêtes
        With .ColumnHeaders
            'Ajoute colonnes en spécifiant le nom de l'entête
            'et la largeur des colonnes
            .Add , , "Receipt date", 70
            .Add , , "GL Code Description", 100
            .Add , , "Project", 70
            .Add , , "Budget Line", 70
            .Add , , "Local Currency", 70
            .Add , , "Exchange Rate", 70
            .Add , , "Currency Payment", 90
            .Add , , "Comments", 200
        End With
    End With
    'Spécifie l'affichage en mode "Détails"
    ListViewExpense.View = lvwReport
End Sub

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
Private Sub CommandButtonAddexp_Click() 'Remplissage de listview avec les expenses
With ListViewExpense
      With .ListItems 'premiere ligne
        .Add , , TextBoxReceiptdate.Value
      End With
      Ctr = Ctr + 1
      With .ListItems(Ctr)
        .ListSubItems.Add , , TextBoxGldesc.Value
        .ListSubItems.Add , , TextBoxProjectcode.Value
        .ListSubItems.Add , , TextBoxBudget.Value
        .ListSubItems.Add , , TextBoxLcy.Value
        .ListSubItems.Add , , TextBoxexr.Value
        .ListSubItems.Add , , TextBoxAmount.Value
        .ListSubItems.Add , , TextBoxComments.Value
        .ListSubItems.Add , , TextBoxComments.Value
        Tot = Tot + CDbl(TextBoxAmount)
        TextBoxTotalexp = Format(Tot, "#0.00")
      End With
End With
TextBoxReceiptdate.Value = Clear
End Sub

**stevaux74** · 06/03/2013, 19h04

Salut Daniel,

Parfait tous fonctionne correctement.

Merci.

**stevaux74** · 06/03/2013, 20h44

Re Daniel,

J'ai encore une question...

Pour afficher ensuite les résultats dans la feuille de la listview. C'est possible de tous afficher sur la premiere ligne qui est vide meme le titre des colonnes et les valeurs ?

J'ai essayé comme ca mais ca décalle tous et les resultats tombe pas au bonne endroit !! j'imagine qu'il y a un moyen plus efficace peut etre.

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
Private Sub CommandButtonok2_Click() 'affiche les valeurs dans excel
Range("A65536").End(xlUp).Offset(3, 0) = "Destination"
Range("A65536").End(xlUp).Offset(1, 0) = "Business purpose"
Range("B65536").End(xlUp).Offset(3, 0) = TextBoxDestination.Value
Range("B65536").End(xlUp).Offset(1, 0) = TextBoxBusinessporpose.Value
Range("A65536").End(xlUp).Offset(2, 0) = "Receipt Date"
Range("B65536").End(xlUp).Offset(2, 0) = "General Ledger Code"
Range("C65536").End(xlUp).Offset(7, 0) = "General Ledger Description"
Range("D65536").End(xlUp).Offset(7, 0) = "Project Code"
Range("E65536").End(xlUp).Offset(7, 0) = "Budget Line"
Range("F65536").End(xlUp).Offset(7, 0) = "Local Currency Amount"
Range("G65536").End(xlUp).Offset(7, 0) = "Exchange Rate"
Range("H65536").End(xlUp).Offset(7, 0) = "Amount"
Range("I65536").End(xlUp).Offset(7, 0) = "Comments"
Dim i As Integer, j As Integer
    'Boucle sur toutes les lignes
    For i = 1 To ListViewExpense.ListItems.Count
        Cells(i, 1) = ListViewExpense.ListItems(i).Text
        'Boucle sur les colonnes
        For j = 1 To ListViewExpense.ColumnHeaders.Count - 1
            Cells(i, j + 1) = ListViewExpense.ListItems(i).ListSubItems(j).Text
        Next j
    Next i
UserFormBusinesstrip.Hide
Unload UserFormBusinesstrip
End Sub

**Daniel.C** · 07/03/2013, 15h15

Bonjour,

J'ai du mal à concevoir le résultat voulu. Peux-tu mettre en PJ une feuille avec le résultat souhaité ?

**stevaux74** · 07/03/2013, 21h20

Salut Daniel,

Voici la piece jointe et mes commentaires dans la feuil1 (2).

Encore merci pr l aide.

**Daniel.C** · 07/03/2013, 22h16

Commentaire préliminaire. Tu fais une manip anormale ? j'ai reçu deux mails (hier et aujourd'hui) me prévenant que tu avais posté, mais quand je clique sur le lien, je tombe sur un message comme quoi le site est en cours de maintenance.

**stevaux74** · 12/03/2013, 21h35

Oui c'est exactement ce montant le dernier point de repere pour la nouvelle saisie.

J'ai modifier le code a la fin et essayé de coder les totaux mais ca ne fonctionne pas faut que je declare des variables ? comme tu as fais pr le total ds la viewlist j'ai du mal !!

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
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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
Private Sub UserForm_Initialize() ' c'est bien userform qui doit etre ecrit
Tot = 0 ' Pour les sommes de la viewlist et insertion des lignes
Ctr = 0
ComboBoxCurrencypayment.RowSource = ("CURRENCY") 'definit les données pr la currency
ComboBoxCashcur.RowSource = ("CURRENCY")
CheckBoxCashrec = False
FrameCashreceive.Visible = False
CheckBoxManualledger = False
TextBoxManualledger.Visible = False
CheckBoxOrlcy = False
FrameLcy.Visible = False
LabelCash.Visible = False
TextBoxCash.Visible = False
LabelRemaining.Visible = False
TextBoxRemaining.Visible = False
With ListViewExpense
        'Définit le nombre de colonnes et Entêtes
        With .ColumnHeaders
            'Ajoute colonnes en spécifiant le nom de l'entête
            'et la largeur des colonnes
            .Add , , "Receipt Date", 58
            .Add , , "GL Code", 55
            .Add , , "GL Code Description", 110
            .Add , , "Project Code", 58
            .Add , , "Budget Line", 58
            .Add , , "LCY Amount", 70
            .Add , , "X-Rate", 45
            .Add , , "Amount", 70
            .Add , , "Comments", 190
        End With
    End With
    'Spécifie l'affichage en mode "Détails"
    ListViewExpense.View = lvwReport
End Sub
Private Sub CheckBoxCashrec_Click()
Dim TextBoxcashamount As Double
Dim TextBoxRemaining As DoubleFrameCashreceive.Visible = CheckBoxCashrec = True
LabelCash.Visible = CheckBoxCashrec = True
TextBoxCash.Visible = CheckBoxCashrec = True
LabelRemaining.Visible = CheckBoxCashrec = True
TextBoxRemaining.Visible = CheckBoxCashrec = True
TextBoxcashamount = CDbl(TextBoxAmount)
TextBoxRemaining = TextBoxcashamount.Value - TextBoxTotalexp.ValueEnd Sub
Private Sub CommandButtonAddexp_Click() 'Remplissage de listview avec les expenses
With ListViewExpense
      With .ListItems 'premiere ligne
        .Add , , TextBoxReceiptdate.Value
      End With
      Ctr = Ctr + 1
      With .ListItems(Ctr)
        .ListSubItems.Add , , ComboBoxGl.Value
        .ListSubItems.Add , , TextBoxGldesc.Value
        .ListSubItems.Add , , TextBoxProjectcode.Value
        .ListSubItems.Add , , TextBoxBudget.Value
        .ListSubItems.Add , , TextBoxLcy.Value
        .ListSubItems.Add , , TextBoxexr.Value
        .ListSubItems.Add , , TextBoxAmount.Value
        .ListSubItems.Add , , TextBoxComments.Value
        Tot = Tot + CDbl(TextBoxAmount)
        TextBoxTotalexp = Format(Tot, "#0.00")
      End With
End With  ' nettoie les cases pour nouvelles saisies
TextBoxReceiptdate.Value = Clear
TextBoxGldesc.Value = Clear
TextBoxProjectcode.Value = Clear
TextBoxBudget.Value = Clear
TextBoxLcy.Value = Clear
TextBoxexr.Value = Clear
TextBoxAmount.Value = Clear
TextBoxComments.Value = Clear
ComboBoxGl.Value = Clear
End Sub
Private Sub CheckBoxManualledger_Click()
TextBoxManualledger.Visible = CheckBoxManualledger = True
End Sub
Private Sub CheckBoxOrlcy_Click()
FrameLcy.Visible = CheckBoxOrlcy = True
End Sub
Private Sub CommandButtonok2_Click() 'affiche les valeurs dans excel
Dim Ligne As Long, C As Range
With Sheets("Feuil1")
    Set C = .[G:G].Find("REMAINING", , , xlWhole, xlByRows, xlPrevious)
    If C Is Nothing Then
        Ligne = 5
    Else
        Ligne = C.Row + 3
    End If
    .Cells(Ligne, 1) = "Destination"
    .Cells(Ligne, 2) = TextBoxDestination.Value
    Ligne = Ligne + 1
    .Cells(Ligne, 1) = "Business purpose"
    .Cells(Ligne, 2) = TextBoxBusinessporpose.Value
    Ligne = Ligne + 2
    .Cells(Ligne, 1) = "Receipt Date"
    .Cells(Ligne, 2) = "General Ledger Code"
    .Cells(Ligne, 3) = "General Ledger Description"
    .Cells(Ligne, 4) = "Project Code"
    .Cells(Ligne, 5) = "Budget Line"
    .Cells(Ligne, 6) = "Local Currency Amount"
    .Cells(Ligne, 7) = "Exchange Rate"
    .Cells(Ligne, 8) = "Amount"
    .Cells(Ligne, 9) = "Comments"
    Dim i As Integer, j As Integer
        'Boucle sur toutes les lignes
        For i = 1 To ListViewExpense.ListItems.Count
            Ligne = Ligne + 1
            Cells(Ligne, 1) = ListViewExpense.ListItems(i).Text
            'Boucle sur les colonnes
            For j = 1 To ListViewExpense.ColumnHeaders.Count - 1
                Cells(Ligne, j + 1) = ListViewExpense.ListItems(i).ListSubItems(j).Text
            Next j
        Next i
    Range("H65536").End(xlUp).Offset(1, 0) = TextBoxTotalexp.Value
    If CheckBoxCashrec = True Then Range("H65536").End(xlUp).Offset(1, 0) = TextBoxCash.Value
    If CheckBoxCashrec = True Then Range("H65536").End(xlUp).Offset(1, 0) = TextBoxRemaining.Value    UserFormBusinesstrip.Hide
    Unload UserFormBusinesstrip
End With
End Sub

Heureusement que tu m'aides c'est pas évident au début !!

VBA ViewList compilation [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager