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
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
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
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" %
'-----------------------
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" %
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$
les deux fonctionnent.
Encore merci
Michel
"michdenis"
'---------------------------------------
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"