Microsoft 365 date et l'heur

Tachouha · 24 Décembre 2022

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

Jacky67 · 25 Décembre 2022

Tachouha à dit:
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 · 25 Décembre 2022

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 :

VB:

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 · 25 Décembre 2022

sylvanu à dit:
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 :

VB:

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 · 25 Décembre 2022

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 · 25 Décembre 2022

sylvanu à dit:
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 · 25 Décembre 2022

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

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

Tachouha · 25 Décembre 2022

sylvanu à dit:
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 · 25 Décembre 2022

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

Tachouha · 25 Décembre 2022

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

sylvanu · 25 Décembre 2022

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 :

VB:

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 · 26 Décembre 2022

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 · 26 Décembre 2022

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

VB:

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 · 26 Décembre 2022

Parfait,
merci bcp frer

Microsoft 365 date et l'heur

Tachouha

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Tachouha

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Tachouha

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Tachouha

XLDnaute Nouveau

Tachouha

XLDnaute Nouveau

Tachouha

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Tachouha

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Tachouha

XLDnaute Nouveau

Discussions similaires