Ajout date et heure automatique

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

Bonjour Cricket, bonjour le forum,

Peut-être comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, d, t

If Target.Row < 4 Then Exit Sub
d = Date: t = Time
Select Case Target.Column
    Case 2, 14
        If Target.Value <> "" Then
            Target.Offset(0, 1).Value = d
            Target.Offset(0, 2).Value = t
        Else
            Target.Resize(, 2).ClearContents
        End If
End Select
End Sub

Re bonjour

Merci ThauThème,

Ca marche nickel pour la saisie auto de la date et de l'heure.

Possibilité de rajouter une condition de saisie d'un caractère bien précis en colonne N pour que affichage de la date et l'heure en colonne O et P?

@+

Re,

Ooops c'est vrai, j'avais oublié...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, d, t

If Target.Row < 4 Then Exit Sub
d = Date: t = Time
Select Case Target.Column
    Case 2, 14
        If Target.Column = 14 And Target.Value <> 3 Then Exit Sub
        If Target.Value <> "" Then
            Target.Offset(0, 1).Value = d
            Target.Offset(0, 2).Value = t
        Else
            Target.Resize(, 2).ClearContents
        End If
End Select
End Sub

Encore merci pour tout

C'est parfait.

Au plaisir de retomber sur toi lors d'une prochaine demande

Bonne continuation

@+

Cricket

Rechercher des sujets similaires à "ajout date heure automatique"