Discussion :

[Line]

Bonjour a vous,

Sous excel 2003,

J'ai un fichier Excel qui contient entre autre une colonne PRODUCT et une colonne PRIX.
J'aimerais être notifiée lorsque la cellule prix est modifiée. Ce que je veux dire est que si mon patron apporte un changement sur le prix, je sois capable d'identifier le produit rapidement au lieu de faire refaire l'exercice manuellement.
Quelqu'un pourrait me conseiller stp ? Je ne m'y connais pas beaucoup en Excel.

merci de votre collaboration

[jfontaine]

Bonsoir,

Pour faire cela il faut utiliser VBA

Exemple de code permettant d'avertir si modification de la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public StrValeur As String
 
Private Sub Worksheet_Change(ByVal Target As Range)
If StrValeur <> Target.Value Then MsgBox "Modification de la cellule"
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
StrValeur = Target.Value
End Sub

Bon courage

[Line]

merci Jérome,

J'ai collé le code dans un module Excel mais il ne se passe rien lorsque je tape un nouveau dans la cellule.
Ais-je oublié de faire quelque chose ?

[Invité]

Bonjour

Il ne faut pas coller le code dans un module standard, mais dans les modules des feuilles.

Philippe

[Invité]

Bonsoir,


Mémorise l'historique des cellules dans la zone commentaire des cellules de la colonne C.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 3 And Target.Count = 1 Then    ' colonne 3 seulement
    If Target.NoteText = "" Then Target.AddComment    ' Création commentaire
    Target.Comment.Text Text:=Target.Comment.Text & _
       Format(Target.Value, "# ##0.00 €") & " Modifié par:" & Environ("UserName") & _
         " Le " & Now & vbLf
    Target.Comment.Shape.TextFrame.AutoSize = True
  End If
  Application.EnableEvents = True
End Sub

-Alt+F11
-Double clic sur Feuil1
-Choisir WorkSheet
-Choisir événement Change


JB