J'ai un tableau où je rentre des listes d'échantillons dans excel 2003.
Je cherche à saisir la date et l'heure automatiquement au moment ou je
rentre le libellé d'une cellule.
Exemple :
Je rentre "produit 1" dans la cellule C10, et j'aimereais qu'au moment ou je
valide cette cellule, la date et l'heure du moment se fixent dans la cellule
B10.
Le lendemain je rentre "produit 2" dans la cellule C11, et la date et heure
du moment se fixent dans la cellule B11, mais la date et heure contenue dans
la cellule B10 le jour précédent ne changent pas...
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
anonymousA
bonjour,
à mettre dans le module de feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
'a adpater si on ne veut pas commencer à la ligne 1 de la colonne C Set rng = Range(Cells(1,3), Cells(65536, 3))
If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0, -1).Value = Now
End Sub
Bonjour !
J'ai un tableau où je rentre des listes d'échantillons dans excel 2003. Je cherche à saisir la date et l'heure automatiquement au moment ou je rentre le libellé d'une cellule.
Exemple :
Je rentre "produit 1" dans la cellule C10, et j'aimereais qu'au moment ou je valide cette cellule, la date et l'heure du moment se fixent dans la cellule B10. Le lendemain je rentre "produit 2" dans la cellule C11, et la date et heure du moment se fixent dans la cellule B11, mais la date et heure contenue dans la cellule B10 le jour précédent ne changent pas...
Merci pour votre aide !!!
Le G
bonjour,
à mettre dans le module de feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
'a adpater si on ne veut pas commencer à la ligne 1 de la colonne C
Set rng = Range(Cells(1,3), Cells(65536, 3))
If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0,
-1).Value = Now
End Sub
Bonjour !
J'ai un tableau où je rentre des listes d'échantillons dans excel 2003.
Je cherche à saisir la date et l'heure automatiquement au moment ou je
rentre le libellé d'une cellule.
Exemple :
Je rentre "produit 1" dans la cellule C10, et j'aimereais qu'au moment ou je
valide cette cellule, la date et l'heure du moment se fixent dans la cellule
B10.
Le lendemain je rentre "produit 2" dans la cellule C11, et la date et heure
du moment se fixent dans la cellule B11, mais la date et heure contenue dans
la cellule B10 le jour précédent ne changent pas...
Private Sub Worksheet_Change(ByVal Target As Range)
'a adpater si on ne veut pas commencer à la ligne 1 de la colonne C Set rng = Range(Cells(1,3), Cells(65536, 3))
If Not Application.Intersect(Target, rng) Is Nothing Then Target.Offset(0, -1).Value = Now
End Sub
Bonjour !
J'ai un tableau où je rentre des listes d'échantillons dans excel 2003. Je cherche à saisir la date et l'heure automatiquement au moment ou je rentre le libellé d'une cellule.
Exemple :
Je rentre "produit 1" dans la cellule C10, et j'aimereais qu'au moment ou je valide cette cellule, la date et l'heure du moment se fixent dans la cellule B10. Le lendemain je rentre "produit 2" dans la cellule C11, et la date et heure du moment se fixent dans la cellule B11, mais la date et heure contenue dans la cellule B10 le jour précédent ne changent pas...
Merci pour votre aide !!!
Le G
LSteph
Bonjour le G, (Alt+F11) afficher VBE (Ctrl+R) afficher l'explorateur de projet pour dblcliquer sur la feuille concernée puis dans le module de feuille qui apparait à droite, coller ceci puis fermer VBE: '************** Private Sub Worksheet_Change(ByVal Target As Range) '***date en B quand C est renseigné*** Dim c, iSct As Range On Error GoTo errh Set iSct = Intersect(Target, Range("c:c")) If iSct Is Nothing Then Exit Sub '**Sort si C n'est pas concerné** Application.EnableEvents = False For Each c In iSct.Cells If IsEmpty(c) Then c.Offset(0, -1) = "" Else c.Offset(0, -1) = Format(Now, "dd/mm/yy-hh:nn:ss") End If Next errh: Application.EnableEvents = True End Sub '************
'lSteph
"Le G" <Le a écrit dans le message de news:
Bonjour !
J'ai un tableau où je rentre des listes d'échantillons dans excel 2003. Je cherche à saisir la date et l'heure automatiquement au moment ou je rentre le libellé d'une cellule.
Exemple :
Je rentre "produit 1" dans la cellule C10, et j'aimereais qu'au moment ou je valide cette cellule, la date et l'heure du moment se fixent dans la cellule B10. Le lendemain je rentre "produit 2" dans la cellule C11, et la date et heure du moment se fixent dans la cellule B11, mais la date et heure contenue dans la cellule B10 le jour précédent ne changent pas...
Merci pour votre aide !!!
Le G
Bonjour le G,
(Alt+F11) afficher VBE
(Ctrl+R) afficher l'explorateur de projet
pour dblcliquer sur la feuille concernée
puis dans le module de feuille qui apparait à droite, coller ceci puis
fermer VBE:
'**************
Private Sub Worksheet_Change(ByVal Target As Range)
'***date en B quand C est renseigné***
Dim c, iSct As Range
On Error GoTo errh
Set iSct = Intersect(Target, Range("c:c"))
If iSct Is Nothing Then Exit Sub
'**Sort si C n'est pas concerné**
Application.EnableEvents = False
For Each c In iSct.Cells
If IsEmpty(c) Then
c.Offset(0, -1) = ""
Else
c.Offset(0, -1) = Format(Now, "dd/mm/yy-hh:nn:ss")
End If
Next
errh:
Application.EnableEvents = True
End Sub
'************
'lSteph
"Le G" <Le G@discussions.microsoft.com> a écrit dans le message de news:
2C86B051-D790-473E-936E-D0BD6F57DA4D@microsoft.com...
Bonjour !
J'ai un tableau où je rentre des listes d'échantillons dans excel 2003.
Je cherche à saisir la date et l'heure automatiquement au moment ou je
rentre le libellé d'une cellule.
Exemple :
Je rentre "produit 1" dans la cellule C10, et j'aimereais qu'au moment ou
je
valide cette cellule, la date et l'heure du moment se fixent dans la
cellule
B10.
Le lendemain je rentre "produit 2" dans la cellule C11, et la date et
heure
du moment se fixent dans la cellule B11, mais la date et heure contenue
dans
la cellule B10 le jour précédent ne changent pas...
Bonjour le G, (Alt+F11) afficher VBE (Ctrl+R) afficher l'explorateur de projet pour dblcliquer sur la feuille concernée puis dans le module de feuille qui apparait à droite, coller ceci puis fermer VBE: '************** Private Sub Worksheet_Change(ByVal Target As Range) '***date en B quand C est renseigné*** Dim c, iSct As Range On Error GoTo errh Set iSct = Intersect(Target, Range("c:c")) If iSct Is Nothing Then Exit Sub '**Sort si C n'est pas concerné** Application.EnableEvents = False For Each c In iSct.Cells If IsEmpty(c) Then c.Offset(0, -1) = "" Else c.Offset(0, -1) = Format(Now, "dd/mm/yy-hh:nn:ss") End If Next errh: Application.EnableEvents = True End Sub '************
'lSteph
"Le G" <Le a écrit dans le message de news:
Bonjour !
J'ai un tableau où je rentre des listes d'échantillons dans excel 2003. Je cherche à saisir la date et l'heure automatiquement au moment ou je rentre le libellé d'une cellule.
Exemple :
Je rentre "produit 1" dans la cellule C10, et j'aimereais qu'au moment ou je valide cette cellule, la date et l'heure du moment se fixent dans la cellule B10. Le lendemain je rentre "produit 2" dans la cellule C11, et la date et heure du moment se fixent dans la cellule B11, mais la date et heure contenue dans la cellule B10 le jour précédent ne changent pas...
