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"... ?

  • 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...
ça ne peut pas marcher un double clic gauche sur G ou clic droit simple pour recharger la carte (à 9 entrées) car je retire la première des 10 vu que ce jour j'en prends une... je sais pas si je suis clair...

Je vais essayer demain, là je suis assez occupé cette après-midi !

je reviens vers vous demain ou jeudi...
 
Re bonjour
ça ne peut pas marcher un double clic gauche sur G ou clic droit simple pour recharger la carte (à 9 entrées) car je retire la première des 10 vu que ce jour j'en prends une... je sais pas si je suis clair...
Je dirais NON. Pas tout compris.
Par contre, il n'existe pas de Double-Clic Gauche (Clic gauche simple OUI)

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...
Il me semble que c'est ce que j'ai fait. Non ????

Dans l'attente de ton retour
@+ Lolote83
 
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
        Cells(L, "F").Select                    ' On se met sur la colonne F pour validation
        Exit Sub
    End If
Next i
Cells(L, "G") = 9                               ' Si on arrive là c'est que la colonne est vide, donc on met 9
Cells(L, "F").Select
Fin:
End Sub
 

Pièces jointes

Bonsoir le forum
Bonsoir AntoYS, Lolote83 et sylvanu.

Je ne pense pas que c'est cela que notre ami désire. Je me suis permis de mettre une partie texte sur le fichier de sylvanu pour expliquer ce que j'ai compris (peut etre me suis je trompé...).

Bonne soirée à vous
Eric c
 

Pièces jointes

Bonsoir Eric,
Mais dans la PJ de Anto, feuille Voulu, il n'y a pas de notion calendaire.
Je pensais plutôt à des carnets de 10 tickets, on utilise un ticket à chaque visite à la piscine.
Attendons qu'Anto nous fournisse l'explication. 🙂
 
Re le fil,

Tu as raison sylvanu, il désire travailler sur un mois non calendaire mais sur 4 semaine (De plus, il manque un dimanche au bas de son tableau).
Son carnet ne comporte que 9 billets (pourquoi... mystère) car il décompte de 9 à 1 pour repartir à 9.
De mon temps (lol), quand j'allais à la piscine, le rouleau de tickets était plus conséquent 🤣
@+
 
Bonjour tout le fil !

oui 10 tickets, mais le 10e ne compte pas puisque je l'utilise le jour ou je prends l'abonnement à 10.
donc il en reste 9 ce jour, à moins que je compte mal...
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…