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

Créer une discussion
  • 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 !

S'inscrire

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...
Trier par date Trier par votes
Bonjour le fil,

comment implémenter un de vos codes dans le mien :
VB: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row > 1 Then
    Cancel = True
    Ligne = Target.Row 'ou Application.Goto [repas].Columns(1).Find(Date)

    UserForm1.Show
    End If
End Sub
 
Vote positif 0 Vote négatif
Bonjour Antho, Eric,
@anthoYS,
Ce qui serait sympa serait de dire si une solution proposée marche ou pas.
Par ex en post #8 il y a une PJ avec ce que j'avais compris, donc dites si ça marche ou pas, si c'est ce que vous attendiez ou pas, et le cas échéant expliquez clairement ce que vous attendez.
Généralement quand plusieurs contributeurs se posent les mêmes questions, c'est qu'il y a un déficit d'explications. 🙂
 
Vote positif 0 Vote négatif
Re le fil,
Bonjour sylvanu
Je maintiens ma position du post 10, à savoir qu'un carnet ne va pas forcément commencer le lundi (cellule A2). Donc en considérant que son carnet débute comme dans l'exemple fourni par anthoYS, le mardi (cellule A10), il faudrait pouvoir et si le carnet comporte encore des tickets le dimanche (cellule A29 (dimanche qui n'a pas été inscrit)), revenir en début de la colonne "G" pour poursuivre. Le problème est qu'arrivé en cellule "A10", il faudrait que les anciennes valeurs s'effacent pour laisser place aux nouvelles. Un peu lourds mes explications mais encore un peu fatigué ce matin.
En attendant la réponse d'anthoYS.

Bonne journée à toutes & à tous
Eric c
 
Vote positif 0 Vote négatif
je voulais comme dit dans le nota, ajouter un commentaire à pré remplir en plus du reste...
merci encore une fois à tous !là je bloque
 
Vote positif 0 Vote négatif
Non quand je double clique en G le curseur de selection va en F la cellule voisine sans que rien ne se passe...
 
Vote positif 0 Vote négatif
OK je m'explique mieux, sur toute la colonne A, il y a le jour exact, avec le mois et l'année en cours...
Donc en G, le nombre de tickets piscine restant... Sachant que ça va par 10. Donc, quand je double clique sur G10 admettons, qui tomberait un mardi, il faut mettre 9 dans la cellule et en plus un commentaire à écrire, prêt à écrire, je ne sais pas si c'est clair. ET le jour suivant, qui peut être un dimanche ou tout autre jour, toujours en G, la même logique, mettre "8" colorer le fond en bleu, et rajouter un commentaire vierge prêt à remplir...
etc etc etc. jusqu'à 1, ou là on repart à "9" après le 1, car une fois le dernier utilisé, on repart avec un nouveau carnet de 10 entrée dont la 10è sera utilisé ce jour... ou je double clique...
 
Vote positif 0 Vote négatif
Re le fil,

Concernant la demande formulée au post ci-dessus (#27), le programme de notre ami sylvanu (#8) fait exactement ce que tu demandes. Après avoir double-cliqué sur une des cellules colonne G, celle-ci se colore, se décrémente par rapport à la valeur du précédant ticket et la cellule à gauche est activée pour y inscrire le commentaire.
Je ne vois ce que tu peux vouloir de plus... C'est du tout fait... Merci sylvanu 😉

Post 21 : merci tout le monde, par contre à quoi sert l'UserForm. Je pensais pour mettre le commentaire, mais non, ...
Cliquez pour agrandir...
#16 :
Ligne = Target.Row 'ou Application.Goto [repas].Columns(1).Find(Date)

UserForm1.Show <== ???? C'est bien ta demande
Cliquez pour agrandir...
A te lire
Bon appétit.
 
Vote positif 0 Vote négatif
anthoYS à dit:
Non quand je double clique en G le curseur de selection va en F la cellule voisine sans que rien ne se passe...
Cliquez pour agrandir...
.
chez moi ça ne fonctionne pas sur mon fichier, sur le sien ça à l'air mais je n'ai pas le commentaire
 
Vote positif 0 Vote négatif
ça ne marchait pas parce que ça va au-delà de 1000 la ligne. En outre ça semble afficher les entrées restantes mais pas mettre la mefc... Ni le commentaire.. je vais regarder le code de plus près. Je vous tiens au courant, un grand merci pour ce travail !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
154
Lu76Fer
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
972
Mody200
M
P
  • Question Question
XL 2016 Convertir tableau 2 entrées en liste
Réponses
3
Affichages
779
Pthin
P
N
  • Question 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 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
8 K
Scorp0211
S
R
  • Question Question
Saut de ligne à chaque changement de numéro
Réponses
6
Affichages
1 K
Reggam
R
N
  • Question Question
Moteur de recherche trés simple.
Réponses
11
Affichages
1 K
CPk
C
P
  • Question Question
Transfert de donnée d'un Userform à un autre
2 3 4
Réponses
47
Affichages
8 K
Paritec
R
  • Question Question
Erreur dans ma macro suite a l'instalation d'un compte à rebours (On Time)
Réponses
2
Affichages
2 K
remes
R
  • Question Question
[Résolu] Problème avec compte à rebours
Réponses
7
Affichages
74 K
Lone-wolf
L
  • Question Question
Compte à rebours - Quitter et sauvegarder
Réponses
11
Affichages
2 K
leop93
L
O
  • Question Question
[RESOLU] Moteur de ContextMenu dynamique sur 2 niveaux, le tri plante ???
Réponses
4
Affichages
2 K
Modeste
  • Question Question
gestion des contrats et éventuels renouvellement à gérer avec automatismes de dates
Réponses
2
Affichages
10 K
anthoYS
A
  • Question Question
Faire du pas à pas dans l'exécution d'une boucle
Réponses
5
Affichages
2 K
alainr13
A
Z
  • Question Question
Mettre en évidences des cellules contenant un mot par rapport à une base de données
2
Réponses
28
Affichages
5 K
zored
Z
K
  • Question Question
Commentaire et macro
Réponses
2
Affichages
6 K
Karine38
K
S
  • Question Question
Probleme d'affichage d'une écriture via macro
Réponses
6
Affichages
7 K
spawnblade
S
D
  • Question Question
Detecter si un nombre du format 20-04-2001 s'est transforme en date (avec /)
Réponses
12
Affichages
2 K
Dormeur74
J
  • Question Question
Problème format date et jours à insérer
Réponses
8
Affichages
2 K
jim7963
J
H
  • Question Question
[Résolu] Compte à rebours dans label + fermeture automatique
Réponses
2
Affichages
2 K
Hicsygrek
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…