Formulaire via VBA
Bonjour
je suis en train de créer un formulaire pour alimenter une base de données
je vous adresse ma trame en PJ
dans l'onglet, tableau de bord, il y a un bouton permettant d'accéder au formulaire
ma problématique est que lorsque j'inscris qqchose dans la case "référence" cela n'alimente pas la base de données et je ne comprends pas pourquoi
pouvez-vous m'aider?
D'avance merci
Laurent
Salut,
Remplace le code de ton Sub d'ajout de référence par celui-ci :
'********************************************************************************
'Procédure permettant d'ajouter un nouvel enregistrement dans la base de données
'********************************************************************************
Private Sub Btnajout_Click()
Sheets("source").Activate
Range("A1").End(xlDown).Offset(1, 0).Value = Frm.Txtréférence.Value
Range("A1").End(xlDown).Offset(0, 1).Value = Frm.Txtlibellé.Value
Range("A1").End(xlDown).Offset(0, 2).Value = Frm.Cbocoloris
Range("A1").End(xlDown).Offset(0, 3).Value = Frm.Txtprixcat
Range("A1").End(xlDown).Offset(0, 4).Value = Frm.Txtremise
Range("A1").End(xlDown).Offset(0, 5).Value = Frm.Txtecopart
End SubBonne journée,
Girodo
Bonjour laurent59130, Girodo, le forum,
Une autre proposition:
'********************************************************************************
'Procédure permettant d'ajouter un nouvel enregistrement dans la base de données
'********************************************************************************
Private Sub Btnajout_Click()
Dim ListObj As ListObject, Sh As Worksheet, j As Long
Set Sh = Sheets("SOURCE")
Set ListObj = Sh.ListObjects("Tsource")
j = Sh.Cells(Rows.Count, 1).End(xlUp).Row
With ListObj
Sh.Cells(j, 1) = Frm.Txtréférence.Value
Sh.Cells(j, 2) = Frm.Txtlibellé.Value
Sh.Cells(j, 3) = Frm.Cbocoloris
Sh.Cells(j, 4) = Format(Frm.Txtprixcat, "#,##0.00 €")
Sh.Cells(j, 5) = Format(Frm.Txtremise / 100, "#,##0,00%")
Sh.Cells(j, 6) = Format(Frm.Txtecopart, "#,##0.00 €")
End With
ListObj.ListRows.Add
End SubCordialement,
Salut,
Remplace le code de ton Sub d'ajout de référence par celui-ci :
'******************************************************************************** 'Procédure permettant d'ajouter un nouvel enregistrement dans la base de données '******************************************************************************** Private Sub Btnajout_Click() Sheets("source").Activate Range("A1").End(xlDown).Offset(1, 0).Value = Frm.Txtréférence.Value Range("A1").End(xlDown).Offset(0, 1).Value = Frm.Txtlibellé.Value Range("A1").End(xlDown).Offset(0, 2).Value = Frm.Cbocoloris Range("A1").End(xlDown).Offset(0, 3).Value = Frm.Txtprixcat Range("A1").End(xlDown).Offset(0, 4).Value = Frm.Txtremise Range("A1").End(xlDown).Offset(0, 5).Value = Frm.Txtecopart End SubBonne journée,
Girodo
merci GIRODO,
comment sur
Range("A1").End(xlDown).Offset(0, 3).Value = Frm.Txtprixcat
Range("A1").End(xlDown).Offset(0, 4).Value = Frm.Txtremise
Range("A1").End(xlDown).Offset(0, 5).Value = Frm.Txtecopart
mettre le format 0.00€ sur ECOPART & PRIXCAT et le format 0.00% sur REMISE
d'avance merci
laurent
comment mettre le format 0.00€ sur ECOPART & PRIXCAT et le format 0.00% sur REMISE
??????????????????