Facture payé ou non ? vba

Résolu/Fermé

hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 - 27 févr. 2008 à 20:01
hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 - 27 févr. 2008 à 22:04

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

A voir également:

Facture payé ou non ? vba
La bonne paye acquisition non vendue ✓ - Forum Loisirs / Divertissements
Facture réglo mobile - Forum Laposte
Facture ryanair - Forum Réseaux sociaux
Facture fnac ✓ - Forum Consommation & Internet
Retrouver une facture a la Fnac, possible ? - Forum Réseaux sociaux

2 réponses

Réponse 1 / 2

amigo
27 févr. 2008 à 21:16

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.

hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 753
27 févr. 2008 à 22:04

merci infiniment amigo pour la solution
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

Réponse 2 / 2

amigo
27 févr. 2008 à 20:36

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.

hich24 Messages postés 1635 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 1 février 2025 753
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

Discussions similaires

Facture Raynair

"L'indice n'appartient à la sélection" + VBA

retrouver les factures des posts sponsorisés

Règles du jeu JOUR DE PAYE

Facture payer mais tjrs pas de service