Macro pour journal de caisse

Bonsoir Cris

Oui ça va et toi aussi je suppose ☺
Oui en recherchant 18/01/2018 à partir du bas la macro s'arrête sur le 18/11/2018 !!
Pour éviter cela il faut exiger une correspondance exacte en rajoutant une instruction xlWhole dans toutes les lignes des macros recherchant Date avec Find
ligne = .Columns(2).Find(Date, , , xlWhole, xlByColumns, xlPrevious).Row

Cdlmnt
Via

Bonjour Via, le forum,

J'espère que tu vas bien depuis nos derniers échanges.

Je reviens vers toi car je rencontre un léger problème avec un des codes de programmation que tu m'avais donné...

Je m'explique: J'ai changé le journal de caisse 2017 en 2018. Puis installé le programme chez mon amie qui s'en sert maintenant tous les jours. Mais après avoir changé en 2018. En validant un ticket de caisse, il me faisais un report sur novembre (ex: 6 novembre lorsqu'on étais le 6 janvier).

Ton code:
Ligne = .Columns(2).Find(Date, , , , xlByColumns, xlPrevious).Row

Je l'ai changé en enlevant juste une virgule et c'étais bon.

Seulement là, je suis allé à l'institut car elle me disais que ses chiffres n'étais pas bon. Et lors de la journée de mardi, tous les tickets se sont bien rangés dans janvier et sans savoir pourquoi, 3 tickets se sont mis sur novembre.

Est ce que de ton côté tu arrives à comprendre ce qu'il se passe?

Merci d'avance si tu peux regarder.

Cdlt, Cris

https://mon-partage.fr/f/80utE4tX/

UseForm3

Bonjour Cris,

Je en comprends pas ce que tu veux obtenir avec ta macro, notamment la ligne
With Sheets("Journal de caisse")

If Range("B61") = "JANVIER" Then
Range("B67") = Range("O67").Value
Il n'y a pas de JANVIER en B61 de Journal !

Je pense que tu veux trop compliquer et que tu vas en faire une usine à gaz !

D'autre aprt lorque tu utilises With c'est pour éviter de repéter à chaque fois la feuille mais il ne faut pas oublier le point devant l'instruction devant suivre Sheets()

Dans tes lignes en fin de macro :
With Sheets("STATISTIQUE")

Sheets("STATISTIQUE").Activate
Range("AO65").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

.Range("B60").Select

End With

1) Sheets("STATISTIQUE") devant Activate est inutile puisqu'avant il y a le With don c tu devrait seulement avoir .Activate
2) Par contre après si tu veux sélectionner A065 de Statistiques il manque justement le point devant Range

Cdlmnt
Via

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

Via,

Je suis en train de m'y perdre...

Ta solution est très logique mais pas si simple à réaliser.

Je te montre si tu veux même si là, dans visual basic j'ai tout chamboulé à force de tout tester dans tout les sens...

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

La macro fonctionne pour l'onglet statistique, mais non dans l'onglet Tableau de bord == Gestion mensuelle.
J'ai un problème de copy.

Cdt,
Cris

Bonsoir Cris

A ma connaissance tu ne peux pas actionner un bouton d'une feuille depuis une autre feuille ou un UF
mais si tu veux utiliser la même macro il ne faut pas la mettre dans la sub du bouton mais en faire une macro dans un module ex :
Sub validations
tes lignes de codes
End Sub

Ensuite pour la lancer d'un bouton ou a partir d'une autre macro il suffit dans une ligne de code me mettre le nom de cette macro :
Pour le bouton :
Private Sub CommandButton1_Click()
validations
End Sub
Pour une autre macro
Sub macrotrucmachin
lignes de codes éventuellement à exécuter avant
validations
lignes de codes éventuellement à exécuter après
End Sub

Cdlmnt
Via

Bonsoir Via,

Je ne sais pas si ça va être très compréhensif mais j'essaye.

J'ai crée un commandButton2 sur une page. Celui-ci est la validation d'un certain nombre de chose. Son code fonctionne parfaitement.

Maintenant, dans le tableau de bord, en validant une commande dans un userform, j'ai besoin d'écrire l'action d'exécuter le commandbutton2 de l'autre onglet.

J'ai essayé: .Click , .Activate , .select

Je te donne l'exemple:

With Sheets("STATISTIQUE")
For i = 0 To 11

If Cbxmois.ListIndex = i Then .ComboBox1 = Cbxmois.Value

Next i

CommandButton2

Unload Me

End With

Mais rien ne fonctionne.

Sais tu quelle fonction dois je utiliser?

