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