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

 

[job75]

Bonjour pinard, le fil,

je n'arrive pas à faire matcher le classeur du #2 et le classeur du #8

Autrement dit vous voulez des boutons au lieu du double-clic ? Alors affectez cette macro au bouton de chaque feuille :

Sub Compter()
If ActiveCell.Column > 1 Or ActiveCell.Row < 5 Or ActiveCell = "" Then Exit Sub
ActiveCell(1, 2) = Val(ActiveCell(1, 2)) + 1
If ActiveCell(1, 2) = 11 Then ActiveCell(1, 2) = "Gratuit"
'---ventilation mensuelle---
With ActiveCell(1, 3 + Application.Match(CDbl(Date), [D4:XFD4]))
    .Value = .Value + 1 'pizza gratuite comptée
End With
End Sub

A placer dans un module standard.

A+

 

[Scorpio]

Bonsoir Job75 et Pinard,
Je voudrais juste savoir pourquoi je reçois sur mon mail, votre conversation du fil qui ne me concerne pas ???

 

[job75]

Bonjour Scorpio,

Je voudrais juste savoir pourquoi je reçois sur mon mail, votre conversation du fil qui ne me concerne pas ???

Comment ça conversation ? Il s'agit de la suite de la discussion ouverte au post #1 de ce fil.

Si vous recevez des mails à son sujet c'est peut-être que vous avez demandé à en être informé.

A+

 

[pinard]

bonjour job75,

je te remercie

 

[pinard]

bonjour et meilleurs vœux à tous,

L'année a changée et je voudrais faire évoluer mon fichier.
recommencer un nouveau fichier avec un nouveau calendrier comme dans la capture d'écran voici mon code par feuille mais cela ne fonctionne pas.
voici le code associé à chaque feuille de calcul:
Sub Compter()
If ActiveCell.Column > 1 Or ActiveCell.Row < 5 Or ActiveCell = "" Then Exit Sub
ActiveCell(1, 3) = Val(ActiveCell(1, 3)) + 1
If ActiveCell(1, 3) = 11 Then ActiveCell(1, 13) = "Gratuit"
If ActiveCell(1, 3) = 11 Then ActiveCell(1, 3) = "0"
'---ventilation mensuelle---
With ActiveCell(1, 5 + Application.Match(CDbl(Date), [f4:XFD4]))
.Value = .Value + 1 'pizza gratuite comptée
End With
End Sub


En vous remerciant pour votre aide

 

[job75]

Bonjour pinard, le forum,

Il suffit de compléter le tableau avec les mois de l'année 2019, sans effacer 2018.

Voyez la feuille "A" de ce fichier (3), j'ai fractionné la fenêtre.

Bonne et heureuse année 2019 à tous.

 

[pinard]

bonjour job75
J'ai fait un bouton en plus dans mon fichier, pour chaque feuille j'ai une macro.
Ton programme fonctionne bien, mais je n'arrive pas à l'adapter au mien.
en plus j'ai une notion de gratuit àl'affichage
Je ne décale pas au mois suivant
Est-ce que tu pourrais me conseiller
En te remerciant

 

[job75]

Bonjour pinard,

Avec ma macro le nom de chaque onglet doit être une lettre...

A+