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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'088
Appréciations reçues : 108
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 19 janvier 2018, 13:35

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é 12 fois
Bon courage
Avatar du membre
ET 87
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 12 janvier 2018
Version d'Excel : 2003 -sp3

Message par ET 87 » 19 janvier 2018, 16:09

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
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'088
Appréciations reçues : 108
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 19 janvier 2018, 19:21

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+
Avatar du membre
ET 87
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 12 janvier 2018
Version d'Excel : 2003 -sp3

Message par ET 87 » 21 janvier 2018, 12:22

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
Copie de Modification_ BBD_test_2.xls
(414.5 Kio) Téléchargé 12 fois
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'088
Appréciations reçues : 108
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 21 janvier 2018, 12:52

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+
Avatar du membre
ET 87
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 12 janvier 2018
Version d'Excel : 2003 -sp3

Message par ET 87 » 21 janvier 2018, 13:59

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.

@+
Copie de Modification_ BBD_test_2.xls
(414.5 Kio) Téléchargé 17 fois
Avatar du membre
Patty5046
Membre impliqué
Membre impliqué
Messages : 1'088
Appréciations reçues : 108
Inscrit le : 2 février 2016
Version d'Excel : 2016

Message par Patty5046 » 21 janvier 2018, 15:58

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
Avatar du membre
ET 87
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 12 janvier 2018
Version d'Excel : 2003 -sp3

Message par ET 87 » 21 janvier 2018, 18:28

ok merci encore pour ton aide.

bonne soirée
ET 87
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 385
Appréciations reçues : 8
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :

Message par fronck » 25 mai 2019, 00:45

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é 5 fois
merci de votre aide
Fronck
Avatar du membre
fronck
Membre fidèle
Membre fidèle
Messages : 385
Appréciations reçues : 8
Inscrit le : 26 septembre 2015
Version d'Excel : 2016
Contact :

Message par fronck » 25 mai 2019, 01:22

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message