carte de fidélité pizzéria

Victor21

XLDnaute Barbatruc

• 5 Juin 2018

• #2

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

 

Pièces jointes

• Pizza.xlsm

  31.4 KB · Affichages: 88

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Juin 2018

• #3

Bonsoir pinard, Patrick,

C'est prometteur Patrick, tout à fait prometteur

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

Code:

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+

 

Pièces jointes

• Pizza(1).xlsm

  24.8 KB · Affichages: 42

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Juin 2018

• #4

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.

 

Pièces jointes

• TotalCumulPizza.xlsm

  36.1 KB · Affichages: 34

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 6 Juin 2018

• #5

Bonjour à tous

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Juin 2018

• #6

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Juin 2018

• #7

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

 

Pièces jointes

• TotalCumulPizza.xlsm

  37 KB · Affichages: 34

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juin 2018

• #8

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) :

Code:

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

A+

 

Pièces jointes

• Pizza(2).xlsm

  27.9 KB · Affichages: 65

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Juin 2018

• #9

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 6 Juin 2018

• #10

Bonjour, Gérard.

Commentaire annulé : j'avais dit une ânerie

 

Dernière édition: 6 Juin 2018

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Juin 2018

• #11

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

 

Vote positif 0 Vote négatif

P

pinard

XLDnaute Nouveau

• 6 Juin 2018

• #12

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 6 Juin 2018

• #13

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

 

Vote positif 0 Vote négatif

P

pinard

XLDnaute Nouveau

• 7 Novembre 2018

• #14

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 7 Novembre 2018

• #15

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é

 

Vote positif 0 Vote négatif