Discussion :

[micaieaie]

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

[Stef999]

Bonjour,

Code :

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

DoCmd.GoToRecord , , acNext

C'est dans un formulaire Access ...

Dans Excel et pour ce qui concerne la question : "les champs ne se vident pas", s'il s'agit d'effacer le contenu de controles, utilisez :

TextBox_date.Clear
TextBox_numero.Clear
etc ...

S'il s'agit d'afficher ds votre formulaire le contenu d'une ligne d'Excel,
utilisez Find par exemple pour trouver la ligne et
TextBox_date.Value = Cells(no_ligne, 1)
etc...

[micaieaie]

J'ai bien essayé mais lorsque je mets "textBox_date.Clear" et ainsi de suite, ça me surligne clear en me disant que "erreur 404". je suis vraiment novice et ne trouve pas la solution

[ZimCri]

Bonjour,


Si le "clear" ne fonctionne pas, tu peux faire :

Code :

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

TextBox_date.Value = ""

[micaieaie]

Je dois vraiment rien comprendre, même ça, cela ne marche pas.

J'ai tenté de mettre sur la même macro, rien, en créér une autre, idem.

[micaieaie]

Eh bien avec un peu de persévérance, j'y suis arrivé.

Super. Merci pour tout