Bonjour,

Etant novice dans le domaine du VBA, j'ai vraiment besoin de vos conseils. J'ai créé une combobox pour enregistrer des membres dans un tableau. Mais lorsque je valide, les champs ne se vident pas. Je n'arrive pas, surtout je ne sais pas où placer :

DoCmd.GoToRecord , , acNext

pour passer à un enregistrement suivant.

MERCI DE VOTRE AIDE

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
 
Private Sub CommandButton_fermer_Click()
     Unload Me
 End Sub
 
 
Private Sub UserForm_Initialize()
For i = 1 To 7 'Liste des 7 comptes sur la feuille "listing"
       ComboBox_comptes.AddItem Sheets("listing").Cells(i, 1)
    Next
 
End Sub
 
Private Sub CommandButton_valider_Click()
     'Coloration des Labels en noir
     Label_date.ForeColor = RGB(0, 0, 0)
     Label_numero.ForeColor = RGB(0, 0, 0)
     Label_libelles.ForeColor = RGB(0, 0, 0)
     Label_comptes.ForeColor = RGB(0, 0, 0)
     Label_debit.ForeColor = RGB(0, 0, 0)
     Label_credit.ForeColor = RGB(0, 0, 0)
 
 
            'Si le formulaire est complet, on insère les valeurs sur la feuille
         Dim no_ligne As Integer
 
        'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
         no_ligne = Range("A65536").End(xlUp).Row + 1
 
        'Insertion des valeurs sur la feuille
         Cells(no_ligne, 1) = TextBox_date.Value
         Cells(no_ligne, 2) = TextBox_numero.Value
         Cells(no_ligne, 3) = TextBox_libelles.Value
         Cells(no_ligne, 4) = ComboBox_comptes.Value
         Cells(no_ligne, 5) = TextBox_debit.Value
         Cells(no_ligne, 6) = TextBox_credit.Value
 
 End Sub