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
A voir également:
- Facture payé ou non ? vba
- Jour de paye jeu règlement - Forum Loisirs / Divertissements
- Facture aliexpress ✓ - Forum Consommation & Internet
- La bonne paye acquisition non vendue ✓ - Forum Loisirs / Divertissements
- Facture ryanair - Forum Réseaux sociaux
- Réglo mobile facture ✓ - Forum Autres opérateurs mobiles
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.
.
.
.
.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.
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
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
excuse moi ca ne fini pas les question parceque le savoir ca donne envie de lumierre pour les cerveaux
je posserie plus de question plus tard