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

anthoYS

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
sylvanu
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...
Trier par date Trier par votes

Discussions similaires

M
  • Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
733
Mody200
M
P
  • Question
XL 2016 Convertir tableau 2 entrées en liste
Réponses
3
Affichages
729
Pthin
P
N
  • Question
XL 2016 Copier des lignes d'une feuille à l'autre sur une même Excel par double clique
Réponses
0
Affichages
1 K
Ned2
N
S
  • Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
7 K
Scorp0211
S
R
  • Question
Saut de ligne à chaque changement de numéro
Réponses
6
Affichages
1 K
Reggam
R
N
  • Question
Moteur de recherche trés simple.
Réponses
11
Affichages
1 K
CPk
C
P
  • Question
Transfert de donnée d'un Userform à un autre
2 3 4
Réponses
47
Affichages
7 K
Paritec
Paritec
R
  • Question
Erreur dans ma macro suite a l'instalation d'un compte à rebours (On Time)
Réponses
2
Affichages
2 K
remes
R
Lone-wolf
  • Question
[Résolu] Problème avec compte à rebours
Réponses
7
Affichages
74 K
Lone-wolf
Lone-wolf
L
  • Question
Compte à rebours - Quitter et sauvegarder
Réponses
11
Affichages
2 K
leop93
L

Membres actuellement en ligne

14 membres et 124 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 094
Messages
2 116 155
Membres
112 671
dernier inscrit
Sylvain14