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

P
  • Question
XL 2016 Convertir tableau 2 entrées en liste
Réponses
3
Affichages
526
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
868
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
6 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
O
  • Question
[RESOLU] Moteur de ContextMenu dynamique sur 2 niveaux, le tri plante ???
Réponses
4
Affichages
1 K
Modeste
Modeste

Membres actuellement en ligne

18 membres et 82 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
312 215
Messages
2 086 318
Membres
103 176
dernier inscrit
jean.yvesjean.yves