Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 date et l'heur

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
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
 

Pièces jointes

Vote positif 0 Vote négatif
Où je vais rentrer se code?
parce quand je rentre un chiffre sur colonne A me donne rien !!
 

Pièces jointes

Vote positif 0 Vote négatif
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 :
 
Vote positif 0 Vote négatif
Re
non il me donne se message quand je le activer il reste comme ca et aussi quand je desactive
 

Pièces jointes

  • Capture d’écran 2022-12-25 161611.png
    43.8 KB · Affichages: 15
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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é.
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Power Pivot calcule heur moyenne de début de travaille
Réponses
3
Affichages
267
aminouuu
A
W
  • Question Question
Autres Reporter valeur suivant date la plus ancienne
Réponses
2
Affichages
85
walki
W
W
  • Question Question
XL 2013 Reporter valeur suivant date la plus ancienne
2
Réponses
15
Affichages
603
walki
W
G
  • Résolu(e)
Microsoft 365 Calculer les Indemnités en fonction d'un barème
Réponses
9
Affichages
247
Germaine
G
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
898
Krome36
K
C
  • Résolu(e)
Power Query Ajout colonne cumulé Power Quey
Réponses
2
Affichages
93
chermiti
C
P
Protection de fichiers excel.
Réponses
2
Affichages
186
Nain porte quoi
N
E
  • Question Question
XL 2010 Planificateur véhicule électrique
Réponses
8
Affichages
258
bsalv
B
A
  • Question Question
XL 2016 Mise en forme conditionnelle et valeur égale à 0...
Réponses
5
Affichages
211
sylvanu
G
  • Question Question
Microsoft 365 publipostage : problème
Réponses
5
Affichages
189
Hecatonchire
H
M
  • Question Question
XL 2021 format cellule
Réponses
12
Affichages
197
Marvin57
M
F
  • Résolu(e)
XL 2021 problème de mise a jour besoin d'aide merci
Réponses
12
Affichages
243
fanch55
P
  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
199
Payne
P
B
  • Question Question
Microsoft 365 Formule pour ajouter heures à une date
Réponses
4
Affichages
280
gbinforme
G
P
  • Question Question
XL 2021 dans une vba, la date automatique mais de la veille.
Réponses
6
Affichages
172
Patrick BRZ
P
S
  • Résolu(e)
Microsoft 365 Vérifier 2 tables de données
Réponses
5
Affichages
254
job75
C
  • Question Question
Microsoft 365 Compter le nombre de salariés par manager
Réponses
9
Affichages
199
Clémence91
C
S
  • Question Question
Microsoft 365 Problème avec formule INDEX et EQUIV
Réponses
4
Affichages
306
stoffer57
S
E
  • Question Question
Microsoft 365 Renvoi valeur d'une date la plus proche
Réponses
5
Affichages
269
job75
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
143
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…