Macro pour journal de caisse

Bonjour

1° rajouter une cellule pour le total en E13 de Vente jour et y mettre une formule de SOMME pour sommer toutes les cellules au dessus

2° Mettre cette macro dans un module :

Sub caisse()
Dim Ligne As Long
With Sheets("Journal de caisse")
Ligne = .Columns(1).Find(Date, , , , xlByColumns, xlPrevious).Row
If Range("E3") > 0 Then .Range("C" & Ligne) = Range("E3")
.Range("D" & Ligne) = Range("E35") - Range("E3")
End With
End Sub

3° Créer un nouveau bouton avec pour code :

Private Sub CommandButton1_Click()
caisse
End Sub

Cdlmnt
Via

Merci beaucoup pour ta réponse, ça ne fonctionne pas comme je le souhaiterais mais grâce à ta macro, je décortique et espère y arriver...

Cris

Maintenant mes 3 macros de validation du ticket fonctionnent, seulement il faudrait que ça additionne avec les cellules du journal de vente, car la sa réactualise seulement.

Voir fichier ci-joint.

Merci d'avance.
Cris

https://www.cjoint.com/c/GIvsmyXk2PD

par exemple là j'essaye sur la ligne contenant G9 mais je n'arrive pas à la composer:

Sub Espece()
Dim Ligne As Long
With Sheets("Journal de caisse")
Ligne = .Columns(1).Find(Date, , , , xlByColumns, xlPrevious).Row
If Range("G9") > 0 Then .Range("C" & Ligne) = Range Sum(("G9") ; "C & Ligne"))
If Range("G5") > 0 Then .Range("D" & Ligne) = Range("G5")
If Range("G24") > 0 Then .Range("F" & Ligne) = Range("G24")
End With
End Sub

Bonjour

Il suffit de modifier tes lignes de macro comme cela :
If Range("G9") > 0 Then .Range("C" & Ligne) =.Range("C" & Ligne)+ Range("G9")

D'autre part il est inutile d'avoir 3 fois la même macro pour especes, cheque et CB

Tu fais une seule macro Sub journal() avec les lignes actuelles qui reportent les données et dans les 3 Sub espece, CB et chèque tu remplaces ces lignes par un appel à journal

Cdlmnt
Via

"L'imagination est plus importante que le savoir."    A. Einstein

MERCI beaucoup, ça fonctionne parfaitement!!!

Non j'aimerais que se soit le mode de paiement qui valide le ticket donc j'aimerais conserver les 3.

Maintenant je vais rajouter le fait de réinitialiser le ticket a la fin de chaque macro (mais sa je sais faire)

Ensuite je vais bien lire tes données pour rajouter le fait de déduire les articles du stock. J'espère que tu seras là si problème car tu es un vrai pro!

UN GRAND MERCI.

Cris

Re,

C'est bien le mode de paiement qui valide le ticket mais comme c'est la même opération qui est à faire c'est plus ergonomique de faire une seule macro :

Sub journal ()
Dim Ligne As Long
With Sheets("Journal de caisse")
Ligne = .Columns(1).Find(Date, , , , xlByColumns, xlPrevious).Row
If Range("G9") > 0 Then .Range("C" & Ligne) =.Range("C" & Ligne)+ Range Sum(("G9") ; "C & Ligne"))
If Range("G5") > 0 Then .Range("D" & Ligne) =.Range("D" & Ligne)+ Range("G5")
If Range("G24") > 0 Then .Range("F" & Ligne) = .Range("F" & Ligne)+Range("G24")
End With
End sub 

puis la macro associé au bouton devient :

Sub espece()
journal
End sub

le clic sur le bouton espece lance donc la macro journal

Faire la même chose pour CB et chèque

Pas de souci recontacte moi pour la gestion du stock si problème

Cdlmnt
Via

Ah ok je comprend mieux maintenant se que c'est la macro associée.

mais trop tard j'ai bien avancé sur le fichier...

Maintenant, en cliquant sur le mode de paiement ça interfère sur journal de caisse ainsi que stock...

Mon fichier fonctionne parfaitement, je te le joint ci-dessous:

https://www.cjoint.com/c/GIvwCvJqd0D

Mais maintenant, j'aimerais bloquer les cellules, imaginons on mets une stagiaire en caisse!!!

Mais du coup je suis en erreur. je ne pense pas pouvoir contrer ça donc je ne verrouille pas mais bon si tu as un conseil je suis preneur...

Fichier mode verrouillé:

https://www.cjoint.com/c/GIvwJpO5VsD

Encore un GRAND MERCI!

Cris

J'ai trouvé ceci:

Mais ça ne fonctionne pas, je pense ne pas savoir le placer correctement...

Sub MacroavecfeuilleProtect()

ActiveSheet.Unprotect "lemotdepasse"

'Placez ici vos instructions

ActiveSheet.Protect "lemotdepasse", True, True, True

End Sub

CRIS

Bonjour

C'est bien la méthode à employer

En fait après chaque ligne With (Sheets)... dans tes macros, mettre l'instruction .Unprotect ou .Unprotect "toto" si elle est protégée par un mot de passe (en remplaçant toto par le mot de passe bien sûr)
Et avant chaque End with mettre l'instruction .Unprotect ou .Unprotect "toto"

