Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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 …
Cliquez pour agrandir...
??? 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 !!!
 
Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc
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...
 
Vote positif 0 Vote négatif

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
 
Vote positif 1 Vote négatif

anthoYS

XLDnaute Barbatruc
Merci une nouvelle fois @Eric C pour cette solution intéressante !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

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
730
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
R
  • Question
Erreur dans ma macro suite a l'instalation d'un compte à rebours (On Time)
Réponses
2
Affichages
2 K
remes
R
  • Question
[Résolu] Problème avec compte à rebours
Réponses
7
Affichages
74 K
Lone-wolf
L
  • Question
Compte à rebours - Quitter et sauvegarder
Réponses
11
Affichages
2 K
leop93
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…