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

sebastien176

XLDnaute Junior
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:p40 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:p40")) 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
 

Pièces jointes

  • Inventaire tournant.xlsm
    66.2 KB · Affichages: 3
Solution
Bonjour Sébastien,
Si j'ai bien compris, il suffit de rajouté une ligne :
VB:
    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

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Sébastien,
Si j'ai bien compris, il suffit de rajouté une ligne :
VB:
    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
 

Discussions similaires

Réponses
1
Affichages
290

Statistiques des forums

Discussions
312 939
Messages
2 093 788
Membres
105 836
dernier inscrit
Frederic14