Déclencher macro selon valeur cellule

[Christophe]

Bonjour à tous,

J'ai un petit pb avec une macro qui se déclenche selon la valeur d'une cellule.
Par exemple, elle ne s'active que si A1 = 1.
Cela marche marche parfaitement sauf si A1 est liée à une autre cellule d'un autre onglet. Quand la valeur de la cellule d'origine change, rien ne se passe.
J'ai bêtement essayé F9 ... mais la réponse est dans la phrase.

Qqun aurait-il une formule magique à ajouter à la macro ?

Par avance merci. Bon app'.

Christophe

 

[excalibur]

bonjour christophe , le forum si j ai bien compris essai ce code Sub test()
If [b1].Value = 10 And Feuil2.[b1].Value = 10 Then UserForm1.Show
End Sub'salutations

 

[2passage]

Bonjour,

je pense que c'est la façon dont tu compares la cellule A1, le problème . Selon que tu fais range('A1') = x, range('A1').text ou range('A1').value (ou meme formula, contents, interior etc...)
Vérifie que tu utilises bien .value

A+

 

[Christophe]

Merci Excalibur et 2passage de vos réponses.

J'ai bien essayé de mettre en oeuvre ce que vous dites. Mais point de résultat !!!! Je dois être encore engourdi par trop de sommeil.

Je dépose donc un fichier d'exemple afin que vous puissiez me sortir de là !!!

1.000 mercis.

Christophe

[file name=valeur_cell.zip size=6084]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/valeur_cell.zip[/file]

 

[2passage]

Bonjour,

Ton problème est que tu ne cibles pas le bon evénement : tu as besoin que le recalcul se fasse meme si on change sur Sheet1.. donc ca ne peut pas etre un event de Sheet2. Place ton code dans le module de classe ThisWorkbook sur l'event Workbook_SheetSelectionChange et ça marche

A+

Edit : il faut bien sur modifier un peu le code pour cibler la bonne feuille :
If Sheet2.Range('B4').Value > 0 Then Sheet2.Range('d4') = 'c'est supérieur à zéro' Else Sheet2.Range('d4') = 'c'est zéro'

Message édité par: 2passage, à: 17/08/2005 16:34

 

[excalibur]

rebonjour Christophe 2passage le forum en clair dans sheet1 tu modifie la cellule b5 qui elle meme liee avec sheet2 b4 si b4 change alors code !!! enfin si sait cela salutations te renvoie un zip [file name=valeurcell1.zip size=9554]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/valeurcell1.zip[/file]

 

[Christophe]

Merci excalibur, 2 passage pour vos réponses.

J'ai modifié selon les conseils de 2passage et ...ça marche !
Je pense même avoir compris pourquoi cela ne marchait pas avant !!! C'est dire si vous êtes forts les gars.

A toutes fins utiles, je joins le fichier modifié si cela peut-être utile à d'autres novices comme moi.

Merci en tout cas pour votre patience.

A bientôt ... sans aucun doute !!!!

Bonne fin de journée.


Christophe
[file name=valeur_cell_20050817171034.zip size=6410]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/valeur_cell_20050817171034.zip[/file]