Date aujoud'hui fixe

Bonjour,

je cherche un code VBA qui indiquera la date du jour dans la colone B lorsque je met un nombre dans la colonne K et qui ne change plus par la suite.

merci et bonne journée

Bonjour,

Le code suivant devrait fonctionner.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K:K")) Is Nothing Then
Range("B" & Target.Row) = Date
End If
End Sub

Il faut le mettre dans le code de la feuille en question.

Est-ce ok ?

Bonne journée

Oui merci beaucoup la formule fonctionne très bien !!!

J'ai voulu modifier la formule pour l'adapter à une autre feuille ou j'ai besoin que la date s'inscrive automatiquement dans la colonne A s'il y a au moins une valeur dans les colonne B à I. J'ai essayé :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B:I")) Is Nothing Then

Range("A" & Target.Row) = Date

End If

End Sub

mais naturellemnt ça ne fonctionne pas ... je suis vraiment nul en VBA ....

Mais de rien.

Pour cette nouvelle problématique, je viens d'essayer ton code chez moi et ça fonctionne bien aussi.

Serait-il possible de mettre ton fichier en pièce-jointe que je vois où est le problème ?

Merci

Sharney a écrit :

Mais de rien.

Pour cette nouvelle problématique, je viens d'essayer ton code chez moi et ça fonctionne bien aussi.

Serait-il possible de mettre ton fichier en pièce-jointe que je vois où est le problème ?

Merci

Effectivement, le code fonctionne très bien c'est juste moi le problème je l'avais copié dans la mauvaise page j'étais tellement certain que je n'y arriverais pas que j'ai pas cherché plus loin DSL.

Merci beaucoup de ton aide

Et bien tant mieux. Comme quoi il ne faut pas se décourager trop vite.