Contre Valeur en Franc dans TextBox

[maval]

Bonjour,

Je suis à la recherche d'un code pour calculer la contre valeur en Franc d'un textbox.

Je vous remercie d'avance.
Un fichier valant mieux qu'un long discours, veuillez voir la pièce jointe.

Cordialement

Max

 

[sixair]

Re : Contre Valeur en Franc dans TextBox

Bonjour maval

Tu peux ajouter un événement sur TextBoxDébit et TextBoxCrédit

du genre

Private Sub TextBoxDébit_Change()
TextBoxContValeur = Format(TextBoxDébit * 6.55957, "0.00 F")
End Sub
Private Sub TextBoxCrédit_Change()
TextBoxContValeur = Format(TextBoxCrédit * 6.55957, "0.00 F")
End Sub

Mais à savoir, que traiter les 2 vers un même textbox risque de créer des conflits.
Je reverrais l'userform pour interdire une saisie crédit et débit...
Cdlt
sixair

PS: c'est quoi des "francs" ? 😀

 

[maval]

Re : Contre Valeur en Franc dans TextBox

Bonjour Sisair,

Je te remercie beaucoup.

je reverrais l'userform pour interdire une saisie crédit et débit...

Comment peut-on cacher un textbox ou l'autre pour éviter se problème. A tu une idée?

Bonne journée et merci encore

Max

 

[laetitia90]

Re : Contre Valeur en Franc dans TextBox

re maval ,sixair

tu peus faire cela

Private Sub TextBoxDébit_Change()
 If TextBoxDébit <> "" Then TextBoxContValeur = Format(TextBoxDébit * 6.55957, "0.00 F")
 TextBoxCrédit.Visible = IIf(TextBoxDébit <> "", 0, 1)
End Sub
Private Sub TextBoxCrédit_Change()
If TextBoxCrédit <> "" Then TextBoxContValeur = Format(TextBoxCrédit * 6.55957, "0.00 F")
TextBoxDébit.Visible = IIf(TextBoxCrédit <> "", 0, 1)
End Sub

tu peus simplifier aussi un peu ton code

Private Sub UserForm_Initialize()
 With Sheets("Désignation")
  t = .Range("c3:c" & .Cells(Rows.Count, 3).End(xlUp).Row): ComboBoxLibelle.List = t
 With Sheets("Accueil")
 t = .Range("p29:p" & .Cells(Rows.Count, 16).End(xlUp).Row): ComboBoxMPayement.List = t
 End With: End With
End Sub
Private Sub CmdValider_Click()
    With Sheets("Janvier")
       .Rows("19:19").Insert Shift:=xlDown
        .Cells(19, 2) = CDate(Me.TextBoxDate)
        .Cells(19, 3) = ComboBoxMPayement.Value
        .Cells(19, 4) = TextBoxN°Document.Value
        .Cells(19, 5) = ComboBoxLibelle.Value
        .Cells(19, 6) = TextBoxDébit.Value
        .Cells(19, 7) = TextBoxCrédit.Value
        .Cells(19, 8) = TextBoxContValeur.Value
    End With
    Unload Me: UserForm1.Show
End Sub

 

[maval]

Re : Contre Valeur en Franc dans TextBox

Re Lætitia,

Je te remercie j'ai un petit problème dans mes textbox débit ou crédit je ne peut pas taper le point?

Si tu as une idée.

Merci d'avance
@+

Max

 

[laetitia90]

Re : Contre Valeur en Franc dans TextBox

re, tous
si tu peus pas taper le point ...............tu nous dis pas tout????
dans ton code originel
dans keyPress tu as pas par hazard

If InStr("0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0

ou

If keyAscii = Asc(".") Then keyAscii = Asc(",")

sans plus infos pas simple
on est mal parti au depart traitement date... validation si pas toutes les box pas renseignées ect... on peut faire que de la "rustine" comme dirait mon papounet🙂

 

[maval]

Re : Contre Valeur en Franc dans TextBox

Re Lætitia


Je te joint mon fichier complet de façon que tu voit exactement.

@+

Max

 

[laetitia90]

Re : Contre Valeur en Franc dans TextBox

re, je viens de tester le point est pris ????
dans ton code rien empeche de taper le point???

 

[laetitia90]

Re : Contre Valeur en Franc dans TextBox

re je vais faire un fichier brut

 

[laetitia90]

Re : Contre Valeur en Franc dans TextBox

re,

le fichier

 

[sixair]

Re : Contre Valeur en Franc dans TextBox

Bonsoir,

As-tu vérifié que le . est ton séparateur de décimal ?
• Soit sous WIndows
• soit dans les options Excel, Options avancées
Décocher "Utiliser les séparateurs système"
Mettre un point dans "Séparateur de décimale"

Cdlt

 

[laetitia90]

Re : Contre Valeur en Franc dans TextBox

re, effectivement dans config... si tu as pas modifier... pose pb...
bien vu sixair🙂
plus le temps de rester a+

 

[maval]

Re : Contre Valeur en Franc dans TextBox

Re Laetitia, Sixair

Je vais voir cela de plus prêt Merci beaucoup et bonne soirée.

@+

Max

 

[Si...]

Re : Contre Valeur en Franc dans TextBox

salut

une autre présentation avec un DTPicker pour les dates et surtout pour dispatcher dans la bonne feuille. Le type de sortie est automatiquement déterminé par une colonne de plus.
Pas regardé ton pb de . ou , !

voilà le genre de code ( de qui ?) que j'utilise pour une saisie numérique dans TexB :

Private Sub TexB_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii < 46 Or KeyAscii > 57 Or KeyAscii = 47 Then KeyAscii = 0
  If KeyAscii = 46 Or KeyAscii = 44 Then KeyAscii = Asc(Application.International(xlDecimalSeparator))
  If (KeyAscii = 44 And TexB Like ("*,*")) Or (KeyAscii = 46 And TexB Like ("*.*")) Then KeyAscii = 0
End Sub

 

[_Thierry]

Re : Contre Valeur en Franc dans TextBox

Bonsoir le Fil, le Forum

Pour un convertisseur EURO/FFR/EURO international je m'étais un peu cassé la tête un jour de chandeleur 2003 et j'avais fait ceci :

https://www.excel-downloads.com/thr...t-de-probleme-de-separateur-de-decimale.3720/

Si il demande pour le certicat, il suffit de l'installer, mais il n'est plus valide depuis les années LoL


Au fait Si... Un DTPicker, donc une mscomct2.ocx... je croyais que tu étais plutôt opposé à son usage sur un autre fil où on parlait aussi du mscomctl.ocx, sa cousine pour les ListView, quoiqu'il en soit toutes les deux sont maintenant "bannies" des version actuelles d'Offices 64 Bits 2010 et 2013 (dans la politique actuelle de MS, si ils ne changent pas de fusils d'épaule comme pour la prochaine release de Windows 8 pour Juin AVEC un bouton démarrer)...
Donc à savoir si le programme doit évoluer/perdurer/circuler...

Bonne Soirée
@+Thierry