XL 2019 Encore besoin de votre aide

  • Initiateur de la discussion Initiateur de la discussion RoyalP
  • 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 !

RoyalP

XLDnaute Occasionnel
Bonjour ,pour mon projet de calcul de salaire selon stage ou en cours (oui pas les même salaires quand on est étudiant) j'aurais besoin de votre aide.
J'ai crée un calendrier de septembre à juillet 2019 - 2020 dans lequel quand on double click sur une cellule l'usf s'ouvre et vous entrez vos données (nbre d'heures, notes , etc) , j'arrive a sauvegarder le tout mais je n'arrive pas a récupérer la date de l'emplacement du double click !!!
je vous post le fichier pour que vous voyez ce que je veux faire.

Merci pour votre aide
 

Pièces jointes

Dernière édition:
Re

Je m'en tiens à la première phrase de mon message précédent qui clairement indique que la baliverne m'importe ici plus que le sort de l'userform.😉

Charge au demandeur, si jamais l'envie lui prends, d'adapter/mixer avec l'Userform

C'est vrai que j'aurais plus laissé le commentaire pour être plus explicite
VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal T As Excel.Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(T, Range("A6:AG37")) Is Nothing Then
MsgBox T.Offset(, -(T.Column + 2) Mod 3) 'juste et rien que pour le test
End If
End Sub
 
Re,

Moi aussi.
Une bonne rasade de gnamakoudji
(dommage que ce soit refusé au Scr.bble 😉 )

Sur ces considérations rafraîchissantes, je vous laisse deviser calendrier et double-click

Bonne nuit.

EDITION
Mes excuses, Monsieur mapomme
Je viens de relire tout le fil.
Et j'ai vu que je m'étais fourvoyé et mélangé les pinceaux.
Je rends donc macellule à César.
 
Dernière édition:
Bonjour à tous,

Je ne comprends pas, 23 messages et pas de solution ??? Alors voyez celle-ci :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A6:AG37")) Is Nothing Then Exit Sub
Dim dat
dat = Cells(Target.Row, Target.Column - ((Target.Column - 1) Mod 3))
If Not IsDate(dat) Then Exit Sub
Cancel = True
Userform1.Label_date = dat
Userform1.Show
End Sub
A+
 
Bonjour à tous,

Je ne comprends pas, 23 messages et pas de solution ??? Alors voyez celle-ci :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A6:AG37")) Is Nothing Then Exit Sub
Dim dat
dat = Cells(Target.Row, Target.Column - ((Target.Column - 1) Mod 3))
If Not IsDate(dat) Then Exit Sub
Cancel = True
Userform1.Label_date = dat
Userform1.Show
End Sub
A+

Merci pour la réponse en faite y'a de l'aide c'est juste que j'ai modifié la version pour y ajouter des heures et depuis ca ne marche plus !!!

Pour ton code j’obtiens cette erreur, merci de l'aide vu la chaleur je m'attendais a une réponse plutôt dans la soirée 😀


1036607
 
- 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
2
Affichages
1 K
Réponses
12
Affichages
1 K
Retour