Notification si changement de valeur dans une cellule
Bonjour
Admettons que j'ai une valeur dans A1 "Janvier" une autre dans A2 "12", j'aimerai être notifier dans A3 s'il y a un changement de valeur dans A1 par un simple "oui" ou "non". Ex: On passe de janvier à février
Sur cette exemple j'arrive à le faire avec la simple formule "SI" sauf que j'ai plus de 1000 ligne avec différentes valeurs. Comment faire svp?
Bonjour et bienvenue,
Relis toi, reformule et joins un fichier.
Cdlt.
Bonjour,
et une fois à "oui" elle y reste advitam eternam ?
A quoi ça sert dans ce cas ?
eric
Bonjour,
Je vous remercie pour vos retours. Concernant, ma demande, je ne sais pas comment je pourrai être plus précise du coup je joins une capture qui vous permettra d'y voir un peu plus clair.
Il s'agit d'un Excel avec énormément de donnée. Ce que j'aimerais faire c'est avoir en AT une formule qui me permettrait de savoir si une personne a changé une valeur dans S. Exemple : un collègue change S2 et met février à la place de janvier. J'aimerai qu'en AT2, soit affiché "yes" afin que je puisse voir facilement tous les changement qu'il y a en triant la colonne AT. (sachant qu'on est pas supposé connaitre des changements donc j'aurai peu de yes voire pas du tout. Mais comme c'est un document qui a eté envoyé à la direction, de ce fait, je saurai ce qui a changé) c'est juste pour m'y retrouver plus facilement.
J'espère que vous comprendrez mieux. C'est le mieux que je puisse faire pour soucis de confidentialité
Bonjour,
Ta colonne S est une formule ou une saisie manuelle ?
Cdlt.
Une proposition.
Une modif (saisie) est mise en jaune et la date de dernière modif mise en AT. Tu peux filtrer dessus
Supprimer cette date supprime tous les surlignements de la ligne.
Vois si ça te convient
eric
Bonjour Eric,
Ta proposition est encore bien meilleure que la mienne et je t'en remercie. Comment faire pour rentrer cet algorithme ?
Merci beaucoup
Clic-droit sur l'onglet et 'Visualiser le code.
Copier-coller à droite tout ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 46 Then 'AT
If Target = "" Then Target.EntireRow.Interior.ColorIndex = xlNone
Else
Application.EnableEvents = False
Target.Interior.Color = vbYellow
Cells(Target.Row, 46).Interior.Color = vbYellow
Cells(Target.Row, 46).Value = Date
Application.EnableEvents = True
End If
End SubEnregistrer sous... en choisissant le type *.xlsm pour conserver les macros
eric