Pb d'évnement!!

[kettou]

Bonjour à tous,
Voila j'ai créer une macro récément qui positionne un shapes (une fléche) lorsque la valeur de la cellule change, ceci marche à merveille (et je suis trés content car ca m'as pris la tête ) , mon souci actuellement c'est que je dois rentrer manuellement la valeur dans la cellule à chaque repositionnement de la fléche,comme la cellule contient une formule( basique somme) et la valeur change en fonction d autres cellules , je voudrai que cette étape se fasse automatiquement à chaque changement de valeur (sans que je la fasse rentrer par moi meme)
voici mon code :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("BE36:BE38,BE11:BE13")) Is Nothing Then


'Vérification des valeurs saisies (ie respect de l'intervalle min-max)
If Target < Range("BE37") Then
MsgBox "Valeur inférieure à la valeur minimale", vbOKOnly + vbCritical
If Target.Address <> "$BE$36" Then Target = Range("BE37")
Exit Sub
End If
If Target > Range("BE36") Then
MsgBox "Valeur supérieure à la valeur maximale", vbOKOnly + vbCritical
If Target.Address <> "$BE$37" Then Target = Range("BE36")
Exit Sub
End If
If Range("BE36") = Range("BE37") Then Exit Sub


' Affichage des valeurs intermédiaires pour l'échelle de la jauge
With ActiveSheet
.Shapes("Ech1").TextFrame.Characters.Text = Range("BE37")
.Shapes("Ech2").TextFrame.Characters.Text = Range("BE37") + (Range("BE36") - Range("BE37")) / 4
.Shapes("Ech3").TextFrame.Characters.Text = Range("BE37") + (Range("BE36") - Range("BE37")) / 2
.Shapes("Ech4").TextFrame.Characters.Text = Range("BE37") + 3 * (Range("BE36") - Range("BE37")) / 4
.Shapes("Ech5").TextFrame.Characters.Text = Range("BE36")
End With



PositionFlèches

End If
End Sub


Merci d'avance pour vos réponses et votre attention
Cdt

 

[kettou]

Re : Pb d'évnement!!

Est ce que ma problématique est assez claire ?
je reste à votre disposition.
Cdt

 

[tototiti2008]

Re : Pb d'évnement!!

Bonjour kettou,

aurais-tu un bout de fichier exemple, sans données confidentielles à nous fournir, pour y voir plus clair ?

 

[kettou]

Re : Pb d'évnement!!

Bonjour,
je vous ai mis en piéce jointe seulement la forme pour avoir une idée dites moi si ca vous suffit?
le pb est assez simple je pense, g besoin juste d'une idée ou d'un bout de code pour que lorsque la valeur de la cellule se change la réglette change de position (actuellement je dois entrer moi meme la valeur pour que la réglette change de position)
en espérant etre assez clair merci d'avance de vos réponse
CdtRegarde la pièce jointe test.zip

 

[tototiti2008]

Re : Pb d'évnement!!

Re,

Désolé, je ne peux pas ouvrir les zip...
Sinon, simplement une piste :

Lorsque tu changes une valeur manuellement, ça exécute l'évènement Change
Lorsqu'une formule modifie la valeur, ça n'exécute pas Change mais Calculate

 

[kettou]

Re : Pb d'évnement!!

ca ne marche pas ca beugg message d'erreur la déclaration de la procédure ne correspond pas à la description de l'evenement
Cdt

 

[kettou]

Re : Pb d'évnement!!

Re,
Est ce que quelqu'un aurai une idée
Merci

 

[tototiti2008]

Re : Pb d'évnement!!

Re,

l'évènement Calculate ne s'écrit pas exactement comme Change...

à quoi sert la partie

'Vérification des valeurs saisies (ie respect de l'intervalle min-max)

si tu ne saisis plus tes valeurs mais que tu les calcules ?

 

[kettou]

Re : Pb d'évnement!!

Mercfi bcp toto t avait raison ca marche impec
a la prochaine ;-)
Cdt