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é!
Partager