Facture payé ou non ? vba
Résolu
hich24
Messages postés
1635
Date d'inscription
Statut
Membre
Dernière intervention
-
hich24 Messages postés 1635 Date d'inscription Statut Membre Dernière intervention -
hich24 Messages postés 1635 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Facture payé ou non ? vba
- Jour de paye jeu règlement - Forum Loisirs / Divertissements
- La bonne paye acquisition non vendue ✓ - Forum Loisirs / Divertissements
- Facture ryanair - Forum Réseaux sociaux
- Facture aliexpress ✓ - Forum Consommation & Internet
- Logiciel devis facture - Télécharger - Comptabilité & Facturation
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