Microsoft 365 Code VBA pour un Formulaire

Philippe17 · 8 Mars 2024

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

fanfan38 · 8 Mars 2024

Bonjour et bienvenu sur le forum
Ci joint ma solution

A+ François

patricktoulon · 9 Mars 2024

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 · 10 Mars 2024

Bonjour à tous

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

==> Ligne 306
Sont ce normal ???

patricktoulon · 10 Mars 2024

bonjour @Phil69970
non en effet c'est a supprimer
en fait ce model de calendar est celui d'un autre demandeur qui avait d'autre besoins
et je n'es pas nettoyé
j'aurais du mettre l'exemple original
pour le coup je lui ai fait son thème

Microsoft 365 Code VBA pour un Formulaire

Philippe17

XLDnaute Junior

Pièces jointes

fanfan38

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Discussions similaires