incorporer Date automatiquement dans une cellule grace au VBA ...

[Phylo]

Bonjour,
Je suis un débutant du codage VBA:
J'aimerai insérer une macro qui permet d'insérer automatiquement (ex: B2) lorsque je rentre les initilaes dans la cellule A2:
La meme chose; j'aimerai que la macro insére la date dans K2 lorsque je remplis J2, Merci de m'aider pour faire tous ces commandes dans une meme macro

voici le code qui marche pour A2 et B2,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1:A100]) Is Nothing Then
If Target(1, 2) = "" Then Target(1, 2) = Now
End If
End Sub

mais je ne sais pas comment continuer avec les autres colonnes dans la meme.


Merci d'avance

 

[FlamXYZ]

Salut

Si j'ai bien compris tu veux faire apparaitre automatiquement les datess sur les colone B et J lorsque tu entres des données dans la colonnes qui precede chacune.

Les instructions ci dessous doit etre placer dans le code de la feuille


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, range("A:A")) is Nothing and target. value <> "" Then
target.offset(0,1).value= date
End If
If Not Intersect(Target, range("J:J")) is Nothing and target. value <> "" Then
target.offset(0,1).value= date
end if
End Sub

 

[Phylo]

Bonjour Flam
C'est exactement ce que je veux, mais malheureusement le code a marché seulement pour la colonne A.
voir fichier ci-joint

Merci d'avance

 

[FlamXYZ]

Salut.

J'ai écrit le même code que je t'ai envoyé précédemment, et il fonctionne bien

 

[Phylo]

Merciiiiiii beaucoup flamXYZ