Macro pour journal de caisse
Fermé
Crsi68300
Messages postés
7
Date d'inscription
mercredi 20 septembre 2017
Statut
Membre
Dernière intervention
22 septembre 2017
-
Modifié le 20 sept. 2017 à 17:09
Cris68300 Messages postés 104 Date d'inscription dimanche 27 août 2017 Statut Membre Dernière intervention 21 septembre 2018 - 19 janv. 2018 à 15:23
Cris68300 Messages postés 104 Date d'inscription dimanche 27 août 2017 Statut Membre Dernière intervention 21 septembre 2018 - 19 janv. 2018 à 15:23
A voir également:
- Macro pour journal de caisse
- Journal de ma naissance gratuit à imprimer - Télécharger - Histoire & Religion
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
64 réponses
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
20 sept. 2017 à 19:58
20 sept. 2017 à 19:58
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 :
3° Créer un nouveau bouton avec pour code :
Cdlmnt
Via
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
Crsi68300
Messages postés
7
Date d'inscription
mercredi 20 septembre 2017
Statut
Membre
Dernière intervention
22 septembre 2017
21 sept. 2017 à 19:24
21 sept. 2017 à 19:24
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
Cris
Crsi68300
Messages postés
7
Date d'inscription
mercredi 20 septembre 2017
Statut
Membre
Dernière intervention
22 septembre 2017
21 sept. 2017 à 20:12
21 sept. 2017 à 20:12
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
Voir fichier ci-joint.
Merci d'avance.
Cris
https://www.cjoint.com/c/GIvsmyXk2PD
Crsi68300
Messages postés
7
Date d'inscription
mercredi 20 septembre 2017
Statut
Membre
Dernière intervention
22 septembre 2017
21 sept. 2017 à 20:32
21 sept. 2017 à 20:32
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
Modifié le 21 sept. 2017 à 20:38
Modifié le 21 sept. 2017 à 20:38
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
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
Crsi68300
Messages postés
7
Date d'inscription
mercredi 20 septembre 2017
Statut
Membre
Dernière intervention
22 septembre 2017
Modifié le 21 sept. 2017 à 21:05
Modifié le 21 sept. 2017 à 21:05
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
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
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
21 sept. 2017 à 22:54
21 sept. 2017 à 22:54
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 :
puis la macro associé au bouton devient :
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
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
Crsi68300
Messages postés
7
Date d'inscription
mercredi 20 septembre 2017
Statut
Membre
Dernière intervention
22 septembre 2017
Modifié le 22 sept. 2017 à 00:36
Modifié le 22 sept. 2017 à 00:36
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
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
Crsi68300
Messages postés
7
Date d'inscription
mercredi 20 septembre 2017
Statut
Membre
Dernière intervention
22 septembre 2017
22 sept. 2017 à 11:24
22 sept. 2017 à 11:24
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
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
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
22 sept. 2017 à 15:29
22 sept. 2017 à 15:29
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
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
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
29 sept. 2017 à 17:12
29 sept. 2017 à 17:12
Bonjour Via55,
J'ai bien avancer sur le fichier, enfin maintenant la mise en forme ne devrais plus bouger.
Est ce que je peux te demander encore une fois un peu d'aide?
En effet je rencontre un problème lors de la validation de mon ticket de caisse.
Voir dans: Userform3; Sub Valider_le_ticket; section : With sheets(Suivi ventes) et 'presta
Tu verras que lorsque je valide le ticket, j'envoie bien les données dans stock, j'envoie bien également dans le journal de caisse. Mais impossible d'envoyer dans suivi ventes.
Je ne comprend pas pourquoi.
Merci d'avance si tu peux jeter un œil.
Cris
https://www.cjoint.com/c/GIDpmEte1QD
J'ai bien avancer sur le fichier, enfin maintenant la mise en forme ne devrais plus bouger.
Est ce que je peux te demander encore une fois un peu d'aide?
En effet je rencontre un problème lors de la validation de mon ticket de caisse.
Voir dans: Userform3; Sub Valider_le_ticket; section : With sheets(Suivi ventes) et 'presta
Tu verras que lorsque je valide le ticket, j'envoie bien les données dans stock, j'envoie bien également dans le journal de caisse. Mais impossible d'envoyer dans suivi ventes.
Je ne comprend pas pourquoi.
Merci d'avance si tu peux jeter un œil.
Cris
https://www.cjoint.com/c/GIDpmEte1QD
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
29 sept. 2017 à 17:51
29 sept. 2017 à 17:51
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
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
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
29 sept. 2017 à 18:01
29 sept. 2017 à 18:01
Re,
Merci beaucoup, j'essaye ça de suite... Dire que j'ai passé l'après midi à chercher...
Oui il n'y a pas encore pour Vente car tant que presta ne fonctionnais pas je n'ai pas encore écris pour les ventes.
J'essaye de suite et si tout ok je créer le tout et te fais un retour.
Un immense MERCI pour ta réactivité!
Cris
Merci beaucoup, j'essaye ça de suite... Dire que j'ai passé l'après midi à chercher...
Oui il n'y a pas encore pour Vente car tant que presta ne fonctionnais pas je n'ai pas encore écris pour les ventes.
J'essaye de suite et si tout ok je créer le tout et te fais un retour.
Un immense MERCI pour ta réactivité!
Cris
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
29 sept. 2017 à 18:06
29 sept. 2017 à 18:06
Je viens de copier coller, ma vente se valide mais toujours rien dans suivi ventes...
Je ne comprends vraiment pas
Je ne comprends vraiment pas
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
>
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
29 sept. 2017 à 18:09
29 sept. 2017 à 18:09
Renvoie moi ton fichier corrigé
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
29 sept. 2017 à 18:19
29 sept. 2017 à 18:19
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
>
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
29 sept. 2017 à 18:41
29 sept. 2017 à 18:41
C'est moi qui avait omis de te signaler de changer les Ligne en I dans les 2 lignes suivantes :
If Range("E4") <> 0 Then .Range("I" & i) = (TextBox4)
If Range("E4") <> 0 Then .Range("F" & i) = Range("E4")
ça devrait être bon maintenant
Cdlmnt
Via
If Range("E4") <> 0 Then .Range("I" & i) = (TextBox4)
If Range("E4") <> 0 Then .Range("F" & i) = Range("E4")
ça devrait être bon maintenant
Cdlmnt
Via
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
Modifié le 29 sept. 2017 à 19:42
Modifié le 29 sept. 2017 à 19:42
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
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
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
29 sept. 2017 à 19:49
29 sept. 2017 à 19:49
Je suis de sortie ce soir, je regarde ça en rentrant ou demain
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
29 sept. 2017 à 19:59
29 sept. 2017 à 19:59
Normal, pas de souci,
très bonne soirée à toi.
Cris
très bonne soirée à toi.
Cris
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
29 sept. 2017 à 22:53
29 sept. 2017 à 22:53
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
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
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 00:14
30 sept. 2017 à 00:14
impossible d'ouvrir le fichier...
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
30 sept. 2017 à 00:24
30 sept. 2017 à 00:24
et ici?
https://mon-partage.fr/f/AYHJOgv4/
https://mon-partage.fr/f/AYHJOgv4/
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 00:39
30 sept. 2017 à 00:39
Oui super!
je regarde ça de suite, mais pour l'instant j'ai une dizaine de seconde entre la validation click et l'exécution...
Je pense plus PC trop vieux.
En tout cas merci encore, je regarde ton travail de très prêt et reviens vers toi,
Cris
je regarde ça de suite, mais pour l'instant j'ai une dizaine de seconde entre la validation click et l'exécution...
Je pense plus PC trop vieux.
En tout cas merci encore, je regarde ton travail de très prêt et reviens vers toi,
Cris
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 04:58
30 sept. 2017 à 04:58
Merci ça fonctionne.
Du coup j'ai passé la nuit à comprendre les boucles (car même si ce fichier va servir à une amie pour son commerce, mon premier but est de m'améliorer et d'apprendre).
Par contre toujours ce problème, plus de 20 sec d'attente lors de la validation... (début de semaine je vais acheter un nouveau PC et pense que sa ira mieux)
Du coup j'ai passé la nuit à comprendre les boucles (car même si ce fichier va servir à une amie pour son commerce, mon premier but est de m'améliorer et d'apprendre).
Par contre toujours ce problème, plus de 20 sec d'attente lors de la validation... (début de semaine je vais acheter un nouveau PC et pense que sa ira mieux)
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 05:04
30 sept. 2017 à 05:04
Est-ce que tu peux regarder l'ajout d'un nouveau client.
Usf2
Car à l'ajout j'ai besoin qu'il se mette sur la dernière ligne mais avant j'ai besoin de copier les formules des colonnes (A,S,T,U,V)
Je n'y arrive pas...
https://www.cjoint.com/c/GIEdeGeeAnD
Usf2
Car à l'ajout j'ai besoin qu'il se mette sur la dernière ligne mais avant j'ai besoin de copier les formules des colonnes (A,S,T,U,V)
Je n'y arrive pas...
https://www.cjoint.com/c/GIEdeGeeAnD
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 06:13
30 sept. 2017 à 06:13
Via,
Je viens de remarquer que depuis ta boucle, je n'ai plus le report dans stock...
Je n'ose pas y toucher, je préfère t'attendre.
Cris
Je viens de remarquer que depuis ta boucle, je n'ai plus le report dans stock...
Je n'ose pas y toucher, je préfère t'attendre.
Cris
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
>
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 12:13
30 sept. 2017 à 12:13
Bonjour Cris,
1) le report dans stock s'effectue bien chez moi dans le fichier que tu m'as envoyé
2) Ne t'embêtes pas avec la recopie des formules par macro, étends d'abord ces formules sur un nombre de lignes conséquentes (nombre de clients maxi évalués : 500 par ex) mais pas jusqu'en bas car ça ferait ramer encore plus
L'extension n'est pas gênante car les formules n'affichent que du vide ou 0 si pas de valeur en colonnes précédentes
Cdlmnt
Via
1) le report dans stock s'effectue bien chez moi dans le fichier que tu m'as envoyé
2) Ne t'embêtes pas avec la recopie des formules par macro, étends d'abord ces formules sur un nombre de lignes conséquentes (nombre de clients maxi évalués : 500 par ex) mais pas jusqu'en bas car ça ferait ramer encore plus
L'extension n'est pas gênante car les formules n'affichent que du vide ou 0 si pas de valeur en colonnes précédentes
Cdlmnt
Via
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
30 sept. 2017 à 14:15
30 sept. 2017 à 14:15
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
If Range("E" & n) > 0 Then .Range("C" & n - 1) = .Range("C" & n - 1) - Range("E" & n)
Cdlmnt
Via
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 14:18
30 sept. 2017 à 14:18
Super effectivement c'étais ça.
Il me tarde d'avoir ta lecture pour le deviner tout seul...
Merci encore
Il me tarde d'avoir ta lecture pour le deviner tout seul...
Merci encore
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 14:23
30 sept. 2017 à 14:23
En attendant ta réponse, je cherchais à faire le calcul du rendu monnaie.
Toujours sur Usf3
J'aimerais afficher la différence de Txtbox1 - 2 dans textbox 3 (j'ai aussi essayé avec frame pour le rendre non cliquable.
Voici ce que je fait:
Private Sub TextBox3_Change()
UserForm3.TextBox3.Value = TextBox1 - TextBox2 'aussi essayer avec (.....)
TextBox3.Value = Format(TextBox2.Value, "0.00 €")
End Sub
Mais impossible.
Tant que j'y suis, ensuite, reporter ce montant dans la msgbox de validation, de façon à se que la personne en caisse puisse le laisser affiché avant de cliquer ok, pour s'en servir en rendant la monnaie, vous vous en serais douté...
Si j'en demande trop n'hésites pas à me le dire, car j'apprécie beaucoup ton aide et tes connaissances, mais ça commence à faire beaucoup...
(Si tu passes dans le coin de l'institut de beauté qui va utiliser ce fichier, tu auras massage gratuit de ma part!!!!!!!!)
Bien cordialement,
Cris
Toujours sur Usf3
J'aimerais afficher la différence de Txtbox1 - 2 dans textbox 3 (j'ai aussi essayé avec frame pour le rendre non cliquable.
Voici ce que je fait:
Private Sub TextBox3_Change()
UserForm3.TextBox3.Value = TextBox1 - TextBox2 'aussi essayer avec (.....)
TextBox3.Value = Format(TextBox2.Value, "0.00 €")
End Sub
Mais impossible.
Tant que j'y suis, ensuite, reporter ce montant dans la msgbox de validation, de façon à se que la personne en caisse puisse le laisser affiché avant de cliquer ok, pour s'en servir en rendant la monnaie, vous vous en serais douté...
Si j'en demande trop n'hésites pas à me le dire, car j'apprécie beaucoup ton aide et tes connaissances, mais ça commence à faire beaucoup...
(Si tu passes dans le coin de l'institut de beauté qui va utiliser ce fichier, tu auras massage gratuit de ma part!!!!!!!!)
Bien cordialement,
Cris
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
>
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 15:04
30 sept. 2017 à 15:04
Re,
Pas de souci !
Ta sub dois se déclencher au changement dans textbox1, pas textbox2 :
Pour afficher le rendu aussi dans la boîte de message, modifier ainsi les premières lignes :
En attendant la suite (je suis sûr qu'il y en aura une)
Bien cordialement
Via
Pas de souci !
Ta sub dois se déclencher au changement dans textbox1, pas textbox2 :
Private Sub TextBox1_Change() If TextBox1 = "" Then Exit Sub TextBox3.Value = TextBox1 - TextBox2 TextBox3.Value = Format(TextBox3.Value, "0.00 €") End Sub
Pour afficher le rendu aussi dans la boîte de message, modifier ainsi les premières lignes :
Private Sub CommandButton1_Click()
Dim Rep As Integer
If TextBox3 > 0 Then mes = "A rendre : " & TextBox3
Rep = MsgBox("Valider la vente?" & Chr(10) & mes, vbYesNo + vbQuestion, "mDF XLpages.com")
En attendant la suite (je suis sûr qu'il y en aura une)
Bien cordialement
Via
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
>
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
30 sept. 2017 à 15:27
30 sept. 2017 à 15:27
Wouaw tu es magique!!!! Je n'aurais jamais trouvé.
Mais tu sais qu'à chaque solution que tu me donnes, je la décortique consciencieusement pour comprendre et apprendre.
Je suis passionné de la puissance Excel! c'est pour ça.
Allez à très vite comme tu dit! :)
Cris
Mais tu sais qu'à chaque solution que tu me donnes, je la décortique consciencieusement pour comprendre et apprendre.
Je suis passionné de la puissance Excel! c'est pour ça.
Allez à très vite comme tu dit! :)
Cris
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
>
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 15:46
30 sept. 2017 à 15:46
Oui c'est ça qui est passionnant avec Excel on n'a jamais fini d'apprendre et tout ce qu'on peut arriver à faire est incroyable
A bientôt
Via
A bientôt
Via
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 17:30
30 sept. 2017 à 17:30
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
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
via55
Messages postés
14402
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 avril 2024
2 702
30 sept. 2017 à 19:09
30 sept. 2017 à 19:09
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
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
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
30 sept. 2017 à 19:39
30 sept. 2017 à 19:39
ok je retiens pour le partage.
Je regarde de suite ton travail.
Merci
Je regarde de suite ton travail.
Merci
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
Modifié le 1 oct. 2017 à 15:19
Modifié le 1 oct. 2017 à 15:19
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/
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/
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
1 oct. 2017 à 15:23
1 oct. 2017 à 15:23
NUL NUL que je suis, oubli ce message!!!
Une formule étais entrée en S et T, suite à la suppression de ses 2 colonnes mon problème est résolu!!!
Une formule étais entrée en S et T, suite à la suppression de ses 2 colonnes mon problème est résolu!!!
Cris68300
Messages postés
104
Date d'inscription
dimanche 27 août 2017
Statut
Membre
Dernière intervention
21 septembre 2018
1 oct. 2017 à 15:27
1 oct. 2017 à 15:27
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
J'ai trouver avec formatnumber 00000
Mais mon code postal devient 82 100 rangé sur gauche
au lieu de:
82100 rangé à droite
Cdt
Cris
