Tableau Excel Macro

[Georges]

Dans un tableau Excel après avoir tapé un texte dans la cellule A5 et appuyé sur la touche Entrée:Comment insérer automatiquement la date dans la cellule B5 et l'heure dans la C5.
Que cette date et heure reste fixe quand je tape un texte dans la cellule A6, une heure après où là seule l'heure va changer.

Merci d'Avance
Un ch'ti près de Douai

 

[Pierrot93]

Re : Tableau Excel Macro

Bonjour,

essaye ceci, à placer dans le module de la feuille concerné, click droit sur l'onglet => visualiser le code :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$5" Then Exit Sub
If Target.Value <> "" Then Range("B5").Value = Date: Range("C5").Value = Time
End Sub

bonne soirée
@+

 

[Georges]

Re : Tableau Excel Macro

Voir fichier joint

Georges

 

[DoubleZero]

Re : Tableau Excel Macro

Bonjour et bienvenue, Georges, bonjour, Pierrot 🙂, le Forum,

Un essai dans le fichier joint.

A bientôt.

 

[Pierrot93]

Re : Tableau Excel Macro

Bonjour Georges, 00🙂

il faut coller uniquement ce qu'il y a dans la fenêtre après "code :", et ce dans le module de la feulle,comme précisé dans mon post, et non dans un module standard...

bonne journée
@+

 

[Georges]

Re : Tableau Excel Macro

Bonjour,

essaye ceci, à placer dans le module de la feuille concerné, click droit sur l'onglet => visualiser le code :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$5" Then Exit Sub
If Target.Value <> "" Then Range("B5").Value = Date: Range("C5").Value = Time
End Sub

bonne soirée
@+

Bonsoir

En faisant :
Private Sub Workshet_Change(byVal Target As range)
If Not Intersect(Target, Range("A5:655356")) Is Nothing Then
If Target.Value<> "" Then
Target.Offset(0, 2) = Format (Time,"hh:mm")
Target.Offset(0, 1) = Date
Else
Target.Offset(0, 2) = ""
Target.Offset(0, 1) = ""
End If
End If
End Sub

Cela permet : Quand on efface le texte de la cellule A5, la date et l'heure s'efface automatiquement dans les cellules B5 et C5. Etc...

Merci Pierrot pour ton aide
A plus

Georges