Problème Worksheet_Calculate et Worksheet_SelectionChange

Bonjour à tous,

je ne suis pas très doué en VBA et nécessite votre aide.
Voilà, pour faire court j'ai devant moi un fichier qui se met à jour en temps réel et j'aimerais mettre en place plusieurs macro:

J'aimerais comparer les cellules D208 qui est ma Cible et N208. Si la valeur abs(N208-D208)>1 alors Cible prend la valeur de N208. Maintenant je compare N208 avec la nouvelle valeur de cible et si abs(N208-cible)>1 j'ai un msgbox qui me dit de recalculer mon prix. Une fois le message afficher, si je ne clique pas sur K208, inutile de relancer calculate et de bloquer excel indéfiniment

Ce qui donne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub worksheet_calculate() Verif end sub     sub worksheet_selectionchange(ByVal Target As Range) If Not Application.Intersect(Target, Range("K208")) Is Nothing Then application.enableevents=false end if Verif end sub   Sub Verif() dim cible as double cible =range("D208").value if abs(range("N208").value - cible)>1 then cible = range("N208").value if abs("N208").value-cible)>1 then msgbox "revoir prix" application.enableevents=true end if end if end sub

---

Il ne se passe rien avec mon code.
merci de votre aide

Bonjour,

Je pense que tu dois revoir ton code dans "Vérif". J'ai mis des commentaires :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Sub worksheet_calculate()   Verif   End Sub     Sub worksheet_selectionchange(ByVal Target As Range)   If Target.Address(0, 0) = "K208" Then   Application.EnableEvents = False   End If   Verif   End Sub   Sub Verif()   Dim cible As Double   cible = Range("D208").Value   'si une différence supérieure à 1 existe If Abs(Range("N208").Value - cible) > 1 Then   'affecte la valeur de N208 à la variable cible cible = Range("N208").Value   'ici, c'est forcemment égal à 0 puisque la ligne au dessus dit au compilateur "cible = Range("N208").Value" 'donc Range("N208").Value - Range("N208").Value = 0 ce qui fait que les lignes dans le bloc If ne seront jamais 'exécutées If Abs(Range("N208").Value - cible) > 1 Then   MsgBox "revoir prix"   Application.EnableEvents = True   End If   End If   End Sub

---

Hervé.