Carte de fidélité avec quelque fonctionnalité
Petitgamin21
Messages postés
5
Statut
Membre
-
Petitgamin21 Messages postés 5 Statut Membre -
Petitgamin21 Messages postés 5 Statut Membre -
Bonjour,
j'ai fais une recherche sur un fichier pour carte de fidélité, j'ai trouvé un modèle sur le net qui proposait 10% au 10ième achat.
je l'ai donc adapté à ma situation. je tiens une friterie avec carte de fidélité (carton) et comme beaucoup de client, ils oublient souvent leur carte, donc je commençait à les garder ici, mais sa commence à faire beaucoup, donc j'ai décidé d'informatiser cela sur excel, (c'est vrai qu'il y a des système et programme pour le font déjà, mais coûteux aussi et puis j'ai bien me mettre des défis à essayé et à réussir, mais ici je galère malgré mainte recherche sur le net, je n'arrive pas à assembler correctement la formule.
donc dans mon fichier, j'ai sur une feuille les achat déjà fait qui s'ajoute à l'aide de la seconde feuille, je sélectionne le nom, je clique sur ajout achat et j'indique le nombre puis ok,
j'ai réussi à faire la recherche que sa soit par nom, prénom ou numéro de téléphone.
j'ai réussi à afficher la date du dernier passage.
ce que je n'arrive pas, c'est afficher la date de la dernière remise faite. je cale la dessus.
ce que je n'ai pas encore travaillé, c'est indiquer le nombre restant avant avant la prochaine remise.
j'ai ajouté un bouton imprimer qui n'est pas encore affecté à une macro, donc pas encore travaillé dessus non plus, ce bouton, j'aimerais bien qu'il serve à imprimer le nom et prénom de la personne sélectionné avec les dates des 10 dernière frite acheté (par exemple
Dupont étienne
10/09/18: 3 frite
15/10/18: 5 frite
01/11/18: 2 frite
1 Frite gratuite
quelque chose de ce genre), j'imprimerais cela sur l'imprimante de ma caisse grâce à ce code qui dirigeras l'impression sur cette imprimante, j'ai l'ai ajouté dans le fichier, mais n'est pas encore au point.
Sub étiquette_sélection()
' étiquette_sélection Macro
Application.ActivePrinter = "TM-T70II COM USB sur Ne00:"
Selection.PrintOut Copies:=1, Collate:=True
End Sub
voila, je pense que ce que j'aimerais bien faire est déjà pas mal, j'espère juste que je trouverais au moins une âme charitable qui voudra bien me prêter main forte.
je joint le fichier à ce post pour plus de facilité
https://www.cjoint.com/c/HKrkKjtbQx7
d'avance un très grand merci pour l'aide que je pourrais avoir.
bonne journée.
j'ai fais une recherche sur un fichier pour carte de fidélité, j'ai trouvé un modèle sur le net qui proposait 10% au 10ième achat.
je l'ai donc adapté à ma situation. je tiens une friterie avec carte de fidélité (carton) et comme beaucoup de client, ils oublient souvent leur carte, donc je commençait à les garder ici, mais sa commence à faire beaucoup, donc j'ai décidé d'informatiser cela sur excel, (c'est vrai qu'il y a des système et programme pour le font déjà, mais coûteux aussi et puis j'ai bien me mettre des défis à essayé et à réussir, mais ici je galère malgré mainte recherche sur le net, je n'arrive pas à assembler correctement la formule.
donc dans mon fichier, j'ai sur une feuille les achat déjà fait qui s'ajoute à l'aide de la seconde feuille, je sélectionne le nom, je clique sur ajout achat et j'indique le nombre puis ok,
j'ai réussi à faire la recherche que sa soit par nom, prénom ou numéro de téléphone.
j'ai réussi à afficher la date du dernier passage.
ce que je n'arrive pas, c'est afficher la date de la dernière remise faite. je cale la dessus.
ce que je n'ai pas encore travaillé, c'est indiquer le nombre restant avant avant la prochaine remise.
j'ai ajouté un bouton imprimer qui n'est pas encore affecté à une macro, donc pas encore travaillé dessus non plus, ce bouton, j'aimerais bien qu'il serve à imprimer le nom et prénom de la personne sélectionné avec les dates des 10 dernière frite acheté (par exemple
Dupont étienne
10/09/18: 3 frite
15/10/18: 5 frite
01/11/18: 2 frite
1 Frite gratuite
quelque chose de ce genre), j'imprimerais cela sur l'imprimante de ma caisse grâce à ce code qui dirigeras l'impression sur cette imprimante, j'ai l'ai ajouté dans le fichier, mais n'est pas encore au point.
Sub étiquette_sélection()
' étiquette_sélection Macro
Application.ActivePrinter = "TM-T70II COM USB sur Ne00:"
Selection.PrintOut Copies:=1, Collate:=True
End Sub
voila, je pense que ce que j'aimerais bien faire est déjà pas mal, j'espère juste que je trouverais au moins une âme charitable qui voudra bien me prêter main forte.
je joint le fichier à ce post pour plus de facilité
https://www.cjoint.com/c/HKrkKjtbQx7
d'avance un très grand merci pour l'aide que je pourrais avoir.
bonne journée.
A voir également:
- Carte de fidélité avec quelque fonctionnalité
- Pile carte mere - Guide
- Carte fidélité auchan - Accueil - Guide arnaque
- Carte d'identité - Accueil - Services publics
- Changer de carte graphique - Guide
- Hippopotamus fidélité - Télécharger - Cuisine & Gastronomie
3 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 586
bonjour, le fichier partagé est vide.
Bonjour, désolé, je viens de le remettre en ligne.
https://www.cjoint.com/c/HKrpddvHPh7
https://www.cjoint.com/c/HKrpddvHPh7
si cela est plus facile, oui je peux, si c'est une date ou si c'est un "ok", celà ne change rien pour moi car à la fin c'est une date que je désirerais mettre, car ce que je cherchais, c'était retrouvé le dernier "ok" de la personne, et copié la date qui se trouve juste à coté, mais je ne savais pas comment faire pour prendre le dernier passage, avec la condition du si le "ok était mis sinon de passé à celui avant.
