Aide pour un code VBA permettant d'automatiser la date de saisie

Version imprimable

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:

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

Citation:

Envoyé par DavsH

Bonjour,

Essayez :

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub WorkSheet_Change(ByVal Target As Range)
 
   If Target.Count > 1 Then Exit Sub
 
   If Not Application.Intersect(Target, Range("Q8:Q2000")) Is Nothing Then
      If Target = "Envoyé" Then Target.Offset(0, 1).Value = Format(Date, "dd/mm/yyyy")
   End If
 
End Sub

17/01/2021, 19h55
DavsH

Merci beaucoup Eric. Ton code fonctionne ! Je te remercie.

date automatique j'utilise vba.date

Citation:
Envoyé par DavsH
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:

1 2 3 4 5 6 7 8 9 10 11 12 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")=vba.date Next Range("R:R").EntireColumn.AutoFit End Sub
Merci pour votre aide