Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Calculer heure avant, pendant et apès.

Calculer heure avant, pendant et apès.

2 réponses
Avatar
José Carapito
Salut!

J´ai sur ma feuille 3 champs en colonne: HeureDébut, HeureFin et
ÉtatTravail (validation avec 3 choix: En attente, En execution, Terminé)...

Ce que je voudrais savoir, si vous pouvez m´aider biensur, c´est comment
faire pour que:
1)HeureDébut et HeureFin = "" quand ÉtatTravail="En attente";et
2)HeureDébut= date et heure du click(ou bouton ENTER) quand je change
ÉtatTravail="En éxecution";et
3)HeureFin= date et heure du click(ou bouton ENTER) quand je change
ÉtatTravail="Términé"

J´ai essayé avec la fonction maintenant() mais á chaque fois ça me fait
toute l´actualisation de mes registres...:(

Je vous remercie...

;)
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Elliac
Bonjour,

A insérer dans le VB du classeur :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
If Target = "En attente" Then
Range(Target.Offset(, -2), Target.Offset(, -1)).ClearContents
ElseIf Target = "En exécution" Then
Target.Offset(, -2) = Now
ElseIf Target = "Terminé" Then
Target.Offset(, -1) = Now
End If
End If
End Sub

Camille

"José Carapito" wrote:

Salut!

J´ai sur ma feuille 3 champs en colonne: HeureDébut, HeureFin et
ÉtatTravail (validation avec 3 choix: En attente, En execution, Terminé)...

Ce que je voudrais savoir, si vous pouvez m´aider biensur, c´est comment
faire pour que:
1)HeureDébut et HeureFin = "" quand ÉtatTravail="En attente";et
2)HeureDébut= date et heure du click(ou bouton ENTER) quand je change
ÉtatTravail="En éxecution";et
3)HeureFin= date et heure du click(ou bouton ENTER) quand je change
ÉtatTravail="Términé"

J´ai essayé avec la fonction maintenant() mais á chaque fois ça me fait
toute l´actualisation de mes registres...:(

Je vous remercie...

;)



Avatar
José Carapito
Merci...C´est parfait...;)
Bonne journée

"Elliac" wrote:

Bonjour,

A insérer dans le VB du classeur :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
If Target = "En attente" Then
Range(Target.Offset(, -2), Target.Offset(, -1)).ClearContents
ElseIf Target = "En exécution" Then
Target.Offset(, -2) = Now
ElseIf Target = "Terminé" Then
Target.Offset(, -1) = Now
End If
End If
End Sub

Camille

"José Carapito" wrote:

Salut!

J´ai sur ma feuille 3 champs en colonne: HeureDébut, HeureFin et
ÉtatTravail (validation avec 3 choix: En attente, En execution, Terminé)...

Ce que je voudrais savoir, si vous pouvez m´aider biensur, c´est comment
faire pour que:
1)HeureDébut et HeureFin = "" quand ÉtatTravail="En attente";et
2)HeureDébut= date et heure du click(ou bouton ENTER) quand je change
ÉtatTravail="En éxecution";et
3)HeureFin= date et heure du click(ou bouton ENTER) quand je change
ÉtatTravail="Términé"

J´ai essayé avec la fonction maintenant() mais á chaque fois ça me fait
toute l´actualisation de mes registres...:(

Je vous remercie...

;)