Bonjour,

Je sollicite votre aide pour automatiser la date de saisie de données dans ma feuille de calcul.

La feuille comporte une colonne "Q" nommé "Statut" ou on peut choisir dans une liste déroulante "Terminé" ou "Envoyé"
La colonne suivante (R) est nommé date d’envoie. J'aimerais que lorsqu' on sélection "Envoyé" dans la colonne "Q", la date du jour de la sélection s'affiche automatiquement dans la colonne "R".

J'ai déjà essayé la fonction aujourd'hui() mais la date s'actualise ce qui pose problème. J'ai aussi essayé avec le code BVA ci-dessous. Le code a failli marché mais un message d'erreur de type "méthode _default de l'objet range a échoué" et le classeur se ferme ensuite.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 8 To 2000
    if cells(i, "Q").Value="Envoyé" then Cells (i, "R")=Date
 
    Cells(i, "R").NumberFormat = "m/d/yyyy"
 
Next
Range("R:R").EntireColumn.AutoFit
 
End Sub
Merci pour votre aide