carte de fidélité pizzéria

job75

XLDnaute Barbatruc

• 7 Novembre 2018

• #16

Bonjour pinard, le fil,

pinard à dit:

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

Cliquez pour agrandir...

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

Code:

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+

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 7 Novembre 2018

• #17

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Novembre 2018

• #18

Bonjour Scorpio,

Scorpio à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

P

pinard

XLDnaute Nouveau

• 7 Novembre 2018

• #19

bonjour job75,

je te remercie

 

Vote positif 0 Vote négatif

P

pinard

XLDnaute Nouveau

• 1 Janvier 2019

• #20

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

 

Pièces jointes

• Capture2.JPG

  136.7 KB · Affichages: 28

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Janvier 2019

• #21

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.

 

Pièces jointes

• Pizza(3).xlsm

  28.1 KB · Affichages: 39

Vote positif 0 Vote négatif

P

pinard

XLDnaute Nouveau

• 4 Janvier 2019

• #22

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

 

Pièces jointes

• Copie de 2018FIDELITE.xlsm

  76.1 KB · Affichages: 11

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Janvier 2019

• #23

Bonjour pinard,

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

A+

 

Vote positif 0 Vote négatif