Problème mathématique

[MJ13]

Bonjour à tous

Les maths, c'est pas mon fort 😱.

Je dois faire des sortes de graphiques, mais avec un intervalle défini (ex:12-200) et je dois placer des traits à 40 et 75 (voir fichier joins). En plus je viens de voir que mes valeurs sont fausses (j'vous le dit que je suis nul), l'orange dois être plus petit puisque je m'étais basé sur 100 mais il faut prendre sur 200.

Mais j'ai un problème de formules 😕. Le but est de trouver les formules en rouges "Calcul du nombre de cellules....".

Merci, si les mathématiciens du forum sont présents 🙂.

 

[pierrejean]

Re : Problème mathématique

Bonjour Mj13

En attendant confirmation par de vrais mathemeticiens

 

[suistrop]

Re : Problème mathématique

Salut,

J'ai pas tout bien compris, une petite piste :
Entre 12 et 200 il y a 188 cellules.
Tu peux donc te ramener à aller de 0(12) à 188(200).
Ici tu veux placer 40 si ca allait de 0 à 100 ca serait simple tu mettrait à 40.
Mais la c est de 0 à 188 il faut donc augmenter 40 de 188/100 = 1.88 donc 40 devient 75.2
Donc sur l echelle de 1 à 188 le 40 se place à 75.2.
Et sur l echelle de 12 à 200, le 40 se place à 75.2 + 12.

Voila j espere avoir été clair.

Suistrop

 

[MJ13]

Re : Problème mathématique

Bonjour Pierrejean, Suistrop

Pierrejean: Merci beaucoup pour ton fichier qui a l'air pas mal. Il faut que je teste sur mes vrais valeurs, on voit que tu as l'âme d'un mathématicien 😱.

Je te tiens au courant.


Suitrop: Merci, Je vais voir ton raisonnement 😕

Bonne jouirnée 🙂.

 

[suistrop]

Re : Problème mathématique

PierreJean,

J'ai utilisé un rapport inverse au tient à savoir 188/100 alors que toi tu as utilisé 100/188...
Le mien me semble bon, qu'en penses tu ?

Suistrop.

 

[pierrejean]

Re : Problème mathématique

Re

Tu m'as fait reflechir et j'en suis la

100 colonnes valent 200-12 unités
1 colonne vaut (200-12)/100 unités
D'ou 1 unité vaut 100/(200-12) colonnes
pour aller du debut (12) a 40 il y a (40-12) unités qui valent (40-12)* (100/(200-12))colonnes

D'ou le fichier corrigé joint

 

[Victor21]

Re : Problème mathématique

Bonjour, mj13.

Ce qui se conçoit bien s'énonce clairement, et les mots...
🙂

Pas sûr d'avoir compris, mais voyez cet essai, et dites-nous.

Cordialement,

 

[pierrejean]

Re : Problème mathématique

Re

Voui Victor mais !!

Notre ami Mj13 nous dit avoir 100 colonnes et non 188
Je crois qu'il concevait bien l'énoncé du probléme
Il nous reste a bien concevoir la solution

 

[MJ13]

Re : Problème mathématique

Re, Bonjour Victor

PierreJean: dans ta deuxième version, J'ai l'impression qu'on tient le bon bout. Merci beaucoup 🙂

Victor: Merci pour ta collaboration. Mais la je vais voir cela lus tard car je vais déjà tester avec la solution de PierreJean qui se rapproche plus de ce que je veux faire par rapport à mes données. Puis d'ici peu j'étudierai ta MEFC qu m'a l'air intéressante 😱.

Je vous tiendrais au courant mais pas ce soir 🙁.

Bonne soirée 🙂

 

[mécano41]

Re : Problème mathématique

Bonjour à tous,

Un début de solution (en VBA) ... si tu n'as pas l'obligation d'utiliser des colonnes ...

Cordialement

 

[pierrejean]

Re : Problème mathématique

Re

Salut mécano 🙂

Il me parait y avoir un probleme de debut de graduation
teste avec mini curseur=13 et maxi curseur =14

 

[mécano41]

Re : Problème mathématique

Re

Salut mécano 🙂

Il me parait y avoir un probleme de debut de graduation
teste avec mini curseur=13 et maxi curseur =14

Cela donne l'image jointe... Ce n'est pas bon?

EDIT : peut-être faut-il que le mini soit à 1 du début et non à 13 .... je vais modifier

Cordialement

 

[pierrejean]

Re : Problème mathématique

Re

OK mécano c'est bien comme cela que je le vois

J'etais tombé dans le même panneau a ma premiere intervention

 

[mécano41]

Re : Problème mathématique

Là, cela devrait aller...

Option Explicit


Sub Worksheet_Change(ByVal Cible As Range)
If Not Intersect(Cible, Union(Range("Mini"), Range("Maxi"), Range("MinCur"), Range("MaxCur"))) Is Nothing Then
    TextBox1.Height = 21.75
    TextBox1.Left = 250
    TextBox1.Width = (Range("Maxi").Value - Range("Mini").Value) * 3
    TextBox1.BorderStyle = fmBorderStyleSingle
    TextBox1.BackColor = RGB(120, 180, 64)
    
    TextBox2.Height = 21.75
    TextBox2.Left = TextBox1.Left + (Range("MinCur") - Range("Mini").Value) * 3
    TextBox2.Width = (Range("MaxCur").Value - Range("MinCur").Value) * 3
    TextBox2.BorderStyle = fmBorderStyleSingle
    TextBox2.BackColor = RGB(255, 200, 64)
End If
End Sub

Cordialement

 

[MJ13]

Re : Problème mathématique

Re à tous, Bonjour Mécano.

Mécano: Merci pour cette vesion VBA, cela me paraît pas mal comme concept 🙄.

Je testerai demain 😱.

Bonne soirée à tous 🙂