Discussion :

[billard-man]

Bonjours,
dans la feuille ("feuil2")cellule ("A1") j'ai une formule "='feuil1'!A1.
lorsque je modifie le contenu de la cellule "A1" sur la feuille ("feuil1") et que je sélectionne la feuille ("feuil2"), je souhaiterais exécuter une macro ("macro1()") seulement si la valeur n'est pas la même que précédement.

Pour que le calcul ne se réalise que lorsque je selectionne la feuille ("feuil2") j'ai entré les instructions dans le "workbook":

Code :

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

1
2
3
4
5
6
7
8
O
ption Explicit
 Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 Sh.EnableCalculation = True
 End Sub
 Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 Sh.EnableCalculation = False
 End Sub

quel est le code a mettre dans le "worksheet" de la feuille ("feuil2") pour qu'il prenne en compte le changement de valeur de la cellule "A1" de la feuille ("feuil2")
J'ai essayer le code :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Call Macro1
End If

mais il faut que je rentre manuellement une autre valeur dans la cellule "A1" de le feuille ("feuil2") pour que cela fonctionne.

Merci d'avance

[Theze]

Bonjour,

...seulement si la valeur n'est pas la même que précédement

Au moment où tu change ta valeur dans A1 de la feuille "Feuil1", tu sais pertinemment que la valeur en A1 de la feuille "Feuil2" va changer ! Non ?

Alors, mettre la procédure évènementielle "Change" dans la feuille "Feuil1" !

Hervé.

[billard-man]

Bonjours,
Je voulais simplifier la problématique.
dans une feuille (resultats) j'ai 25 cellules (non contigues) qui contiennent chacune une formule.
ces formules donnent un resultat ("",0,1 ou 3) en fonction de 3 cellules differentes chacunes dans 3 autres feuilles differentes (data1, data2, data3), ce qui donne 25 cellules sur la feuille (data1), 25 cellules sur la feuile (data2) et 25 cellules sur la feuille (data3) .
J'ai deja fais un progrmme fonctionnel mais lourd et peu modulable.
Sachant que les 25 cellules de la feuille (resultats) au lancement du fichier on la valeur "" et que au cours de la journee la valeur ne peut changer que une fois (passer de "" a 0 ou a 1 ou a 2),
je souhaitait dès que je selectionnait la feuille (résultat) detecter ce changement de valeur dans ces 25 cellules et executer une macro.

d'ou mon interet de choisir une procedure evenementielle "change", mais a priori cela marche si le contenu change mais ne detecte pas un changement de valeur dans le cas d'une formule.