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 !

 

[Staple1600]

Re

Le format c'est pour les pépétes
(j'ai écrit format monétaire
Je disais simplement que c'est plus simple que

Range("N10").Value = Format(TextBox2, "0.00" & " " & "€")
Range("O10").Value = Format(TextBox5, "0.00" & " " & "€")
Et ça fonctionne nickel

Mais évidemment, avant de formater, faut injecter les valeurs

 

[JBL07]

Lol oui j'avais compris que c'est pour les pépètes
Mais en utilisant ce format ( je l'ai essayé tel quel puis avec la forme "#,##0.00 €" ), et mes cellules N et O 10 restent vides après validation du Useform

 

[Staple1600]

Re

Pour être précis (et testé en ma chaumière)

Private Sub CommandButton1_Click()
With Range("N10:O10")
.Value = Array(TextBox2 * 1, TextBox5 * 1)
.NumberFormat = "#,##0.00 $"
End With
End Sub

 

[JBL07]

Ta chaumière doit être mieux rangée que la mienne, car celà ne fonctionne pas
Et c'est bien dommage, car bien que visuellement, la solution de Chalet53 ressemble à un montant en euros correct dans les cellules N et O10, je viens de m'apercevoir que les montants ne sont pas pris en compte dans les totaux en haut de feuille ... c'est fatiguant de ne pas savoir faire, un pb peut en cacher un autre en vba !!

Je ne vous en voudrai pas si vous laissez tomber ! Lol

 

[Staple1600]

Re

Cela fonctionne, camarade!
Et je le prouverai sous peu
Mais faut d'abord que j'épluche les légumes pour la soupe de ce soir

 

[Staple1600]

Terminée la pluche!
L'heure de la preuve est arrivée

 

[JBL07]

LOl, j'en serai enchanté.. j'avoue que je fatigue de passer du temps dessus alors que je n'y connais pas grand chose !
Bonne soupe alors, et merci encore à vous deux

 

[JBL07]

Ah ben an même temps .. j'en perds mon latin vba

 

[Staple1600]

Re

Lire le message#21

NB: Ci-dessous le code VBA utilisé dans le message#21

Private Sub CommandButton1_Click()
With Range("N10:O10")
.Value = Array(TextBox1 * 1, TextBox2 * 1)
.NumberFormat = "#,##0.00 $"
End With
End Sub

Private Sub UserForm_Initialize()
TextBox1 = "1600,57"
TextBox2 = "1729" 'remember  G. H. Hardy, Ramanujan ;-)
End Sub

 

[Staple1600]

Re

Un padawan VBA n'abandonne jamais!
Sauf un dimanche (pour le fil du dimanche soir )

 

[JBL07]

Pour sûr
En attendant, je ne sais pas comment faire fonctionner ça à la suite de mes autres champs de userform, vu que ça ne match pas dans mon tableau

Private Sub CBValider_Click()

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

Sheets("Ecritures").Select


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

 

[Staple1600]

Bonjour le fil

JBL07
J'ai testé sur ta pièce jointe (dans le message#1)
Ci-dessous le code du bouton Valider
(J'ai généralisé la syntaxe présente dans le message#24, juste par gain de place et parce que c'est ma manière d'écrire)

Private Sub CBValider_Click()
If MsgBox("La nouvelle saisie est-elle confirmée ?", _
vbYesNo, "Demande confirmation de saise") = vbYes Then
With Sheets("Ecritures")
.Range("B10").Value = CDate(TextBox4)
.Range("E10:H10").Value = Array(CboComptes, CboCatégories, CboSousCat, TextBox1)
.Range("L10").Value = CboModePaie
.Range("N10:O10").Value = Array(TextBox2 * 1, TextBox5 * 1)
.Range("N10:O10").NumberFormat = "#,##0.00 $"
End With
End If
Unload Me
'FMSaisie.Show vbModeless
End Sub

 

[JBL07]

Bonjour le fil,

Merci Staple, mais ça bug, et les cellules se remplissent, sauf N ou O 10:

 

[Staple1600]

Re

J'ai pourtant testé sur ton fichier exemple.
Je retourne tester pour être sûr.

 

[Staple1600]

Re

Test toujours OK.
Par contre, j'ai noté un souci sur ton fichier
Dans ton code tu injectes une valeur en H10, alors que
1) la colonne H est masquée sur la feuillle
2) et surtout elle contient déjà une formule.