Macro inscrire date si cellule non vide

http://cjoint.com/?lwuCIjnuPD


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(, -3) = Date
Target.Offset(, -2) = Hour(Now) & ":" & Minute(Now)
End If
If (Target.Column = 10 Or Target.Column = 11) And Cells(Target.Row,
"D") <> "" Then
Cells(Target.Row, "L") = Date
End If
End Sub

JB

On 22 nov, 20:01, Aiwa <A...@discussions.microsoft.com> wrote:

Rebonjour
Ca fonctionne juste si tu sélectionne J ou K avant de faire D
Mais pour l'utilisation de mon fichier je doit remplir D avant et des fois
j'attend le lendemain avant de faire J ou K lorsque mon dossier est réglé

Merci encore de ton aide

Le voilà qui fonctionne...

http://cjoint.com/?lwt0GiLvEB
--
[Jmm21]
☺♂

Voici exemple fichier ci joint
http://cjoint.com/?lwtDqbtUsW

Bonjour,

Il manque l'underscore après le <> avec un espace, comme cela <> _

If Cells(Target.Row, "J") <> Empty Or Cells(Target.Row, "K") <> _

Empty Then

--
[Jmm21]
☺♂

Rebonjour il y a une ligne en rouge
If Cells(Target.Row, "J") <> Empty Or Cells(Target.Row, "K") <>

Empty Then

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Target.Offset(, -3) = Date
Target.Offset(, -2) = Hour(Now) & ":" & Minute(Now)
If Cells(Target.Row, "J") <> Empty Or Cells(Target..Row, "K") <>
Empty Then
Cells(Target.Row, "L") = Date
End If
End If
End Sub

JB

On 22 nov, 17:30, Aiwa <A...@discussions.microsoft.com> wrote:

Bonjour
Ellimac ma donner cette macro elle fonctionne bien mais j'aurais aimer
ajouter aussi cela :
si la colonne J ou K est nom vide inscrire en L la date du jour

Voici la macro que Ellimac ma donner
Clic droit sur l'onglet de la feuille et coller ceci :> Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 4 Then Exit Sub
Target.Offset(, -3) = Date
Target.Offset(, -2) = Hour(Now) & ":" & Minute(Now)
End Sub

Merci encore de m'aider- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -