Macro qui donne la valeur la plus proche d'une autre cellule

Bonjour à tous, le forum,

Je souhaiterai que la cellule 'B14' de la feuille 1 soit d'une valeure qui sera la plus proche de la cellule 'D3' tout en conservant les calculs.

Cela permet à un joueur de connaître ses points en temps réel.

Pour cet exemple la valeur la plus proche sans la dépasser est 1664.

Merci beaucoup à tous et bonne journée.

Bonjour,

Il n'y a pas de calcul en B14...

Ou bien faut-il en faire un, mais par rapport à quelles autres valeurs ?

Et pourquoi 1664 ?

Bonjour V_Elbie, le forum,

Il faudrait que la macro essaye plein de chiffre afin de se rapprocher au maximum de la valeur noté en D3 sans la dépassée. C'est assez dur a expliqué.

Dans cete exemple, la valeur a trouvé est 1664, car avec 1665 cela dépasse la valeur de D3. Le résultats 1664 est un pur hasard, aucun rapport avec la bière.

Merci beaucoup, à te lire.

Bonjour,

Je n'ai pas pris le temps de regarder ton classeur (et je ne l'aurai pas ->départ congés !), mais pourquoi ne pas appliquer une formule du style :

=ARRONDI.INF(D3;0)-1

A +

Désolée, il y a vraiment un truc qui m'échappe dans ton fichier.

En B14, il y a 1545 et en D3, il y a 1570. Pour moi, la valeur à afficher si on veut se rapprocher de D3 sans l'atteindre, c'est 1969, alors pourquoi faut-il trouver 1564 et pourquoi avec 1565 on dépasse ???

Je suis très perplexe !

re:

Merci Bélug, ça me fait u ndébut de réponse, j'ai vais cherché e nce sens.

V_Elbie, si tu mets 1969 en B14, D3 = 1926.6...non ?

Avec 1664 en B14; D3=1664.8 (pitch +0.8)

Avec 1665 en B14, D3 = 1664.5 (pitch -0.5)

Oui, désolée, j'avais pas vu les dépendants...

Pas facile ton truc, bon courage !

J'ai essayé ta méthode Bélug, je n'y arrive pas, je sèche...

Oui je sais V_Elbie, c'est assez compliqué, je bidouille comme je peux...

Bonjour

J'ai résolu le problème avec une Macro XL4 et un bouton associé, mais, comment t'envoyer le fichier.

Cordialement,

Amadéus

Salut les amis(ies) du Forum

Un petite macro automatique

Dans un module standard

Public Flag As Boolean

Dans le module de la feuille 1

Private Sub Worksheet_Calculate()

If Flag = True Then Exit Sub

Application.ScreenUpdating = False
Flag = True

If [B14] > [D3] Then
  While [B14] > [D3]
    [B14] = [B14] - 1
  Wend
Else
  While [B14] < [D3]
    [B14] = [B14] + 1
  Wend
[B14] = [B14] - 1
End If

Flag = False
Application.ScreenUpdating = True

End Sub

Mytå

Bravo !:)

Ils sont tous aussi forts au Québec ?

C'est kiven qui va être content...

Bonsoir à tous

Mytå, tu aurais pu répondre plus tôt, cela m'aurait évité une page XL4 dont je vous fait grâce (qui marche)

Cordialement,

Amadéus

re :

Merci Amadéus, fichier bine reçu et ça amrche à merveille, merci beaucoup de ton aide.

Merci à tous, je vais essayer vos méthodes aussi, pour apprendre.

je vais essayer de mettre résolu dans le titre...

A bientôt le forum, bonne soirée !!!

Re bonsoir le Forum

Mytå, tu aurais pu répondre plus tôt, cela m'aurait évité une page XL4 dont je vous fait grâce (qui marche)

Désolé Amadéus, obligation familliale

Mais tu as été choisi quand même

Merci Amadéus, fichier bien reçu et ça marche à merveille, merci beaucoup de ton aide.

Mytå

(L'homme d'outre-mer)