XL 2019 Encore besoin de votre aide

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

  • teste_cal.xlsm
    39.8 KB · Affichages: 17
Dernière édition:

Staple1600

XLDnaute Barbatruc
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
 

Staple1600

XLDnaute Barbatruc
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:

RoyalP

XLDnaute Occasionnel
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
 

Pièces jointes

  • RoyalP- test_cal- v2.xlsm
    39.5 KB · Affichages: 5

job75

XLDnaute Barbatruc
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+
 

RoyalP

XLDnaute Occasionnel
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 :D


1036607
 

job75

XLDnaute Barbatruc
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.
 

Pièces jointes

  • RoyalP- test_cal- v2(1).xlsm
    44 KB · Affichages: 7

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla