Microsoft 365 Code VBA pour un Formulaire

[Philippe17]

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

 

[patricktoulon]

re
@fanfan38 bonsoir
je viens de re tester et ça fonctionne

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]

Bonjour à tous

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

==> Ligne 306
Sont ce normal ???

 

[patricktoulon]

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