Bonjour
J'ai un fichier excel dans lequel quand je saisie des information en colonne B, je souhaiterais que la date s'inscrive en C et l'heure ne D. (cette partie fonctionne) avec le code ci-dessous
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, d, t
If Target.Row < 4 Or Target.Column > 2 Then Exit Sub
d = Date: t = Time
For Each r In Target.Rows
If Me.Cells(r.Row, 2) <> "" Then
Me.Cells(r.Row, 3).Value = d
Me.Cells(r.Row, 4).Value = t
Else
Me.Cells(r.Row, 3).Resize(, 2).ClearContents
End If
Next r
End Sub
Je souhaiterais y intégrer une autre saisie automatique de la date et heure dans la même feuille mais pas avec les même conditions, c'est à dire :
Lorsque je saisie le chiffre 3 dans la colonne N, la date du jour apparaisse automatiquement dans la colonne O et l'heure dans la colonne P
Je vous mets le fichier en pièce jointe
Merci pour votre retour