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: 6
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...

Eric C

XLDnaute Barbatruc
Re le fil,

Dans le nouveau fichier joint on peut voir sur la feuille "voulu" :
après clic droit…RAZ ou à 9 le compteur …
??? Il faut vider toutes les cellules de la colonne "G" ?
Puis c'est quoi ce commentaire désiré ? Pourquoi faire ? Où reporter la valeur ou les valeurs de ce commentaire ?
Tu ne nous aides pas beaucoup sur le coup !!!
 

anthoYS

XLDnaute Barbatruc
Re le fil,

Dans le nouveau fichier joint on peut voir sur la feuille "voulu" :

??? Il faut vider toutes les cellules de la colonne "G" ?
Puis c'est quoi ce commentaire désiré ? Pourquoi faire ? Où reporter la valeur ou les valeurs de ce commentaire ?
Tu ne nous aides pas beaucoup sur le coup !!!
Pardon, je veux un commentaire pré remplis, prêt à saisir quand je double clique, quand j'ajoute une entrée piscine, ou une est écoulée plutôt..

Du coup, je veux y inscrire la durée de la séance heure de début et heure de fin... C'est tout...
 

anthoYS

XLDnaute Barbatruc
ça quand je double clique ici pour l'exemple il reste 8 entrées après celle en cours...
EXCEL_Ecn6QIDpue.png
 

Eric C

XLDnaute Barbatruc
Re le fil,
Pour ce faire, tu places une apostrophe devant la ligne ou tu la retires si tu n'en as pas besoin :

VB:
  ' Cells(L, "F").Select                    ' On se met sur la colonne F pour validation
Voili voilou
P.s : n'oublie pas de signaler le post 8 de notre ami sylvanu comme étant la solution à ton problème et de noter le fil comme résolu.
Eric c
 

anthoYS

XLDnaute Barbatruc
Re le fil,
Pour ce faire, tu places une apostrophe devant la ligne ou tu la retires si tu n'en as pas besoin :

VB:
  ' Cells(L, "F").Select                    ' On se met sur la colonne F pour validation
Voili voilou
P.s : n'oublie pas de signaler le post 8 de notre ami sylvanu comme étant la solution à ton problème et de noter le fil comme résolu.
Eric c
Merci une nouvelle fois @Eric C pour cette solution intéressante !
 

Discussions similaires

Statistiques des forums

Discussions
312 211
Messages
2 086 286
Membres
103 170
dernier inscrit
HASSEN@45