Discussion :

[lorie1746]

Bonjour,

Après de nombreuses recherches, je n'arrive pas à résoudre mon problème :
- je saisie des chiffres dans les colonnes A et B
- la colonne C affiche une cotation selon un calcul avec A et B

--> je souhaite afficher un message lorsque le résultat en C est modifier (la modification de A et/ou B peut ne pas avoir d'influence sur le résultat)

J'ai essayé le code suivant, mais celui-ci ne prend pas en compte les modifications issues de formules :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim KeyCells As Range
    Set KeyCells = Range("C1:C10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
MsgBox "modif"
 
End If
End Sub

Pouvez-vous m'aider ?

Je vous joints un exemple simplifier : Classeur1.xlsm

Merci par avance !

[pijaku]

Bonjour,

Comme c'est A ou B qui est modifié, changez :

Code :

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

Set KeyCells = Range("C1:C10")

Par :

Code :

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

Set KeyCells = Range("A1:B10")

Edit :
Target étant un objet Range, l'écriture suivante est curieuse :

Code :

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

Range(Target.Address)

à remplacer par :

Code :

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

Target

[lorie1746]

Merci pour votre réponse.
J'ai fait les modifications que vous proposez mais maintenant le message s'affiche même si le résultat en C n'est pas modifié.

[pijaku]

Dans ce cas, j'utiliserai deux événements et 1 variable de portée module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Dim Valeur
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
    Set KeyCells = Range("A1:B10")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        If Range("C" & Target.Row).Value <> Valeur Then
            MsgBox "modif"
        Else
            Valeur = Range("C" & Target.Row).Value
        End If
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Range("A1:B10"), Range(Target.Address)) Is Nothing Then
        Valeur = Range("C" & Target.Row).Value
    End If
End Sub

[lorie1746]

Merci beaucoup à tous les deux.
Je viens d'appliquer le code de Franck à mon fichier et cela semble fonctionner !

[Menhir]

Excel n'a pas de mémoire.

Faire ce que tu décris est théoriquement possible mais ce serait très lourd.

Il faudrait qu'à chaque modification des cellules de A ou B, le résultat de toutes les cellules en C soit enregistré dans des un vecteur de variables Public et qu'à chaque modification de A ou B, les résultats actuels dans C soient comparés aux valeurs de ce vecteur Public qui serait remise à jour.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Base 1
Public CC(10) As String
Private Sub Worksheet_Activate()
   Dim Rg As Range
   For Each Rg In Cells("C1:C10")
      CC(Rg.Row) = Rg.Text
   Next Rg
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
   If Application.Intersect(KeyCells, Range("A1:B10")) Is Nothing Then Exit Sub
   If  CC(Target.Row) <> Cells(Target.Row, "C").Text Then MsgBox "modif"
   CC(Target.Row) = Cells(Target.Row, "C").Text
End Sub