Discussion :

[kodyone]

Bonjour à tous je vous espère bien portant(es).
Merci pour vos différentes contributions dans mes discussions passés. J'avoue que j'apprend beaucoup avec vous sur cet forum.
Je reviens encore avec une préoccupation qui me casse le nez depuis il y'a maintenant 2 jours.
J'ai créé un formulaire que je souhaite utilisé pour remplir trois feuilles avec des destinations différentes je veux dire. Actuellement je suis entrain de coder la procédure qui va alimenter la deuxième feuille mais le code que j'ai fait ne marche pas du coups je suis perdu.

Veuillez trouvez ci-joint le code ci-dessous

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
 
Private Sub btnEnregistrer_Click()
'On Error Resume Next
Dim DL As Integer
Dim list_nombre As Integer
Dim Ligne As Integer
Dim LastRow As Integer
 
list_nombre = Me.ListBox1.ListCount
LastRow = Feuil5.Range("C21:G" & Application.Rows.Count).End(xlUp).Row + 1
 
If Me.ListBox1.ListCount > 0 Then 'Contrôle si la liste n'est pas vide
    If MsgBox("Voulez-vous enregistrer cette liste de prestation ?", vbYesNo) = vbYes Then
        For Ligne = 0 To list_nombre - 1
 
        'Ajouter une nouvelle ligne dans notre registre de transaction
        Feuil7.ListObjects(1).ListRows.Add
 
        'Chercher la dernière ligne de notre registre de transaction
        DL = Feuil7.Range("A1048576").End(xlUp).Row
 
    'Ajouter tous les lignes de notre mémoire au régistre des transactions
        Feuil7.Range("B" & DL) = Me.NumCoupon.Value          'Numéro de coupon
        Feuil7.Range("C" & DL) = CDate(Me.TDate.Value)       'Date
        Feuil7.Range("F" & DL) = Me.TBeneficiaire.Value      'Bénéficiaire
        Feuil7.Range("G" & DL) = Me.TDescription.Value       'Description
 
 
        Feuil7.Range("A" & DL) = Me.ListBox1.List(Ligne, 0)  'code
        Feuil7.Range("D" & DL) = Me.ListBox1.List(Ligne, 1)  'Source
        Feuil7.Range("E" & DL) = Me.ListBox1.List(Ligne, 2)  'Compte
        Feuil7.Range("H" & DL) = Me.ListBox1.List(Ligne, 3)  'Entrées
        Feuil7.Range("I" & DL) = Me.ListBox1.List(Ligne, 4)  'Sorties
        'Next Ligne
' ==============================================
' =                                                                                                        
' =  C'est à partir du code ci-dessous je veux alimenter la feuille5 de mon   
' =  fichier. je vais aussi ajouter une capture de ma feuille                         
' =                                                                                                        
' ==============================================
 
' ' ' ' Remplissage du coupon Caisse
                Feuil5.Range("C11") = CDate(Me.TDate.Value)
                Feuil5.Range("F11") = Me.NumCoupon.Value
                Feuil5.Range("D13") = Me.TBeneficiaire.Value
                Feuil5.Range("D14") = Me.TDescription.Value
                Feuil5.Range("B" & LastRow) = Me.ListBox1.List(Ligne, 1)      'Source
                Feuil5.Range("C" & LastRow) = Me.ListBox1.List(Ligne, 2)      'Compte
                Feuil5.Range("D" & LastRow) = Me.ListBox1.List(Ligne, 4)      'Sorties
        Next Ligne
        MsgBox ("L'enregistrement a été effectué")
 
        End If
End If
ThisWorkbook.Save
Unload Me
With Registre_Pr
Créer_Lsv
End With
End Sub

Merci d'avance et merci encore pour ce que vous avez déjà fait pour moi dans le passé!