Facture payé ou non ? vba
Résolu/Fermé
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
-
27 févr. 2008 à 20:01
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 - 27 févr. 2008 à 22:04
hich24 Messages postés 1619 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 11 avril 2023 - 27 févr. 2008 à 22:04
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.
hich24
Messages postés
1619
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
11 avril 2023
752
27 févr. 2008 à 20:56
27 févr. 2008 à 20:56
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
27 févr. 2008 à 22:04
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