Insertion date de modification d'1 cellule sur 1 ligne
Bonsoir,
J'ai trouvé le code que je recherchais depuis quelques jours sur le forum, mais j'ai besoin d'effectuer une petite amélioration.
En effet ce code me permettrai d'afficher la date des changements se produisant sur la même ligne entre les colonnes A à H
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:H")) Is Nothing Then
Target.Offset(0, 1) = Now
End If
End Sub
Mais Target.Offset affiche la date sur la colonne qui suit la modification effectuée. Dans mon cas, je souhaite que la date s'inscrive dans une colonne précise, soit la colonne I (toujours sur la même ligne, bien entendu).
J'anticipe également un second problème que je craint d'avoir ensuite à régler, je souhaite que ce code soit valide que sur une série de lignes (de la ligne 10 à 150 par exemple) et non plus sur toute les lignes de ma feuille.
Merci, de m'aider.
bonsoir,
essaie ceci.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:H")) Is Nothing Then
Cells(Target.row,"I") = Now
End If
End SubParfait, cela fonctionne nickel !!!
Un grand merci à h2so4 et à tous ceux qui permette à ce forum d'être très utile aux utilisateurs d'excel.
Merci !
Bonjour,
Es-t-il possible d'ajouter les condition suivantes?
si la valeur est "0" ne rien faire
si la valeur est "1" donner la date de l'action
Parceque la date d'affiche pour n'importe quelle valeur et même lorque je fais une erreur de frappe
Cordialement