Inserrer date sur remplissage d'un champ

Le
Michel
Bonjour à toutes et à tous,

je souhaite que dès que j'ai rentrée un produit en B4 (liste déroulante), la
cellule A4 prenne la date du jour en automatique et reste fixe.
J'affiche bien la date en automatique ( fonction "Aujourdhui()" ) mais
n'arrive pas à la fixer.
Existe il une fonction ou autre ?

d'avance merci
Michel
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #22123661
Bonjour,

Dans la feuille module où l'action se déroule, ajoute ceci :

À chaque fois que tu fais une modification du contenu de la
cellule B4, la date d'aujourd'hui est automatiquement ajoutée.
Celle se modifiera seulement il y a un changement dans la
cellule B4

'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B4").Address Then
Target.Offset(, -1).Value = Date
End If
End Sub
'-------------------------------



"Michel" 4befc81f$0$16634$
Bonjour à toutes et à tous,

je souhaite que dès que j'ai rentrée un produit en B4 (liste déroulante), la
cellule A4 prenne la date du jour en automatique et reste fixe.
J'affiche bien la date en automatique ( fonction "Aujourdhui()" ) mais
n'arrive pas à la fixer.
Existe il une fonction ou autre ?

d'avance merci
Michel
Michel
Le #22123821
Merci pour la réponse,

j'ai oublié de précisé que c'est la même chose pour toutes les lignes

B4
B5
B6
B7
ect...

Comment modifié la fonction dans ce sens ?

D'avance merci
Michel


"michdenis" %
Bonjour,

Dans la feuille module où l'action se déroule, ajoute ceci :

À chaque fois que tu fais une modification du contenu de la
cellule B4, la date d'aujourd'hui est automatiquement ajoutée.
Celle se modifiera seulement il y a un changement dans la
cellule B4

'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B4").Address Then
Target.Offset(, -1).Value = Date
End If
End Sub
'-------------------------------



"Michel" discussion :
4befc81f$0$16634$
Bonjour à toutes et à tous,

je souhaite que dès que j'ai rentrée un produit en B4 (liste déroulante),
la
cellule A4 prenne la date du jour en automatique et reste fixe.
J'affiche bien la date en automatique ( fonction "Aujourdhui()" ) mais
n'arrive pas à la fixer.
Existe il une fonction ou autre ?

d'avance merci
Michel

michdenis
Le #22124011
Comme ceci alors :

'-----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B4:B" & Target.Row), Target) Is Nothing Then
If Target.Row >= 4 Then Target.Offset(, -1).Value = Date
End If
End Sub
'-----------------------





"Michel" 4befe86a$0$12198$
Merci pour la réponse,

j'ai oublié de précisé que c'est la même chose pour toutes les lignes

B4
B5
B6
B7
ect...

Comment modifié la fonction dans ce sens ?

D'avance merci
Michel


"michdenis" %
Bonjour,

Dans la feuille module où l'action se déroule, ajoute ceci :

À chaque fois que tu fais une modification du contenu de la
cellule B4, la date d'aujourd'hui est automatiquement ajoutée.
Celle se modifiera seulement il y a un changement dans la
cellule B4

'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B4").Address Then
Target.Offset(, -1).Value = Date
End If
End Sub
'-------------------------------



"Michel" discussion :
4befc81f$0$16634$
Bonjour à toutes et à tous,

je souhaite que dès que j'ai rentrée un produit en B4 (liste déroulante),
la
cellule A4 prenne la date du jour en automatique et reste fixe.
J'affiche bien la date en automatique ( fonction "Aujourdhui()" ) mais
n'arrive pas à la fixer.
Existe il une fonction ou autre ?

d'avance merci
Michel

Philippe.R
Le #22124001
Bonjour,
Pour toutes les lignes de la colonne B :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Offset(, -1).Value = Date
End If
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"Michel" news:4befe86a$0$12198$
Merci pour la réponse,

j'ai oublié de précisé que c'est la même chose pour toutes les lignes

B4
B5
B6
B7
ect...

Comment modifié la fonction dans ce sens ?

D'avance merci
Michel


"michdenis" %
Bonjour,

Dans la feuille module où l'action se déroule, ajoute ceci :

