Facture payé ou non ? vba
Résolu
hich24
Messages postés
1686
Statut
Membre
-
hich24 Messages postés 1686 Statut Membre -
hich24 Messages postés 1686 Statut Membre -
Bonjour,
je cherche a crée un userform pour remplire les quantité vendu par jour :
alor j'ai des textbox ou je saisie les quantité vendu , ensuite il ya des textbox ( en parallele) qui affiche le montant pour chaque produit , a la fin il ya un text box qui contient la somme de ces textbox (montant produit) pour donnée le montant globale des ventes de la jounnée ; ensuite quand je click sur un buttoncommand je transfére ces information dans une feuille excel . tout ca est un peut facile j'ai réucit a le faire grace a votre aide
mais mon probléme est que je veux méttre un optionbutton nomé " cache " ,ca fonction est la suivante :
-lorsque je le click le montant que je transfére sur ma feuille excel soit ecrit en rouge + unsigne negative " - "
pour indiqué que cette facture n'est pas payé
aidé moi s'il vous plait je suit en attente pour votre prestigieuse aide
merci
je cherche a crée un userform pour remplire les quantité vendu par jour :
alor j'ai des textbox ou je saisie les quantité vendu , ensuite il ya des textbox ( en parallele) qui affiche le montant pour chaque produit , a la fin il ya un text box qui contient la somme de ces textbox (montant produit) pour donnée le montant globale des ventes de la jounnée ; ensuite quand je click sur un buttoncommand je transfére ces information dans une feuille excel . tout ca est un peut facile j'ai réucit a le faire grace a votre aide
mais mon probléme est que je veux méttre un optionbutton nomé " cache " ,ca fonction est la suivante :
-lorsque je le click le montant que je transfére sur ma feuille excel soit ecrit en rouge + unsigne negative " - "
pour indiqué que cette facture n'est pas payé
aidé moi s'il vous plait je suit en attente pour votre prestigieuse aide
merci
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Essaye de modifier le code de ta macro
.
.
.
.Range("u" & L).Value = val(TextBox55.text) * -1
End With
sheets("caisse).select
Range("u" & L).Select
Selection.Font.ColorIndex = 3 ' couleur rouge
'transfer des donnée ver la feuille ventes
With Sheets("ventes")
.
.
Attention! le fait d'introduire une valeur négative risque de modifier les calcul sur la feuille, par exemple si tu fait une somme ou un produit avec le contenu de cette cellule. -
bonjour,
pour ce qui est du signe moins il faut multiplier le montant par -1
ex: si la textox 'appelle total et la cellule ou tu stocke le montant est B6
Range("B6").Select
ActiveCell.Value = Val(total.text) * -1
Selection.Font.ColorIndex = 3 ' couleur rouge
c'est tout.-
merci becoup amigo c'est tres utile se que t'a donnée mais il reste un petit probléme et que : la cellule qui resoit le montant n'est pas fixe elle saute d'une ligne a chaque enregistrement ex:
Private Sub CommandButton5_Click()
'recherche la premiere ligne vide de la feuille ventes et caisse
Dim LL As Integer
Dim L As Integer
L = Sheets("caisse").Range("a65536").End(xlUp).Row + 1
LL = Sheets("ventes").Range("a65536").End(xlUp).Row + 1
If TextBox53 = "" Then
MsgBox (" la Date ?")
Exit Sub
End If
If client = "" Then
MsgBox ("nom de client?")
Exit Sub
End If
'transfer des donnée ver la feuille caisse
With Sheets("caisse")
.Range("a" & L).Value = CDate(Format(TextBox53.Text, "DD/MM/YYYY"))
.Range("b" & L).Value = Val(TextBox54.Value)
.Range("c" & L).Value = client.Value
.Range("d" & L).Value = Val(TextBox18.Value)
.Range("e" & L).Value = Val(TextBox19.Value)
.Range("f" & L).Value = Val(TextBox20.Value)
.Range("g" & L).Value = Val(TextBox21.Value)
.Range("h" & L).Value = Val(TextBox22.Value)
.Range("i" & L).Value = Val(TextBox23.Value)
.Range("j" & L).Value = Val(TextBox24.Value)
.Range("k" & L).Value = Val(TextBox25.Value)
.Range("l" & L).Value = Val(TextBox26.Value)
.Range("m" & L).Value = Val(TextBox27.Value)
.Range("n" & L).Value = Val(TextBox28.Value)
.Range("o" & L).Value = Val(TextBox29.Value)
.Range("p" & L).Value = Val(TextBox30.Value)
.Range("q" & L).Value = Val(TextBox31.Value)
.Range("r" & L).Value = Val(TextBox32.Value)
.Range("s" & L).Value = Val(TextBox33.Value)
.Range("t" & L).Value = Val(TextBox34.Value)
.Range("u" & L).Value = TextBox55.Value
End With
'transfer des donnée ver la feuille ventes
With Sheets("ventes")
.Range("a" & LL).Value = CDate(Format(TextBox53.Text, "DD/MM/YYYY"))
.Range("b" & LL).Value = Val(TextBox54.Value)
.Range("c" & LL).Value = client.Value
.Range("d" & LL).Value = TextBox1.Value
.Range("e" & LL).Value = TextBox2.Value
.Range("f" & LL).Value = TextBox3.Value
.Range("g" & LL).Value = TextBox4.Value
.Range("h" & LL).Value = TextBox5.Value
.Range("i" & LL).Value = TextBox6.Value
.Range("j" & LL).Value = TextBox7.Value
.Range("k" & LL).Value = TextBox8.Value
.Range("l" & LL).Value = TextBox9.Value
.Range("m" & LL).Value = TextBox10.Value
.Range("n" & LL).Value = TextBox11.Value
.Range("o" & LL).Value = TextBox12.Value
.Range("p" & LL).Value = TextBox13.Value
.Range("q" & LL).Value = TextBox14.Value
.Range("r" & LL).Value = TextBox15.Value
.Range("s" & LL).Value = TextBox16.Value
.Range("t" & LL).Value = TextBox17.Value
End With
End Sub
*=> textbox55 c'est la textbox qui contient le montant global
-