Cdlmnt
Via

Bonjour

1) Tu fais rechercher la dernière ligne remplie dans la colonne B, or il y des formules dans la colonne B donc cellules non vides ! il faut rechercher dans la colonne I
2) Il faut rajouter +1 pour avoir la 1ere ligne vide
3) Il y a un point en trop devant Range("E4")

Lignes corrigées :
' Classement dans suivi ventes
With Sheets("Suivi ventes")

i = Sheets("Suivi ventes").Range("I65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau VIDE

'presta
If Range("E4") <> 0 Then .Range("I" & i) = (TextBox4)
If Range("E4") <> 0 Then .Range("F" & i) = Range("E4")

Ces lignes gèrent les presta mais il n'y a aucune ligne pour les ventes ?!

Cdlmnt
Via

Via,

Peut être peux tu m'aider encore...

En fait ce que je cherche c'est enregistrer le ticket, article par article pour pouvoir après extraire des stats, client, fournisseur etc...

Et aussi avoir un suivi de chaque vente.

Le seul problème, tu verras à la dernière ligne du suivi des ventes, c'est que je n'obtiens pas une ligne par article. exemple lors de la dernière ligne j'ai essayé avec une prestation et 1 article de chaque de chez Zao fournisseur et je récolte 1 seule ligne (sauf que j'aimerais les 4 pour 4 articles/presta).

Je ne sais pas si je suis bien clair dans mon explication, sinon dis moi et je recommence.

Et 2ieme problème, pc très long maintenant pour valider le ticket, formule trop longue ou PC trop faible en capacité?

Merci d'avance pour ta réponse.

Cris

https://www.cjoint.com/c/GIDrNfamWtD

Je suis de sortie ce soir, je regarde ça en rentrant ou demain

Re

Ton fichier rectifié
https://www.cjoint.com/c/GIDu0YeCNZP

J'ai simplifié la macro avec des boucles et je n'ai pas de lenteur chez moi

Cdlmnt
Via

et ici?
https://mon-partage.fr/f/AYHJOgv4/

Désolé oubli de ma part d'un -1 dans la boucle pour les stocks :
If Range("E" & n) > 0 Then .Range("C" & n - 1) = .Range("C" & n - 1) - Range("E" & n)

Cdlmnt
Via

Je me suis pas trompé en te disant à très vite...

Bon, bonne nouvelle, l'onglet "suivi ventes" entièrement fini. Pour le terminer, il me restais à chercher le fournisseur, j'ai usé de 2 colonnes sur cotés, écriture blanc, et INDEX EQUIV.

Maintenant je reviens vers toi car j'ai cherché quasiment toute la matinée, pour l'USF1, j'ai regardé 100 000 Tutos, mais ne trouve pas.

En fait j'ai une listbox, qui vient s'alimenter par soit combo nom soit combo prénom (et j'ai réussi à faire une combo active efface l'autre)

Mais là où je bloque, c'est que une fois client affiché dans listbox, j'aimerais juste d'un clic le sélectionner dans cette dite listbox et que sa affiche adresse ville etc...
Via source de données sheets(Clients)

C'est un système de vérification, au cas où j'ai 2 Didier Bertrand par exemple, puis sa permets à la vendeuse, de vérifier si changement de tel ou mail etc...

Voilà, je t'ai tout dit.

Je te joints à nouveau le fichier vu qu'il a évolué.

Merci,
Cris

https://www.cjoint.com/c/GIEpD4Lb72D

Voilà
https://mon-partage.fr/f/vfLoq4ez/

J'ai du rajouter 2 textbox pour le nom et le prenom dans l'userform car l'affichage dans les combobox relance la macro que tuas faite au changement dans les combos. Trop galère à modifier ou à shunter

Pour échanger les fichiers il vaut mieux passer par monpartage on peut ouvrir directement les fichiers avec macro ce qui n'est pas le cas pour cjoint

Cdlmnt
Via

Bonjour Via,

J'espère que tu passes un bon dimanche.

Est-ce que tu pourras regarder, quand tu as 5 min, car sur l'onglet vente jour lorsque que je crée un nouveau client, tout fonctionne mais j'ai le nom et prénom qui vient se copier dans ce même onglet "vente jour", en colonne S et T sur la ligne+1 (en rapport du fichier client). C'est à dire mon client se crée en ligne 20 du fichier client et le nom prénom sur 21.

Seulement, j'ai tout fouillé, formule et macro, je n'arrive pas à trouver où cette (fausse) action a pu être écrite.

Pour moi vu que c'est lié au "Valider de Créer un nouveau client" je ne cesse de penser que ça doit venir de là, mais je ne trouve rien.

Merci d'avance.
Cris

PS: J'ai bien avancé, tout est programmé au niveau recherche client, création client, aussi bien onglet vente que client.

Je vais pouvoir me pencher sur la partie Statistique

https://mon-partage.fr/f/CgRqVP3Q/

En revanche, si tu as une astuce pour insérer le format code postal dans mes macro d'ajout ou de modifier, je suis preneur.

J'ai trouver avec formatnumber 00000

Mais mon code postal devient 82 100 rangé sur gauche

au lieu de:

82100 rangé à droite

Cdt
Cris