au secours je craque

[angoul]

bonjour,

Je revient vers vous car le suis trop tant la mouise et c'est urgent bien sur

j'ai fait un petit fichiers mais la franchement j'y arrive plus, j'en dort meme plus la nuit
quelqu'un peut t'il m'aider dessus

il faut mette quelque bouton en action

j'ai mis un petit imprime ecran ,pour comprendr mieux

merci d'avance

 

[angoul]

Re : au secours je craque

personne ne peut m'aider, car franchement je suis trop embeter

merci merci

 

[BERRACHED said]

Re : au secours je craque

Salut,Angoul

Si tu nous explique clairement ce que tu veux faire personnellement j'ai vue ton Usrform mais je ne sais pas si tu veux faire une saisie ou tu veux simplement visualiser ou faire des recherche.

Si tu peux nous expliquer tout ta démarche dans ton fichier.

Cordialement

 

[alex67800]

Re : au secours je craque

Bonsoir Angoul, Said,
Bonne année 2009!😉
Alors si j'ai bien compris ton problème (quoique pas facile avec une image):
Remplace ton:

Private Sub Txtprix_AfterUpdate()

par:

Private Sub [COLOR="Red"]Textquant_[/COLOR]AfterUpdate()

puis:

LstTicket.List(iNbrArt, 4) = 1
WrbCaisse.Worksheets("Tickets").Cells(iNbrArt + 2, 6) = 1

par:

LstTicket.List(iNbrArt, 4) = [COLOR="Red"]Val(Me.Textquant.Text) [/COLOR]
WrbCaisse.Worksheets("Tickets").Cells(iNbrArt + 2, 6) = [COLOR="red"]Val(Me.Textquant.Text)[/COLOR]

A te lire!

Edit: Par la même occasion
remplace:

Private Sub UserForm_Activate()
  Me.TextDate.Text = Date$
End Sub

par:

Private Sub UserForm_Activate()
TextDate.Value = Format(Now(), "dd/mm/yyyy") 'met sous format français la date du jour dans le textbox date.
End Sub

Tu auras ainsi la date au format français!😉

 

[angoul]

Re : au secours je craque

bonjour, bonne annee a tous le monde et encore merci pour votre aide
Voila j'ai fait les modifications conseiller par alex67800 et sa marche super bien, sauf un petit beug quand je rentre sur un ligne l'article 1 a un prix 12
et quand je rentre encore l'article 1 mais a un autre prix alors sa beug. je ne sait pas pourquoi
mais il me reste encore quelque truc a finir et après sa sera super

j'ai mis mon fichier a télécharger si vous voulait avec les modifications fait.

Je met un petit descriptif a quoi sert mon applications, comme me la conseiller Said
C'est une caisse de saisie d'article, qui quand on renseigne le champs "article", va chercher le nom de l'article, la taux de TVA, et peut etre plus dans le futur.
La case "prix" permet de mettre le prix en manuel et la case "quantité" permet de mettre la quantité, qui va se multiplier par le prix.
voila en gros.

par contre il me reste encore quelque truc qui marche pas :
quand on clique sur " cheque, CB,espece Virement" j'aimerai qu'il me renseigne le champs en bas a droite a cote du total.
quand on clique sur effacer ligne ou effacer tableau j'aimerai qu'il efface.
et enfin j'aimerai qu'il me sauvegarde automatique la saisie des articles sur une feuille a part, sa sa marche mais qu'il rajoute en fin de ligne la prix total,le mode de payement et le nombre global d'article.

j'espere pas trop demander et pas etre trop lourd dans mes explications
merci de votre patience et de votre aide encore