La feuille effectue un calcul à partir de cette valeur
Approche = Range("C4")
Approche = Range("C4").Value
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionRange("A1") = Approche
'Recuperation du resultat du calcul
Resultat = Range("A2")
Sub Bouton2_QuandClic() 'valeur cible Cible = Range("B4").Value Approche = Range("B1").Value ' -> le resultat est directement calculé sur la feuille excel, avec une formule 'Recuperation du resultat du calcul Resultat = Range("B2").Value 'Determinattion de l'approche suivante If Resultat > Cible Then Approche = Approche - 1 If Resultat < Cible < 0 Then Approche = Approche + 1 Range("B1").Value = Approche End Sub
Le problème est que le résultat du calcul effectué par la formule sur la feuille excel n'a pas le temps de se mettre en jour, donc d'une boucle à l'autre on a le même résultat.
En réalité ce n'est pas exactement une formule mais un traitement effectué sur des données assez complexes (recherche dans des tables, calcul sur les valeurs de la table, recherche dans une autre table etc).
[quote]La nature de la formule est en fait secondaire; disons que A2 = 2xA1
J'ai choisi quoi ? j'avoue ne pas très bien te comprendre. Tu voudrais que je décrive tout le traitement ?
J'ai depuis très longtemps passé l'âge de jouer aux devinettes, comprends-tu ? (je ne sais même pas si tu comprendras cette question là !)
uniquement si VBA ne se sert pas du résultat de calculs faits (dans un autre fil) par Excel (ses formules)
- je lance la procédure VBA (avec un bouton)
- La procédure met une valeur dans une cellule de la feuille
- La feuille effectue un calcul à partir de cette valeur
- Je récupère le résultat du calcul par code
- En fonction d'une condition je spécifie la nouvelle valeur à prendre pour le calcul
j'augmente la valeur à traiter de 1, si il est trop haut je la diminue de 1.
répéter cette action plusieurs fois: Un clic sur ton bouton, et roule ma poule, la "valeur à traiter" s'affecte toute seule!
Do While Range("A2") = toto DoEvents Loop