Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Date de modification

Date de modification

4 réponses
Avatar
jethro
Bonjour
J'ai des tarifs dans la colonne A, et j'aimerai qu'apparaisse dans la
colonne B, la date de mise à jour de la colonne A
z'avez une idée ???

Merci !!
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
JB
Bonjour,

Met l'heure de saisie dans la colonne B

http://cjoint.com/?gwsGGy3Zt3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
On Error Resume Next
Target.Offset(0, 1) = CStr(Now)
Application.EnableEvents = True
End If
End Sub

Met l'heure de saisie en commentaire

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
On Error Resume Next
Target.AddComment
Target.Comment.Text Text:=CStr(Now)
Target.Comment.Visible = True
Target.Comment.Shape.Select
Selection.AutoSize = True
Target.Comment.Visible = False
On Error GoTo 0
Application.EnableEvents = True
End If
End Sub

Cordialement JB


Bonjour
J'ai des tarifs dans la colonne A, et j'aimerai qu'apparaisse dans la
colonne B, la date de mise à jour de la colonne A
z'avez une idée ???

Merci !!


Avatar
Jacky
Bonsoir,

Dans le module de la feuille en question.
Ceci devrait faire.
'----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub
Range("b" & Target.Row) = Date
End Sub
'-----------
Salutations
JJ

"jethro" a écrit dans le message de
news:449ac218$0$987$
Bonjour
J'ai des tarifs dans la colonne A, et j'aimerai qu'apparaisse dans la
colonne B, la date de mise à jour de la colonne A
z'avez une idée ???

Merci !!




Avatar
jethro
Génial !!
Mais autant dans access je sais créer des lignes de commandes autant dans
excel ... pff
Merci
"JB" a écrit dans le message de news:

Bonjour,

Met l'heure de saisie dans la colonne B

http://cjoint.com/?gwsGGy3Zt3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
On Error Resume Next
Target.Offset(0, 1) = CStr(Now)
Application.EnableEvents = True
End If
End Sub

Met l'heure de saisie en commentaire

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
On Error Resume Next
Target.AddComment
Target.Comment.Text Text:=CStr(Now)
Target.Comment.Visible = True
Target.Comment.Shape.Select
Selection.AutoSize = True
Target.Comment.Visible = False
On Error GoTo 0
Application.EnableEvents = True
End If
End Sub

Cordialement JB


Bonjour
J'ai des tarifs dans la colonne A, et j'aimerai qu'apparaisse dans la
colonne B, la date de mise à jour de la colonne A
z'avez une idée ???

Merci !!


Avatar
jethro
Ca y est j'ai trouvé

Grand merci à vous

"Jacky" a écrit dans le message de news:

Bonsoir,

Dans le module de la feuille en question.
Ceci devrait faire.
'----------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub
Range("b" & Target.Row) = Date
End Sub
'-----------
Salutations
JJ

"jethro" a écrit dans le message de
news:449ac218$0$987$
Bonjour
J'ai des tarifs dans la colonne A, et j'aimerai qu'apparaisse dans la
colonne B, la date de mise à jour de la colonne A
z'avez une idée ???

Merci !!