Discussion :

[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 :

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

[Invité]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DavsH]

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

[nouma2021]

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
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