XL 2019 compte à rebours entrées "piscine"... ?

anthoYS

XLDnaute Barbatruc
Bonjour


je souhaite, qu'en G, quand je double clique, ça m'affiche "9", puis, le jour ou je cliquerais plus bas, "8" ainsi de suite jusqu'à 1, après repartir à 9...
je ne sais pas si je suis clair...

deux onglets dans le fichiers joint, ce qui est voulu est dans l'onglet suivant...

le deuxième en somme.
NOTA : + ajouter un commentaire prêt à être écrit quand le double clic gauche est fait ou le clic droit, en plus de colorer la cellule en fond bleu...


Merci par avance de votre aide...
 

Pièces jointes

  • tickets piscine.xlsx
    10.2 KB · Affichages: 7
Solution
Bonjour Anthony,Lolote,
Pas bien sur non plus d'avoir tout compris, un essai en PJ avec double clic gauche :
VB:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Fin
If Target.Column <> 7 Then Exit Sub             ' car non colonne G
L = Target.Row
Set Plage = Range(Cells(L, "G"), Cells(1000, "G"))
If Application.Sum(Plage) <> 0 Then Cells(L, "F").Select: Exit Sub   ' cas où on clique avant la premiere cellule remplie
For i = L To 2 Step -1
    If Cells(i, "G") <> "" Then
        If Cells(i, "G") = 1 Then               ' Si 1 avant alors on revient à 9
            Target = 9
        Else                                    ' Sinon on fait -1
            Target = Cells(i, "G") - 1
        End If...

anthoYS

XLDnaute Barbatruc
Bonjour,
Voici ton fichier en retour
En espérant avoir compris la consigne
@+ Lolote83
EXCEL_jT74sfXSTc.png

je vais voir pourquoi j'ai ça...
 

anthoYS

XLDnaute Barbatruc
ça ne peut pas marcher un double clic gauche sur G ou clic droit simple pour recharger la carte (à 9 entrées) car je retire la première des 10 vu que ce jour j'en prends une... je sais pas si je suis clair...

Je vais essayer demain, là je suis assez occupé cette après-midi !

je reviens vers vous demain ou jeudi...
 

Lolote83

XLDnaute Barbatruc
Re bonjour
ça ne peut pas marcher un double clic gauche sur G ou clic droit simple pour recharger la carte (à 9 entrées) car je retire la première des 10 vu que ce jour j'en prends une... je sais pas si je suis clair...
Je dirais NON. Pas tout compris.
Par contre, il n'existe pas de Double-Clic Gauche (Clic gauche simple OUI)

je souhaite, qu'en G, quand je double clique, ça m'affiche "9", puis, le jour ou je cliquerais plus bas, "8" ainsi de suite jusqu'à 1, après repartir à 9...
Il me semble que c'est ce que j'ai fait. Non ????

Dans l'attente de ton retour
@+ Lolote83
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Anthony,Lolote,
Pas bien sur non plus d'avoir tout compris, un essai en PJ avec double clic gauche :
VB:
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Fin
If Target.Column <> 7 Then Exit Sub             ' car non colonne G
L = Target.Row
Set Plage = Range(Cells(L, "G"), Cells(1000, "G"))
If Application.Sum(Plage) <> 0 Then Cells(L, "F").Select: Exit Sub   ' cas où on clique avant la premiere cellule remplie
For i = L To 2 Step -1
    If Cells(i, "G") <> "" Then
        If Cells(i, "G") = 1 Then               ' Si 1 avant alors on revient à 9
            Target = 9
        Else                                    ' Sinon on fait -1
            Target = Cells(i, "G") - 1
        End If
        Cells(L, "F").Select                    ' On se met sur la colonne F pour validation
        Exit Sub
    End If
Next i
Cells(L, "G") = 9                               ' Si on arrive là c'est que la colonne est vide, donc on met 9
Cells(L, "F").Select
Fin:
End Sub
 

Pièces jointes

  • tickets piscine (1).xlsm
    16 KB · Affichages: 4

Eric C

XLDnaute Barbatruc
Bonsoir le forum
Bonsoir AntoYS, Lolote83 et sylvanu.

Je ne pense pas que c'est cela que notre ami désire. Je me suis permis de mettre une partie texte sur le fichier de sylvanu pour expliquer ce que j'ai compris (peut etre me suis je trompé...).

Bonne soirée à vous
Eric c
 

Pièces jointes

  • tickets piscine (2).xlsm
    19.4 KB · Affichages: 8

Eric C

XLDnaute Barbatruc
Re le fil,

Tu as raison sylvanu, il désire travailler sur un mois non calendaire mais sur 4 semaine (De plus, il manque un dimanche au bas de son tableau).
Son carnet ne comporte que 9 billets (pourquoi... mystère) car il décompte de 9 à 1 pour repartir à 9.
De mon temps (lol), quand j'allais à la piscine, le rouleau de tickets était plus conséquent 🤣
@+
 

anthoYS

XLDnaute Barbatruc
Bonsoir Eric,
Mais dans la PJ de Anto, feuille Voulu, il n'y a pas de notion calendaire.
Je pensais plutôt à des carnets de 10 tickets, on utilise un ticket à chaque visite à la piscine.
Attendons qu'Anto nous fournisse l'explication. :)
Bonjour tout le fil !

oui 10 tickets, mais le 10e ne compte pas puisque je l'utilise le jour ou je prends l'abonnement à 10.
donc il en reste 9 ce jour, à moins que je compte mal...
 

Discussions similaires

Statistiques des forums

Discussions
315 092
Messages
2 116 118
Membres
112 665
dernier inscrit
JPHD