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

  • Initiateur de la discussion Initiateur de la discussion anthoYS
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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...
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 !!!
 
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...
 
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
 
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 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
24
Affichages
3 K
Retour