Page 2 sur 2

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 19 janvier 2018, 13:35
par Patty5046
Bonjour
Décidément tu me fais des misères... beaucoup de travail à chaque fois.

Voici une nouvelle version, je n'ai regardé que les points que tu m'as demandé, car j'ai faim .......

Vois ce fichier
Modification_ BBD_test_2.xls
(505 Kio) Téléchargé 11 fois
Bon courage

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 19 janvier 2018, 16:09
par ET 87
Je suis entrain de relire les macros que tu as fait, peux-tu m'expliquer car je comprend pas a quoi correspond "DateLivraison", ou peut-être que je n'ai pas bien vu :-| :( .
Private Sub CmdRech_Click()
Dim i, dlig
Raz
If CBDatlivr.ListIndex = -1 Then
    MsgBox "Veuillez choisir une date de livraison"
    Exit Sub
End If
num = 1
dlig = Sheets("Clients").Range("E" & Rows.Count).End(xlUp).Row
With Sheets("Clients")
    For i = 4 To dlig
        If CDate(CBDatlivr.Value) = .Range("E" & i).Value Then
            Controls("DateDep" & num) = .Range("A" & i).Value
            Controls("TBDent" & num) = .Range("B" & i).Value
            Controls("NomPatient" & num) = .Range("C" & i).Value
            Controls("Descrip" & num) = .Range("D" & i).Value
            Controls("DateRe" & num) = .Range("F" & i).Value
            num = num + 1
            If num > 10 Then
                MsgBox "Plus de 10 lignes!!! Impossible de tout lister. "
                Exit Sub
            End If
        End If
    Next
End With
DateLivraison = CDate(CBDatlivr.Value)   'A quoi correspond ou fait référence "DateLivraison" je ne comprend pas
End Sub
je test tous cela ce weekend et je reviendrai pour te dire, en tous cas merci pour ton aide.

Crdlmt
ET 87

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 19 janvier 2018, 19:21
par Patty5046
Bonsoir
J'ai déclaré DateLivraison en Public, afin de pouvoir lors du bouton Facturer de l'userform Facturation, récupérer la date de livraison qui avait été saisie dans l'userform Jour de livraison ( je l'ai chargée à la fin de la procédure Recherche)

Car ton DatL ne fonctionnait pas

Bon courage

A+

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 21 janvier 2018, 12:22
par ET 87
bonjour,

j'ai testé ce que tu a fait, c'est pas mal :bien:

2 erreurs apparaissent :bof: :

1. le total du bl ce copie en format texte au lieu de nombre me fait des erreurs dans mes calculs
2. lors du calcul du total bl il n'affiche pas les centimes.

peux tu encore me rendre ce petit service. ;;)

merci d'avance
ET 87

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 21 janvier 2018, 12:52
par Patty5046
Bonjour
Suis désolée, je viens de refaire des essais , tout s'affiche normalement avec centimes...

ou alors précise-moi bien ce que tu fais quand tu as des problèmes, afin que je teste dans le même contexte

A+

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 21 janvier 2018, 13:59
par ET 87
Bonjour,

j'ai modifier les 3 premiers prix dans le tarifs pour vérifier, et j'ai repris l'addition que tu as fais du total bl (elle s'affiche dans le userform "fact" maintenant) et elle n'addition pas les centimes.

Dans ma feuil dentiste la cellule E3 fait le total de tous bl.

Quand je fais la facturation le total du BL ce copie format texte et du coup je ne peux pas avoir le total du dentiste ( voir feuil NICOLAS)

je te joins le fichier modifier.

@+

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 21 janvier 2018, 15:58
par Patty5046
RE

je ne vois pas spécialement de problème dans mon cas pour les additions, les centimes sont pris.

Je crois que ce n'est pas mon jour.
Essaie de clore le sujet et de le remettre avec ton problème actuel et bien sûr ton fichier

Bye
Désolée

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 21 janvier 2018, 18:28
par ET 87
ok merci encore pour ton aide.

bonne soirée
ET 87

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 25 mai 2019, 00:45
par fronck
Bonjour,

J'ai moi aussi ma textbox qui bug à zéro, mais c'est en feuille plutôt qu'en formulaire et:
- la manip private sub change ne fait rien.
Private Sub TextBoxGazole_Change()
        TextBoxGazole.Value = Format(Round(gazole / TextBoxTotal1.Value * TextBoxKmsPerso.Value, 2), "# ##0.00€")
End Sub
-le rajout du format 0.00 euro en macro command enregistrer non plus
        Dim gazole As Variant
        gazole = Sheets("BD").Range("O1").Value
        'arrondi 2 décimales gazole
        TextBoxGazole.Value = Format(Round(gazole / TextBoxTotal1.Value * TextBoxKmsPerso.Value, 2), "# ##0.00 €")
        If TextBoxKmsPerso.Value = "0" Then
        TextBoxGazole.Value = "0"
        End If
NDF formulaire.xlsm
(530.72 Kio) Téléchargé 3 fois
merci de votre aide
Fronck

Re: Faire un calcul dans une textbox avec la valeur de deux autre textbox

Posté : 25 mai 2019, 01:22
par fronck
désolé çà passe comme çà:
        Dim gazole As Variant
        gazole = Sheets("BD").Range("O1").Value
        'arrondi 2 décimales gazole
        If TextBoxKmsPerso.Value = "0" Then
        TextBoxGazole.Value = "0"
        Else
        TextBoxGazole.Value = Format(Round(gazole / TextBoxTotal1.Value * TextBoxKmsPerso.Value, 2), "# ##0.00 €")
        End If