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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de groupe de 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
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de discussion :
4befc81f$0$16634$426a74cc@news.free.fr...
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 ?
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" a écrit dans le message de groupe de 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
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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
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" <michdenis@hotmail.com> a écrit dans le message de news:
%23vg9i0O9KHA.5540@TK2MSFTNGP02.phx.gbl...
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de
discussion :
4befc81f$0$16634$426a74cc@news.free.fr...
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 ?
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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
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" a écrit dans le message de groupe de 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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de discussion :
4befe86a$0$12198$426a74cc@news.free.fr...
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" <michdenis@hotmail.com> a écrit dans le message de news:
%23vg9i0O9KHA.5540@TK2MSFTNGP02.phx.gbl...
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de
discussion :
4befc81f$0$16634$426a74cc@news.free.fr...
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 ?
'----------------------- 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" a écrit dans le message de groupe de 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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
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" a écrit dans le message de 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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
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" <michel_B@libertysurf.fr> a écrit dans le message de
news:4befe86a$0$12198$426a74cc@news.free.fr...
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" <michdenis@hotmail.com> a écrit dans le message de news:
%23vg9i0O9KHA.5540@TK2MSFTNGP02.phx.gbl...
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de
discussion :
4befc81f$0$16634$426a74cc@news.free.fr...
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 ?
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" a écrit dans le message de 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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
Impeccable,
les deux fonctionnent.
Encore merci Michel
"michdenis" a écrit dans le message de news:
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" a écrit dans le message de groupe de 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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
Impeccable,
les deux fonctionnent.
Encore merci
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uE7N9gP9KHA.5464@TK2MSFTNGP05.phx.gbl...
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de
discussion :
4befe86a$0$12198$426a74cc@news.free.fr...
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" <michdenis@hotmail.com> a écrit dans le message de news:
%23vg9i0O9KHA.5540@TK2MSFTNGP02.phx.gbl...
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de
discussion :
4befc81f$0$16634$426a74cc@news.free.fr...
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 ?
'----------------------- 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" a écrit dans le message de groupe de 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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
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" a écrit dans le message de groupe de discussion : 4beff871$0$15650$ Impeccable,
les deux fonctionnent.
Encore merci Michel
"michdenis" a écrit dans le message de news:
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" a écrit dans le message de groupe de 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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de discussion :
4beff871$0$15650$426a34cc@news.free.fr...
Impeccable,
les deux fonctionnent.
Encore merci
Michel
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uE7N9gP9KHA.5464@TK2MSFTNGP05.phx.gbl...
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de
discussion :
4befe86a$0$12198$426a74cc@news.free.fr...
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" <michdenis@hotmail.com> a écrit dans le message de news:
%23vg9i0O9KHA.5540@TK2MSFTNGP02.phx.gbl...
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" <michel_B@libertysurf.fr> a écrit dans le message de groupe de
discussion :
4befc81f$0$16634$426a74cc@news.free.fr...
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 ?
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" a écrit dans le message de groupe de discussion : 4beff871$0$15650$ Impeccable,
les deux fonctionnent.
Encore merci Michel
"michdenis" a écrit dans le message de news:
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" a écrit dans le message de groupe de 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" a écrit dans le message de news: %
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" a écrit dans le message de groupe de 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 ?