À chaque fois que tu fais une modification du contenu de la
cellule B4, la date d'aujourd'hui est automatiquement ajoutée.
Celle se modifiera seulement il y a un changement dans la
cellule B4

'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B4").Address Then
Target.Offset(, -1).Value = Date
End If
End Sub
'-------------------------------



"Michel" discussion :
4befc81f$0$16634$
Bonjour à toutes et à tous,

je souhaite que dès que j'ai rentrée un produit en B4 (liste déroulante),
la
cellule A4 prenne la date du jour en automatique et reste fixe.
J'affiche bien la date en automatique ( fonction "Aujourdhui()" ) mais
n'arrive pas à la fixer.
Existe il une fonction ou autre ?

d'avance merci
Michel





Michel
Le #22124181
Impeccable,

les deux fonctionnent.

Encore merci
Michel





"michdenis"
Comme ceci alors :

'-----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B4:B" & Target.Row), Target) Is Nothing Then
If Target.Row >= 4 Then Target.Offset(, -1).Value = Date
End If
End Sub
'-----------------------





"Michel" discussion :
4befe86a$0$12198$
Merci pour la réponse,

j'ai oublié de précisé que c'est la même chose pour toutes les lignes

B4
B5
B6
B7
ect...

Comment modifié la fonction dans ce sens ?

D'avance merci
Michel


"michdenis" %
Bonjour,

Dans la feuille module où l'action se déroule, ajoute ceci :

À chaque fois que tu fais une modification du contenu de la
cellule B4, la date d'aujourd'hui est automatiquement ajoutée.
Celle se modifiera seulement il y a un changement dans la
cellule B4

'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B4").Address Then
Target.Offset(, -1).Value = Date
End If
End Sub
'-------------------------------



"Michel" discussion :
4befc81f$0$16634$
Bonjour à toutes et à tous,

je souhaite que dès que j'ai rentrée un produit en B4 (liste déroulante),
la
cellule A4 prenne la date du jour en automatique et reste fixe.
J'affiche bien la date en automatique ( fonction "Aujourdhui()" ) mais
n'arrive pas à la fixer.
Existe il une fonction ou autre ?

d'avance merci
Michel




michdenis
Le #22124951
Tu devrais plutôt utiliser ceci comme procédure, elle est plus complète.

'---------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range, X As Long, A As Long
A = Target.Areas.Count
X = Target.Areas(A)(Target.Areas(A).Rows.Count).Row
If X < 4 Then X = 4
If Not Intersect(Range("B4:B" & X), Target) Is Nothing Then
Application.EnableEvents = False
For Each C In Range("B4:B" & X)
If C.Value <> "" Then
C.Offset(, -1).Value = Date
Else
C.Offset(, -1).Value = ""
End If
Next
Application.EnableEvents = True
End If
End Sub
'---------------------------------------




"Michel" 4beff871$0$15650$
Impeccable,

les deux fonctionnent.

Encore merci
Michel





"michdenis"
Comme ceci alors :

'-----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B4:B" & Target.Row), Target) Is Nothing Then
If Target.Row >= 4 Then Target.Offset(, -1).Value = Date
End If
End Sub
'-----------------------





"Michel" discussion :
4befe86a$0$12198$
Merci pour la réponse,

j'ai oublié de précisé que c'est la même chose pour toutes les lignes

B4
B5
B6
B7
ect...

Comment modifié la fonction dans ce sens ?

D'avance merci
Michel


"michdenis" %
Bonjour,

Dans la feuille module où l'action se déroule, ajoute ceci :

À chaque fois que tu fais une modification du contenu de la
cellule B4, la date d'aujourd'hui est automatiquement ajoutée.
Celle se modifiera seulement il y a un changement dans la
cellule B4

'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B4").Address Then
Target.Offset(, -1).Value = Date
End If
End Sub
'-------------------------------



"Michel" discussion :
4befc81f$0$16634$
Bonjour à toutes et à tous,

je souhaite que dès que j'ai rentrée un produit en B4 (liste déroulante),
la
cellule A4 prenne la date du jour en automatique et reste fixe.
J'affiche bien la date en automatique ( fonction "Aujourdhui()" ) mais
n'arrive pas à la fixer.
Existe il une fonction ou autre ?

d'avance merci
Michel




Publicité
Poster une réponse
Anonyme