Affichage de date automatique

[Fred]

Bonjour,

Je crée présentement un formulaire de rapport des ventes pour notre équipe de marketing.

J'aimerais qu'à chaque fois qu'une donnée est entré dans la colonne B de la feuille, La date du jour s'affiche automatique dans la colonne A

====A===== ====B=====
2006-01-20 Cie XYZ Inc.

Est-ce possible???

Merci

Fred

 

[Fred]

Fred écrit:

Bonjour,

Je crée présentement un formulaire de rapport des ventes pour notre équipe de marketing.

J'aimerais qu'à chaque fois qu'une donnée est entré dans la colonne B de la feuille, La date du jour s'affiche automatique dans la colonne A

====A===== ====B=====
2006-01-20 Cie XYZ Inc.

Est-ce possible???

Merci

Fred

 

[Dan]

Bonsoir,

Place cette macro dans Thisworkbook en VBA. A chaque double clique elle te mettra la date du jour :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A:A')) Is Nothing Then
Target = Date
End If
End Sub

Si pb n'hésite pas

 

[Marc_du_78]

Bonsoir Fred, Dan , le Forum,

Permet que je pose cette question ;
La date du jour ainsi transposé sera-t-elle figée par la suite ?

En te remerciant Dan
M.

 

[VieuxChrist]

Essaye ceci

 

[VieuxChrist]

Essaye ceci

 

[VieuxChrist]

Essaye ceci

 

[Dan]

Re,

Marc, cette macro place la date du jour dans la colonne A par un double clique dans la cellule de ton choix. Comme il ne s'agit pas de placement d'une formule de type AUJURDHUI, elle reste figée quelque soit le jour ou le moment où tu ouvres ton fichier.

Bonne soirée

 

[VieuxChrist]

Avec le fichier. Désolé ! [file name=Classeur1_20060120222833.zip size=7229]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060120222833.zip[/file] [file name=Classeur1_20060120222833.zip size=7229]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060120222833.zip[/file]

 

[Marc_du_78]

Bonsoir Dans,

Je vien te remercier pour ta réponse. En effet, j'avais essayé ta macro et elle est parfaite, mis ne désirant pas attendre demain pour le vérifier, c'érait le but de ma question.
Merci de m'avoir vonfirmé ce point et passe une bonne soirée.
A+
M.

 

[Fred]

Désolé j'ai oublié de mentionné que la date doit être figé. Elle ne doit pas se mettre < jour < chque réouverture du fichier

Merci

Fred

 

[Dan]

Bonsoir,

Fred je n'ai pas l'impression que tu as lu ou essayé ce que je t'ai proposé ? A moins que cela ne t'intéresse pas.

 

[Fred]

Bonjour Dan,

Je l'essaye a l'instant...

Merci

Fred

 

[_Thierry]

Bonsoir Dan, Fred, Marc, 'VieuxChrist', le Forum

Juste pour être plus automatisé et correspondre au mieux à la demande de Fred, une variante de la proposition de mon ami Dan The Rolling Stones !

'A Placer dans le Private Module de la Feuille en Question
'Click Droit sur l'Onglet, Puis 'Visualiser le Code' dans le menu contextuel
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range('B:B')) Is Nothing Then
        Target.Offset(0, -1) = Date
    End If

End Sub

Bonne Nuit
[ol]@+Thierry[/ol]

 

[Manu]

Bonjour à tous

Marc lorsque tu veux essayer ce genre de code
tu peus avancer l'horloge de l'ordi sans attendre le lendemain

à bientôt

Manu