Merci d'avance si tu as la réponse,
Cris

Bonjour

1) il faut une instruction Workbooks (classeur) et non Window pour que cela fonctionne (je ne sais pas pourquoi)
2) Tu n'as pas mis les . devant les Range à l'intérieur du With

Remplace la partie de macro concernée par celle-là :

With Workbooks("Fichier extraction des stats.xlsm")
.Activate
.Sheets("MAIL").Select
.Sheets("MAIL").Range("C2").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End With

Bon WE
Via

Bonjour Via,

J'ai passé la nuit à essayer d'extraire les stats... mais en vain.

Je n'arrive pas à comprendre, pourtant il s'agit de quelque chose déjà fait...

Peut être un peu de sommeil pour éclairer le cerveau.

Je te laisse les 2 fichiers si tu veux voir où j'en suis:

https://mon-partage.fr/f/5Deziyo3/
https://mon-partage.fr/f/g2segIP2/

Le but c'est en fonction de la sélection de USFextract on vienne remplacer les données dans le 2ieme fichier. Juste l' identité car après je ferais un lien pour les mails, téléphones, etc...

Si tu vois mon erreur, je suis preneur.
Je me remets dessus dés mon réveil.

Bonne journée à toi.

Cris

Le plus simple en rajoutant des colonels dans Clients :
https://mon-partage.fr/f/ydiuNmRm/

Bien cdlmnt
Via

Bonsoir Cris

Je suis de sortie ce soir, je regarderai ton fichier en rentrant si tu me le postes sur mon-partage
A+
Cdlmnt
Via

Bonsoir Via,

Toute la journée, j'ai avancé sur la partie Statistique.

Tout est en forme ça y est, même si j'ai du rajouter beaucoup de paramètres pour analyser le nombre de fois qu'un code postal passe en caisse, ainsi qu'une liste dynamique sans doublon des codes postaux et d'un pourcentage de codes postaux afin d'avoir un rendu sur la zone de chalandise.
Ainsi elle pourra mieux diriger sa comm pub...

Par contre là je suis sur la partie anniversaire client, de façon à savoir quel client est né ce mois ci, et pouvoir lancer une offre si besoin d'activité.

Voici ma formule:

=SIERREUR(INDEX(Cherche1;EQUIV(Clients!K:K;"="&MOIS(AUJOURDHUI());0));"")

Cherche1 = liste des clients
K:K = mois de naissance (en nombre)

Mais aucun résultat... juste erreur "valeur" (si j'enlève SIERREUR).

Est ce que tu as une idée de mon erreur?
C'est à chaque fois qu'il y a une histoire de date (aujourd'hui) que je bloque...

Cdt,
Cris

Bonjour Cris

Solution 1 :
If ComboBox1.Value = "ZAO" And Range("G" & f) = "Accessoire" Then .Range("E5") = .Range("E5") + Range("K" & f):.Range("I5") = .Range("I5") + Range("H" & f):.Range("K5") = .Range("K5") + Range("J" & f)

Lorsque plusieurs instructions suivent un IF il faut les séparer par 2 points

Solution 2 :
If ComboBox1.Value = "ZAO" And Range("G" & f) = "Accessoire" Then .Range("E5") = .Range("E5") + Range("K" & f)
.Range("I5") = .Range("I5") + Range("H" & f)
.Range("K5") = .Range("K5") + Range("J" & f)
End if

Si les instructions sont sur des lignes différentes on met End if après pour les instructions au dessus ne soient exécutées que lorsque la condition du If est vraie

Pour la simplification c'est sûrement possible par une boucle,
renvoie moi ton fichier avec ton code actuel

Cdlmnt
Via

Bonjour Via,

J'ai fini de codé (presque tout seul!) la réception.

Maintenant je travaille sur la validation de celle-ci qui va donc transférer les donnés dans le stock. Pour explication, je dois transférer la quantité, le prix d'achat et celui de vente.

Donc j'ai fait une boucle sur la colonne source, ça c'est ok.

Par contre voilà, j'ai un problème et une question.
Mon problème:

Lorsque je valide, voici le code:

If ComboBox1.Value = "ZAO" And Range("G" & f) = "Accessoire" Then .Range("E5") = .Range("E5") + Range("K" & f)
.Range("I5") = .Range("I5") + Range("H" & f)
.Range("K5") = .Range("K5") + Range("J" & f)

La première instruction se trouvant derrière "Then" fonctionne parfaitement en tenant compte des 2 instructions, il s'agit de la quantité.
Mais les 2 suivantes, (les tarifs) se reportent sans respecter les conditions.

Il y a t'il un mot supplémentaire à placer devant? (j'ai essayé And, Else...)

Puis ma question:

Je dois effectuer toutes cette ligne pour chaque produit de chaque fournisseur. Vois tu une façon de raccourcir? j'ai un peu peur de reprendre de la lenteur sinon, alors que je n'en ai plus du tout actuellement.

Merci d'avance Via,

Cordialement,
Cris

Bonjour Cris

Comme on a de la chance que les 2 fournisseurs ayant la même liste de produits j'ai opté pour la solution suivante :
- dans Parametre les listes de produits nommées listeZ, liste A .. c'est à dire liste suivi de l'initiale du fournisseur
- macro associé à un changement dans le combobox du chois du fournisseur pour modifier la propriété ListFillRange du combox2 en recomposant un nom de plage valide avec liste et initiale du fournisseur
https://mon-partage.fr/f/8SvWTAJJ/

Cdlmnt
Via

Bonjour Via, Le forum,

Bon finalement je n'ai pas fini, car en me plongeant aujourd'hui dans la partie comptable je me rends compte que je n'ai pas de valeur de stock.

Donc je reprends entièrement l'onglet réception, ainsi que celui du stock.

Là j'ai fini l'onglet réception dans la forme mais je me mets à programmer.

Donc voici ma question:

Pour une combo, comment puis je faire son row source en fonction du fournisseur que j'ai sélectionné dans la première combo "choix du fournisseur"?

Je pense que c'est relativement simple, si tu m'expliques, je devrais y arriver.

Merci d'avance,

Cdt,
Cris

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

Via,

Tout est ok, je te remercie encore.

J'ai également ajouté l'ancienne formule, de se fait, j'ai l'historique venant du fichier de sauvegarde et également les passages et CA du mois en cours avant le RAZ.

C'est parfait!!!

Cette après midi, j'ai travaillé sur les stats, j'ai bien avancé, donc maintenant je me mets sur l'extraction. Je t'en dirais plus dès que je rencontrerais des difficultés...

Bien cordialement,
Cris

La solution la plus simple que je vois pour l'instant :
1) Dans la fichier secondaire créer une feuille clients avec en colonne A une liaison avec le la colonne des noms de feuille Clients du fichier principal (tu sais faire une liaison ?)
Après 12 colonnes pour les 12 mois où on rapatrie avec une formule SOMME.SI pour chaque client son total de chaque feuille mois
Après ces 12 colonnes, 2 autres colonnes : l'une où se font les totaux individuels des 6 derniers mois, l'autre ceux des 12 derniers mois
2) De nouveau une liaison mais dans l'autre sens dans les deux colonnes des mois glissants de la feuille Clients du fichier principal

Cdlmnt
Via

A première vue le plus simple est de créer dans la feuille clients après la date de naissance 12 colonnes pour les 12 mois et dans la macro caisse faire ajouter la somme vendue dans le bon mois
Ensuite les formules mois glissants n'ont pas besoin d'aller chercher dans suivi caisse
Si tu veux utiliser sur plusieurs années tu prévois 24 colonnes pour les 12 mois de 2 années (ce qui permet le calcul des 12 mois glissants
Si tu veux garder les sommes dépensées par un client tu prévois une colonne supplémentaire années précédentes et tu prévois une macro qui lorsque 2 ans sont écoulés fais les somme des 24 colonnes, l'ajoute au total précédent et efface les 24 colonnes pour une nouvelle durée de 2 ans

Ce matin, je t'ai parlé du RAZ Mensuel de façon à épurer le suivi des ventes.

Tout fonctionne, mais problème de taille; car nous avons complété les fréquentations 6 mois / 12 mois et de même pour CA dans les fiches clients, sur la base du suivi des ventes. Donc quand j'effectue le RAZ, forcément mes fréquentations des les fiches clients reviennent toute à 0.

Je cherche une façon de comptabiliser ces données, mois par mois soit dans paramètre soit sur la droite des fiches clients et cacher en blanc au moment voulu. (ou dans le fichier complémentaire)

Sais-tu comment je peux m'y prendre?

Merci d'avance,
Cris

https://mon-partage.fr/f/jTMZ0Yxd/
https://mon-partage.fr/f/1SCS54wg/

Je ne sais pas pourquoi ce dysfonctionnement et je n'arrive pas à la reproduire chez moi; le double-clic dans d'autre feuilles n'ouvre pas la fenêtre

As tu besoin de cette propriété dropdown ? Perso je ne l’utilise jamais

Cdlmnt
Via