Tableau Excel Macro

Pierrot93

XLDnaute Barbatruc

• 12 Juillet 2011

• #2

Re : Tableau Excel Macro

Bonjour,

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

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
@+

 

Vote positif 0 Vote négatif

G

Georges

Guest

• 12 Juillet 2011

• #3

Re : Tableau Excel Macro

Voir fichier joint

Georges

 

Pièces jointes

• Modifications 02 05 2009 réparations.xls

  32 KB · Affichages: 43

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Juillet 2011

• #4

Re : Tableau Excel Macro

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

Un essai dans le fichier joint.

A bientôt.

 

Pièces jointes

• 00 - Georges.xls

  39.5 KB · Affichages: 45

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Juillet 2011

• #5

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
@+

 

Vote positif 0 Vote négatif

G

Georges

Guest

• 16 Juillet 2011

• #6

Re : Tableau Excel Macro

Pierrot93 à dit:

Bonjour,

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

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
@+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif