TextBox et calcul directement dans l'USER...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais voir le résultat des saisies des TextBox directement dans l'USER...

expl ;
Je saisis un prix dans une TextBox (PrixAchat), puis dans une autre TextBox (Marge) je saisis un %, je souhaiterais voir dans la TextBox (MargeEuro), le résultat des deux saisies donc PrixAchat multiplié par Marge....
idem pour une deuxième opération...

voir fichier joint

Merci pour votre aide si précieuse.
Bien amicalement,
Christian

 

[pierrejean]

Re : TextBox et calcul directement dans l'USER...

bonjour Christian0258

Vois si cela te convient

 

[Lone-wolf]

Re : TextBox et calcul directement dans l'USER...

Bonjour Christian, pierrejean


@pierrejean: désolé, si on c'est croisés.

Private Sub Marge_AfterUpdate()
MargeEuro = Val(PrixAchat) * Val(Marge) / 100
VenteClient = Val(PrixAchat) - Val(MargeEuro)
End Sub

Private Sub CommandButton1_Click()  ' AJOUTER MATOS
Dim ligne As Integer
With Sheets("Matériel")
ligne = .Range("B65536").End(xlUp).Row + 1

.Range("B" & ligne).Value = Produit.Value
.Range("C" & ligne).Value = Fourniss.Value
.Range("D" & ligne).Value = PrixAchat.Value
.Range("E" & ligne).Value = Marge.Value
.Range("I" & ligne).Value = MSN.Value
.Range("B2:I65536").Sort .Range("B2"), xlAscending
End With
Unload Me
End Sub

 

[Christian0258]

Re : TextBox et calcul directement dans l'USER...

Re, le forum, pierrejean, Lone-Wolf,

Merci pour vos solutions. C'est impec.

Tite question après collage le format euros s'inscrit comme ceci 3,6 je souhaiterais avoir 3,600€ ...

Encore merci à vous deux.

Bien amicalement,
Christian

 

[Christian0258]

Re : TextBox et calcul directement dans l'USER...

Re, le forum, pierrejean, Lone-Wolf,

Alors, pas d'idée, pour ce format euro renvoyé (expl : 3,6€, souhaité 3,600€)...

Merci pour votre aide.
Bien à vous,
Christian

 

[Lone-wolf]

Re : TextBox et calcul directement dans l'USER...

Bonsoir Christan,

désolé, j'était sur une autre affaire.

Mais ou est-ce que tu veux le format, dans VenteClient ou sur la feuille?

 

[Christian0258]

Re : TextBox et calcul directement dans l'USER...

Re, le forum,Lone-Wolf,

Merci pour ton aide.
Je dirais sur les deux...?

à te lire.
Bien à toi,
Christian

 

[Lone-wolf]

Re : TextBox et calcul directement dans l'USER...

Re,

Mais le prix c'est bien 1euro 25? Par-ce qu'il y a un problème de calcul avec les textbox. Si c'est ça, le format dans les cellules est juste, à moins de remplacer le . par la virgule dans les options langues.

 

[Christian0258]

Re : TextBox et calcul directement dans l'USER...

Re, le forum, Lone-wolf,

Je te mets le fichier avec ta macro, avec quelques saisies ???...

à te lire.
Merci à toi.

Christian

 

[Lone-wolf]

Re : TextBox et calcul directement dans l'USER...

Bonjour Christian,

ton fichier en retour. Désolé, mais je n'arrive pas à appliquer la mise en forme souhaitée sur la feuille. Celà est dû du faite que les textbox's ont une virgule et le signe euro. Comme je l'ai dit dans mon précédent message, il faut regarder dans les Options Régionales et changer le point par la virgule.

 

[Christian0258]

Re : TextBox et calcul directement dans l'USER...

Re, le forum, Lone-wolf,

Dis-moi, si c'est un problème de virgule à remplacer par un point, on peut, peut-être, intégrer un bout de code dans les deux TextBox : MargeEuro et VenteClient qui transforme au moment de coller....je dis sûrement une bétise...lol

à vous lire.

Bien à vous,
Christian

 

[Christian0258]

Re : TextBox et calcul directement dans l'USER...

Re, le forum, Lone-wolf,

En fait après essais, je pense que le format renvoyé est un format texte et pas du nombre... comment faire ?

à vous lire.

Bien amicalement,
Christian

 

[Lone-wolf]

Re : TextBox et calcul directement dans l'USER...

Bonjour Christian,

désolé de ne pas pouvoir t'aider. Fait un recherche sur le Forum, voir si tu trouve quelque chose.

EDIT: Au faite, je sais que dans les options avancées d'Excel > Options Editions, tu peux moidifier le point par une virgule. L'as-tu fait?

 

[Christian0258]

Re : TextBox et calcul directement dans l'USER...

Re, le forum, Lone-wolf,

Oui j'ai essayé sans résultat.

Merci pour tout.
Bien à toi,
Christian

 

[youky(BJ)]

Re : TextBox et calcul directement dans l'USER...

Bonjour Christian,
Jacky hihi tu peines........je viens à ton secours.
Dans la macro qui suit je remplace le point par la virgule et supprime le €
Si le format est bien 3 chiffres après la virgule dans la feuille c'est tout bon.

Private Sub CommandButton1_Click()  ' AJOUTER MATOS
Dim ligne As Integer
Dim px
With Sheets("Matériel")
ligne = .Range("B65536").End(xlUp).Row + 1


.Range("B" & ligne).Value = Produit.Value
.Range("C" & ligne).Value = Fourniss.Value
px = Replace(PrixAchat, ".", ",")
px = Replace(px, "€", "")
.Range("D" & ligne).Value = CDbl(px)


.Range("E" & ligne).Value = Marge.Value


px = Replace(MargeEuro, ".", ",")
px = Replace(px, "€", "")
.Range("F" & ligne).Value = CDbl(px)


px = Replace(VenteClient, ".", ",")
px = Replace(px, "€", "")
.Range("G" & ligne).Value = CDbl(px)


.Range("H" & ligne).Value = MSN.Value


.Range("a2:I65536").Sort .Range("B2"), xlAscending
End With
Unload Me
End Sub

Bruno