Microsoft 365 Userform avec combobox

[JBL07]

Bonjour à tous !

Je fais appel à nouveau à vos compétences..
Voici un classeur de suivi bancaire, épuré au max car l'original est plus complexe
J'ai souhaité insérer un userform pour faciliter la saisie des nouvelles écritures

Il y a donc un bouton/macro "Saisie" qui ouvre une nouvelle ligne de tableau vierge en Ligne 10, dans laquelle les infos saisis dans le Userform doivent s'implémenter
Et un bouton/macro " Chrono" qui après saisie retrie le tableau chronologiquement et remets en ordre la colonne Q qui m'indique le solde

Je rencontre 2 soucis :

- les 2 combo avec listes dépendantes ( Catégories dont dépend S/Catégorie ) n'affichent pas les listes ( qui se trouvent dans la feuille BD2 ), donc je ne peux pas saisir toutes mes infos
_ Si je saisi de nouvelles données en ligne 10 avec le Userform, la saisie générée ne s'inclue pas dans le tri "Chrono", et se place en haut du tableau, faussant tout

Pour finir, je souhaiterais que les 2 cellules débit / crédit affiche et valide des sommes directement dans le format monétaire

Voilà, ça fait beaucoup, mais je suis dessus depuis des heures sans parvenir à régler le tout... si qq se sent de coder ça pour moi, ce serait super
Merc par avance de vos réponses !

 

[JBL07]

ANNULE ET REMPLACE

Une petite correction invisible que j'avais oubliée de faire dans le code sur une colonne, ce fichier est le bon

 

[CHALET53]

Bonjour
Un essai pour les comboboxs

 

[JBL07]

Bonjour,

Ca ne fonctionne pas, mais sauf si un détail m'échappe, je ne vois pas de modification dans le code

 

[CHALET53]

avec le fichier ci-dessus, je clique sur Saisie
je sélectionne la combo Catégorie : la liste est complète
Je sélectionne une donnée
La combobox SousCatégorie est renseignée pour cette donnée

 

[JBL07]

Ah oui, ça fonctionne !! Merci Chalet53

Quand à mon histoire de tri, on dirait que, bien que le format dans les cellules du tableau soit bien en date et monétaire, les 2 données injectées via le userform ne sont pas correctes et créent le bug, et du coup ne sont pas inclus

 

[CHALET53]

Essaie comme ça dans ton pgm de mise à jour

Private Sub CBValider_Click()

If MsgBox("La nouvelle saisie est-elle confirmée ?", vbYesNo, "demande confirmation de saise") = vbYes Then

Sheets("Ecritures").Select


Range("B10").Value = TextBox4
Range("E10").Value = CboComptes
Range("F10").Value = CboCatégories
Range("G10").Value = CboSousCat
Range("I10").Value = TextBox1
Range("L10").Value = CboModePaie
Range("N10").Value = Format(TextBox2, "0.00")
Range("O10").Value = Format(TextBox5, "0.00")

End If

Unload Me
FMSaisie.Show vbModeless

End Sub

 

[JBL07]

J' ai carrément fait :
Range("N10").Value = Format(TextBox2, "0.00" & " " & "€")
Range("O10").Value = Format(TextBox5, "0.00" & " " & "€")
Et ça fonctionne nickel

Par contre pour la date, j'ai tenté sur le principe :

Range("B10").Value = Format(TextBox4, "DD/MM/YYYY")

Et ça ne marche pas - Mon format n'est pas ok ?

 

[CHALET53]

essaie :
Range("B10").Value = CDate(Format(TextBox4, "DD/MM/YYYY"))

 

[JBL07]

Et ben super, Chalet53 !
Un grand merci à toi pour tes interventions salvatrices !!

 

[CHALET53]

Parfait
Je pense que dans le cas présent, :

Range("B10").Value = CDate(TextBox4)

aurait été suffisant
Bon courage

 

[JBL07]

Ah bah je vais tester !
Il ne me reste plus qu'une chose à trouver, c'est appliquer le add in "Date Picker" directement dans la zone texte date du userform ( mais je ne sais pas si c'est faisable ), et faire que le curseur passe directement de champ en champ de saisie dans ce userform
Un grand merci en tout cas !

 

[Staple1600]

Bonjour le fil

=>JBL07
[En complément]
Pourquoi ne pas utilser le format monétaire (puisqu'il existe) ?

Range("N10:O10").NumberFormat = "#,##0.00 $"

EDITION: Bonjour CHALET53

 

[CHALET53]

Essaie de t'inspirer de ce fichier pour récupérer la date en l'intégrant dans le tien

 

[JBL07]

Bon, je n'y arrive pas
Pour info, le Range("B10").Value = CDate(TextBox4) a été adopté ( par contre, merci Staple, mais pas le format
Range("N10:O10").NumberFormat = "#,##0.00 $" ( ou alors je l'ai mal reporté ))