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 D10😛40 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("D10😛40")) 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