Microsoft 365 Récupérer la date dans un calendrier

[sebastien176]

Bonjour à tous,

Dans le fichier ci-joint, j'aimerais pouvoir récupérer la date correspondante lorsque je rempli une des cellules de la plage D1040 de la feuille "Résultat inventaire" sur la feuille "Data"

J'ai fait ce code pour récupérer les valeurs que j'inscris avec le N° de colonne et le N° de ligne

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Ligne As Long
Dim Nb_Colonne As Long

'On sort si on n'est pas dans la plage active
If Intersect(Target, Range("D1040")) Is Nothing Then Exit Sub
If ctrl = True Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

Ligne = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row + 1

Sheets("Data").Range("B" & Ligne).Value = Target.Value
Sheets("Data").Range("C" & Ligne).Value = Target.Row
Sheets("Data").Range("D" & Ligne).Value = Target.Column

End Sub

Je vous remercie par avance de votre aide

Seb

 

[sylvanu]

Bonjour Sébastien,
Si j'ai bien compris, il suffit de rajouté une ligne :

    Ligne = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row + 1
    
    Sheets("Data").Range("A" & Ligne).Value = Cells(Target.Row, "A") ' Ajout de la date.'
    Sheets("Data").Range("B" & Ligne).Value = Target.Value
    Sheets("Data").Range("C" & Ligne).Value = Target.Row
    Sheets("Data").Range("D" & Ligne).Value = Target.Column

 

[sebastien176]

Merci Sylvanu c'est parfait ,comme toujours