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 ?
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" 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" 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 ?
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" 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" 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 ?
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" 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" 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 ?
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" 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" 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 ?
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" 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