Microsoft 365 Code VBA pour un Formulaire

Philippe17

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous,

Je voudrais de l'aide svp,
j'ai créé un formulaire pour créer des lignes automatiquement dans mon fichier « Journal », pour la saisie des opérations, j'ai trois TextBox ! le premier « Date « le second » Libellé « le troisième “Montant”, je voudrais obliger et forcer la Date en Date et le Montant en euro avec décimal, et automatisé, la sortie correctement pour s'inscrire dans ma feuille Journal ! pouvez-vous m'aider ? Merci pour vos réponses

Philippe 😇
 

Pièces jointes

  • Test5.xlsm
    25 KB · Affichages: 10

patricktoulon

XLDnaute Barbatruc
re
@fanfan38 bonsoir
je viens de re tester et ça fonctionne
VB:
Private Sub btnEnregistrement_Click()
 With Sheets("Journal").Range("Pg_Journal").ListObject.ListRows.Add.Range
 .Cells(1) = CDate(txtDate.Value)
 .Cells(2) = txtLibellé
 .Cells(3) = cboCatégories
 .Cells(4) = cboSCatégories
 .Cells(5) = CDbl(Replace(txtMontant, ".", ","))
 End With
 MsgBox " Vos données on bien ete enregistrer dans votre Journal", vbOKOnly = vbInformation, "CONFIRMATION"
    Unload Me
End Sub
 

Phil69970

XLDnaute Barbatruc
Bonjour à tous

@patricktoulon
Pour info ==> J'ai trouvé ceci dans ton calendrier du post # 7

1710064395959.png


==> Ligne 306
Sont ce normal ??? :oops:
 

Discussions similaires

Réponses
7
Affichages
140