Insérer date sans recalcul

[gagnonpeter]

Je dois remplir un tableau et j'aimerais savoir comment on fait pour que quand j'écris une donnée dans une cellule, l'heure apparaisse dans la cellule à coté mais sans recalcul. Si j'écris dans la cellule A1, je veux que ca affiche l'heure à laquel j'ai écris dans cette cellule dans A2 et si j'écris dans B1, je veux que l'heure à lequel j'ai écris dans cette cellule s'affiche dans B2. Le probleme c'est que quand j'écris dans b1 par exemple, l'heure s'affiche dans b2 mais l'heure dans a2 change aussi.

 

[DoubleZero]

Re : Insérer date sans recalcul

Bonjour, gagnonpeter, le Forum,

Peut-être ainsi (code à placer dans le module de l'onglet ) :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1")) Is Nothing Then Range("a2") = Time
    If Not Intersect(Target, Range("b1")) Is Nothing Then Range("b2") = Time
    Range("a2:b2").NumberFormat = "[h]:mm:ss"
End Sub

A bientôt 🙂

 

[gagnonpeter]

Re : Insérer date sans recalcul

Merci beaucoup!
Ca fonctionne!!!!!!

 

[gagnonpeter]

Re : Insérer date sans recalcul

Crois tu qu'il serait serait possible que si j'efface le contenu dans la cellule a1 par exemble, l'heure à coté s'efface aussi? Que la formule s'applique juste quand la cellule n'est pas vide?

 

[DoubleZero]

Re : Insérer date sans recalcul

Re-bonjour,

Il y a certainement plus simple 🙄... mais je ne sais pas mieux proposer.

Dans un module standard :

Option Explicit
Sub Heure_A()
    If Range("a1") = "" Then Range("a1").Offset(1, 0) = "" Else Range("a1").Offset(1, 0) = Time
End Sub
Sub Heure_B()
    If Range("b1") = "" Then Range("b1").Offset(1, 0) = "" Else Range("b1").Offset(1, 0) = Time
End Sub

Dans le module de l'onglet :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1")) Is Nothing Then Call Heure_A
    If Not Intersect(Target, Range("b1")) Is Nothing Then Call Heure_B
End Sub

A bientôt 🙂

 

[gagnonpeter]

Re : Insérer date sans recalcul

Ca fonctionne!!!!!! Yessssss!

Merci beaucoup!!!!

 

[gagnonpeter]

Re : Insérer date sans recalcul

lol! juste une petit ajustement, j'ai essayé mais j'y arrive pas. Est-il possible que l'heure affiche à droite de la cellule au lieu d'en dessous?

 

[DoubleZero]

Re : Insérer date sans recalcul

Re-bonjour,

... Si j'écris dans la cellule A1, je veux que ca affiche l'heure à laquel j'ai écris dans cette cellule dans A2 et si j'écris dans B1, je veux que l'heure à lequel j'ai écris dans cette cellule s'affiche dans B2...

... Est-il possible que l'heure affiche à droite de la cellule au lieu d'en dessous?

J'avoue ne pas comprendre quel est le véritable besoin 😕.

Pourrait-on voir un fichier exemple du (des) résultat(s) attendu(s) ?

A bientôt 🙂

 

[gagnonpeter]

Re : Insérer date sans recalcul

c'est pas le fichier original car je ne l'ai pas pour le moment mais je t'ai fait un petit quelque chose. Si ca marche avec ca, je pourrai l'adapter à l'original. Dans le fichier original, on scan des produit avec une machine et ca importe le #code à bar dans excel. J'aimerais que l'heure s'affiche avec la date dans la collonne d'à coté tout simplement. Il arrive des fois que j'efface des # code à bar pour une raison quelconque et à ce moment là j'aimerais que l'heure à coté s'efface en meme temps.

Merci encore une fois!

 

[DoubleZero]

Re : Insérer date sans recalcul

Bonjour, gagnonpeter, le Forum,

Une suggestion en pièce jointe.

A bientôt 🙂

 

[gagnonpeter]

Re : Insérer date sans recalcul

Ca fonctionne à merveille. Je vais intégrer ta formule au fichier original et le tout est joué!

Merci beaucoup pour ton aide!