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

 

[Compte Supprimé 979]

Oh tête de mort.... commence par dire bonjour

 

[RoyalP]

HOOO désolé j'avais pas vu je corrige ca de suite

 

[mapomme]

Bonsoir @RoyalP,

Peut-être ?:
Dans le module de la feuille de codename Feuil1 "calendrier":

Option Explicit

Public maCellule As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    Cancel = True
    If Not Application.Intersect(Target, Range("A6:AG37")) Is Nothing Then
        Set maCellule = Target
        Userform1.Show
    End If
End Sub

et pour le bouton enregistrer du userform:

Private Sub CommandButton_enreg_Click()
  ligne_insertion = Sheets("BDD").Range("A65000").End(xlUp).Row + 1

  Sheets("BDD").Cells(ligne_insertion, 1) = Feuil1.maCellule.Value2
  Sheets("BDD").Cells(ligne_insertion, 1).NumberFormat = "dd/mm/yyyy"

  ' la suite du code....

End Sub

 

[RoyalP]

merci mapomme, c'est a peu pres ce que je veux faire sauf que la je dois clicker sur la date , moi ce que je veux c'est si je clique sur la cellule sur mon exemple en rouge du lundi 02 septembre 2019 ca me récupere la date . merci quand meme pour l'aide ca me permet d'avancer quand meme.

 

[mapomme]

Re @RoyalP ,

Dans ce cas, remplacer dans le code de Feuil1, la ligne suivante:

Set maCellule = Target

par la ligne :

Set maCellule = Cells(Target.Row, "a")

edit : bonsoir @BrunoM45

 

[RoyalP]

MERVEILLEUX, mille merci mapome, je vais pouvoir continuer mon projet.

 

[Staple1600]

Bonsoir le fil, BrunoM45, mapomme

Ou zencore zaussi possible
Set maCellule = Cells(Target.Row, 1)

 

[RoyalP]

je viens de voir un problème si je double click sur 15 novembre il me garde la date du 01/09/2019 !!
aie
merci de votre aide precieuse

 

[mapomme]

Re @RoyalP,

je viens de voir un problème si je double click sur 15 novembre il me garde la date du 01/09/2019 !!

Essayez ce code dans le module de Feuil1 (la ligne du Msgbox est là juste pour le test).
Le code gère aussi les fins de colonne des mois inférieurs à 31 jours:

Option Explicit

Public maCellule As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
   Cancel = True
   If Not Application.Intersect(Target, Range("A6:AG37")) Is Nothing Then
      Set maCellule = Cells(Target.Row, 1 + 3 * Int((Target.Column - 1) / 3))
      MsgBox maCellule  'juste pour le test
      If IsDate(maCellule) Then Userform1.Show
   End If
End Sub

 

[Staple1600]

Bonsoir à toi aussi mapomme
(cf le message#8)

 

[mapomme]

Salut @Staple1600 @ ,

Mille + une excuses de ne pas t'avoir répondu tout de suite. J'avais vu , j'avais lu puis j'ai zappé.
Chacun a ses petites habitudes. Moi je suis un "littéraire" le "a" me parle plus que le hein!
Enfin jusqu'au "z". Après c'est plus difficile pour moi

Concern1nt l1 question, je l'1v1is lu trop r1pidement et donc m1l répondu. C'est p1s bien!

 

[Staple1600]

Re

Oui mais avec le Hun, on fait fuir le Trente et quatre (deux fois)
Ça ne sert pas à grand chose (ou alors juste pour se souvenir un soir de finale CAN, des Wisigoths)


Maintenant une question m'étreint la glotte
Pourquoi une variable macellule puisque Target est déjà un Range?
(PS: Je sais que cette variable était là dès le message#1)

 

[mapomme]

Maintenant une question m'étreint la glotte
Pourquoi une variable macellule puisque Target est déjà un Range?
(PS: Je sais que cette variable était là dès le message#1)

Target n'est pas accessible à partir du module de l'userform, me semble-t-il.

 

[Staple1600]

Re

Alors pour apaiser ma glotte (voir message précédent), pour le test et pour le fun
Et pour passer des Wisigoths à Barracuda

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)
End If
End Sub