XL 2019 Encore besoin de votre aide

[RoyalP]

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

 

[mapomme]

Re @Staple1600,

Oui mais toujours pas accessible à partir du Userform...

 

[Staple1600]

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

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

 

[mapomme]

pour apaiser ma glotte

je connais des breuvages qui le font bien mieux qu'une rasade d'Excel

 

[Staple1600]

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.

 

[RoyalP]

hello et merci de vos aides, je viens de tester et ca ne marche tjrs pas il ne me prend pas la date
Désolé de vous répondre tard, j'étais voir asterix avec les enfants

 

[mapomme]

Bonsoir @RoyalP ,

Chez moi, il récupère bien la date. Voir fichier joint qui affiche la date récupérée à l'ouverture du Userform.

 

[RoyalP]

ha ben oui chez avec ta version ca fonctionne , je comprend pas pk la mienne ne fonctionné pas !!! c'est pas grave je vais reprendre a partir de ta version. Merci Mapomme, et les autres qui ont repondu sur ce fil.

 

[RoyalP]

si je peux abuser de vos talents ,j'ai une erreur sur le fichier que j'ai légèrement modifié et cette erreur je n'arrive pas a la corrigé je vous laisse voir avec le fichier joint,l'erreur se passe sur le double click !!
Merci encore de vos aides precieuses

 

[job75]

Bonjour à tous,

Je ne comprends pas, 23 messages et pas de solution ??? Alors voyez celle-ci :

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+

 

[RoyalP]

Bonjour à tous,

Je ne comprends pas, 23 messages et pas de solution ??? Alors voyez celle-ci :

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

 

[job75]

C'était légèrement le foutoir dans le code de l'UserForm, je l'ai un peu arrangé, plus de bug dans ce fichier.

La variable dat de mon code est maintenant déclarée Public dans Module1.

 

[RoyalP]

ha cool merci, y'a juste un petit bug il m'affiche une ligne vide dans bdd
quand on efface les infos dans bdd et que l'on crée un nouveau , ca ajoute 2 lignes dont une ligne !!
On avance, on avance merci encore pour ton aide

 

[job75]

J'ai corrigé le fichier du post #26, le calcul de ligne_insertion était incorrect.

 

[RoyalP]

je viens de tester mais ca fait toujours pareil