Insertion Date du Jour "Fixe"

Bonjour à Tous,

Un p'tit coup de pouce sur mon petit problème,

le code ci dessous, après double clic dans une colonne, m'inscrit différente infos dans d'autres colonnes

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target = "" Then Exit Sub
If Not Intersect(Range("AG:AG"), Target) Is Nothing Then

If MsgBox("Avez-vous contrôlé que toutes les étapes sont valideées ?", vbYesNo, "Demande de confirmation") = vbYes Then

          'With Range("A" & Target.Row)

             Range("AI" & Target.Row).Select
              Selection.Copy
              Application.CutCopyMode = False
              ActiveCell.FormulaR1C1 = Date 'je veux inscrire la date du jour de la validation dans la colonne AI
             Range("AI" & Target.Row).Select
             Range("AN" & Target.Row) = Environ("username")
             Range("AH" & Target.Row).Select
              ActiveCell.FormulaR1C1 = "O"

         'End With

End If
End If

End Sub

Le souci c'est que lorsque la personne valide ça ligne un jour X le lendemain j'ai la date du jour Y qui est inscrit.....pas bien.

J'avais dans mon ancien code à la place de "Date", "Today()", mais là pas mieux.

JE continue à chercher mais si quelqu'un a une astuce je suis preneur!

Bonne journée.

Bonjour Niko,

Utilise la fonction :

Now()

EDIT : T'as des Select qui ne servent à rien, en condensé, ça donne ça :

Range("AI" & Target.Row).Copy
            Application.CutCopyMode = False
            Range("AI" & Target.Row) = Now()

            Range("AN" & Target.Row) = Environ("username")
            Range("AH" & Target.Row) = "O"

Mais tu fais rien de ce que tu as copié, ou c'est dans une autre partie du code?

Et je sais pas si ça change quelque chose pour toi, mais ton évènement c'est avant le double clic!

Bon courage

Bonjour

Manque déclaration

Dim LaDate
  LaDate = Date
ActiveCell.Value = LaDate

Cordialement

Oui autant pour moi c'est bien après le double clic, ça ne change rien pour moi.

Je test la fonction "Now" et te redis ça demain!

Je regarde aussi pour la déclaration de variable également, merci Amadeus.

Bonjour,

Les deux méthodes fonctionnent, déclaration de la variable "La Date" et la fonction Now().

Un grand merci à vous deux.

@ bientôt