Ajout date et heure automatique

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
C
Cricket74330
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 avril 2020
Version d'Excel : 2010

Message par Cricket74330 » 6 avril 2020, 15:04

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
Main_Courante_Macro_TEST.xlsm
(39.16 Kio) Téléchargé 6 fois
Merci pour votre retour
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 4'047
Appréciations reçues : 212
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 6 avril 2020, 15:23

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
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
C
Cricket74330
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 avril 2020
Version d'Excel : 2010

Message par Cricket74330 » 6 avril 2020, 15:30

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?

@+
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 4'047
Appréciations reçues : 212
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 6 avril 2020, 15:35

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
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
C
Cricket74330
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 avril 2020
Version d'Excel : 2010

Message par Cricket74330 » 6 avril 2020, 15:43

Encore merci pour tout
C'est parfait.

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

Bonne continuation
@+
Cricket
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message