Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Date de modification cellule

Date de modification cellule

2 réponses
Avatar
Myriam
Bonjour à toutes et tous !!

Je voudrais mettre à jour une date si modification d'une cellule précise sur
la même ligne...

Pour l'instant j'utilise ça :
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 8).Value = "Changé le " & Format(Date, "dd/mm/yyyy")
End Sub

Qui fonctionne bien, mais modifie la date colonne 8 si je change n'importe
quoi sur la ligne...
Moi je voudrais modifier la date colonne 8 si la valeur colonne 5 de la
ligne est changée !!

C'est possible ??

Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
Signaler un problème avec ce contenu

2 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
Papou
Bonjour
Modifie comme ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Cells(Target.Row, 8).Value = "Changé le " & Format(Date, "dd/mm/yyyy")
End If
End Sub

Cordialement
Pascal

"Myriam" a écrit dans le message
de news: #
Bonjour à toutes et tous !!

Je voudrais mettre à jour une date si modification d'une cellule précise
sur

la même ligne...

Pour l'instant j'utilise ça :
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 8).Value = "Changé le " & Format(Date, "dd/mm/yyyy")
End Sub

Qui fonctionne bien, mais modifie la date colonne 8 si je change n'importe
quoi sur la ligne...
Moi je voudrais modifier la date colonne 8 si la valeur colonne 5 de la
ligne est changée !!

C'est possible ??

Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M




Avatar
Myriam
Merci !!
--
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M
"Papou" a écrit dans le message de news:
eOACWC#
Bonjour
Modifie comme ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Cells(Target.Row, 8).Value = "Changé le " & Format(Date, "dd/mm/yyyy")
End If
End Sub

Cordialement
Pascal

"Myriam" a écrit dans le message
de news: #
Bonjour à toutes et tous !!

Je voudrais mettre à jour une date si modification d'une cellule précise
sur

la même ligne...

Pour l'instant j'utilise ça :
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 8).Value = "Changé le " & Format(Date, "dd/mm/yyyy")
End Sub

Qui fonctionne bien, mais modifie la date colonne 8 si je change
n'importe


quoi sur la ligne...
Moi je voudrais modifier la date colonne 8 si la valeur colonne 5 de la
ligne est changée !!

C'est possible ??

Merci
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M