carte de fidélité pizzéria

[pinard]

bonjour,
je souhaite gérer mes cartes de fidélité de ma pizzéria via un fichier excel.
je souhaite garder en mémoire le nombre totale de pizza pris par client
je souhaite un bouton de remise à zéro quand on lui a offert sa pizza (la 11ème gratuite)
je ne suis pas sur de savoir comment incrémenter le nombre de pizza dans la carte par un bouton plus ou moins ou en faisant une addition dans une autre case
dans mon fichier il y a une feuille par lettre alphabétique

en vous remerciant pour votre aide

CDT

 

[Victor21]

Bonjour.

Basique (mais j'ai des excuses, je ne suis pas, et ne serai probablement jamais VBAiste) , et en attendant mieux :

Pour moi, ce sera une 4 saisons sans oignon

 

[job75]

Bonsoir pinard, Patrick,

C'est prometteur Patrick, tout à fait prometteur

Mais le double-clic c'est mieux que les boutons, le code du ThisWorkbook :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Len(Sh.Name) > 1 Or Target.Column > 1 Or Target.Row < 5 Or Target(1) = "" Then Exit Sub
Cancel = True
Target(1, 2) = Val(Target(1, 2)) + 1
If Target(1, 2) = 11 Then Target(1, 2) = "Gratuit"
End Sub

Ton fichier en retour Patrick, merci.

A+

 

[Scorpio]

Bonjour pinard,Victore21,job75
Une idée, si vous me permettez, c'est de totaliser en colonne C, de 10 en 10 a chaque fois que le client totalise 10.

 

[Lone-wolf]

Bonjour à tous

Pour moi ce sera une pizza Margerita et une cannette panaché 5dl.

 

[Scorpio]

Salut Lone-wolf
A oui, même chose pour moi

 

[Scorpio]

Re salut à tous,
Voici une piste…., voir onglet "A"
A plus

 

[job75]

Bonjour à tous,

Oui Scorpio on peut faire ce qu'on veut en terme de comptabilité

Par exemple faire une ventilation mensuelle dans ce fichier (2) :

'---ventilation mensuelle---
With Target(1, 3 + Application.Match(CDbl(Date), Sh.[D4:XFD4]))
    .Value = .Value + 1 'pizza gratuite comptée
End With

A+

 

[Scorpio]

Salut job75,
OK, merci du conseil, ca marche comme une pizza au four à bois.
Tip top.
A plus

 

[Victor21]

Bonjour, Gérard.

Commentaire annulé : j'avais dit une ânerie

 

[Scorpio]

Salut Victore21,
Effectivement, j'ai la même chose, il n'y a que l'onglet "A" qui fonctionne à mon avis.

 

[pinard]

bonjour,
Est-e qu'il serait possible de mettre un bouton plus et mois au lieu de double cliquer?

 

[Scorpio]

Salut pinard,
Le bouton se trouve dans le classeur du #2, (victor21)
A plus

 

[pinard]

bonjour,
je suis vraiment mauvais en programmation, je n'arrive pas à faire matcher le classeur du #2 et le classeur du #8
si vous pouvez m'expliquez dans une feuille de classeur en plus merci.

et voir pour une correspondance en libre office

merci

 

[Scorpio]

Bonjour Pinard,
je pense avoir reçu ce message par erreur, car je suis Scorpio, mais je n'ai jamais répondu a qui que se soit sur ce fil.
Il doit y avoir de la friture sur le site, ou je sais pas ce qui se passe.
Désolé