Microsoft 365 date et l'heur

[Tachouha]

s'ils vous plaît je veux ajouter une rubrique qui me donne la date et l'heure quand je rentre une voiture

 

[Jacky67]

s'ils vous plaît je veux ajouter une rubrique qui me donne la date et l'heure quand je rentre une voiture

Bonjour,
Une proposition sur double clic avec un peu de VBA
Joyeux noel

 

[sylvanu]

Bonjour Tachouha, Jacky,
Un essai en PJ.
Quand on entre une voiture en colonne A, cela met automatiquement date et heure en colonne B, avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
         If Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = Now
    End If
End Sub

 

[Tachouha]

Bonjour Tachouha, Jacky,
Un essai en PJ.
Quand on entre une voiture en colonne A, cela met automatiquement date et heure en colonne B, avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
         If Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = Now
    End If
End Sub

Où je vais rentrer se code?
parce quand je rentre un chiffre sur colonne A me donne rien !!

 

[sylvanu]

Re,
Le code est déjà dans la PJ :

Avez vous validé les macros lorsqu'XL vous le demande ?
Sinon vérifier dans Options Excel/Centre de gestion ... /Paramètres.../Paramètres des macros si ce n'est pas la première option qui est choisie car dans ce cas il n'y a pas de notification. Cochez alors la seconde "toutes les macros avec notification" :

et dans ce cas XL vous posera la question :

 

[Tachouha]

Re,
Le code est déjà dans la PJ :
Regarde la pièce jointe 1158735
Avez vous validé les macros lorsqu'XL vous le demande ?
Sinon vérifier dans Options Excel/Centre de gestion ... /Paramètres.../Paramètres des macros si ce n'est pas la première option qui est choisie car dans ce cas il n'y a pas de notification. Cochez alors la seconde "toutes les macros avec notification" :
Regarde la pièce jointe 1158736
et dans ce cas XL vous posera la question :
Regarde la pièce jointe 1158737

Re
non il me donne se message quand je le activer il reste comme ca et aussi quand je desactive

 

[sylvanu]

Vous avez un XL piraté, je ne sais pas comment il réagit :

Vous pouvez essayez de choisir la 4eme option pour voir :

 

[Tachouha]

Vous avez un XL piraté, je ne sais pas comment il réagit :
Regarde la pièce jointe 1158741
Vous pouvez essayez de choisir la 4eme option pour voir :
Regarde la pièce jointe 1158742

 

[Tachouha]

C'est bon frer c'est régler merci beaucoup

 

[Tachouha]

une question où je peux rentrer le code que tu as ajouter ?

 

[sylvanu]

Sur votre fichier :
1- Vous faites ALT+F11 ou Développeur/Visual Basic, cela ouvre l'éditeur VBA.
2- A gauche de cette fenêtre cliquez sur la feuille qui vous intéresse.
3- Dans la partie droite copiez et collez ceci :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
         If Cells(Target.Row, "B") = "" Then Cells(Target.Row, "B") = Now
    End If
End Sub

4- Normalement ça devrait marcher.

 

[Tachouha]

Merci frer bcp
j'ai un autre problème je veux sur la colonne c la date de sortie seulment une clic me donne la date et l'heure sortie j'ai la formule aujourd'hui mais il change et merci

 

[sylvanu]

Bonjour Tachouha,
Au post #3 j'ai mis Bonjour en gras, devinez pourquoi ?
Un essai en PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C1:C1000")) Is Nothing Then
        If Cells(Target.Row, "A") <> "" Then
            Target = Now
            Cells(Target.Row, "D") = Now - Cells(Target.Row, "B")
        End If
    End If
End Sub

Un clic en colonne C met l'heure et calcule la durée en colonne D si en colonne A il y a un véhicule entré.

 

[Tachouha]

Parfait,
merci bcp frer