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

Re

A partir de l'excellente idée de mécano 🙂 une version avec les 100 colonnes
Naturellement la definition est moindre puisqu'il y a arrondi du resultat

 

[MJ13]

Re : Problème mathématique

Re à tous

PiereJean: merci pour cette solution. maintenant, on a le choix 🙂.


Sinon je suis parti par rapport à mes données à cette solution (voir fichier joins) 😱:

Encore merci et bonne journée 🙂.

 

[MJ13]

Re : Problème mathématique

Re

Et la macro qui va avec le fichier du post #17:

Sub Colorie_Espace_Etendue()
'Stop
'Mj
For i = 5 To Range("D65536").End(xlUp).Row Step 6
'Stop
Cells(i, 4).Select
    deb = Int(ActiveCell.Offset(-1, -1).Value)
    fin = Int(ActiveCell.Offset(0, -1).Value)
        Set refdeb = Cells(ActiveCell.Row, 4 + deb + 1)
        Set reffin = Cells(ActiveCell.Row, 4 + fin)
    Coulplage = Cells(ActiveCell.Row, 45).Interior.Color
With Range(refdeb, reffin)
    .Interior.Color = Coulplage
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlEdgeRight).Weight = xlMedium
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeLeft).Weight = xlMedium
End With
Next
End Sub
Sub Copie_Feuille_Et_Supprime_Lignes_Inutiles()
'stop
'Mj
   ActiveSheet.Copy After:=Sheets(1)
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Columns("A:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("AM:AQ").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    For i = [A65536].End(xlUp).Row To 1 Step -1
        If Cells(i, 255).End(xlToLeft).Column = 1 Then Rows(i).Delete Shift:=xlUp
    Next
    ActiveWindow.DisplayGridlines = False
End Sub

Bon Week 🙂

 

[ROGER2327]

Re : Problème mathématique

Bonjour à tous

Partant du principe que plus on est de fous, plus on rit, j'y vais de ma version...​

ROGER2327
#4934

Mardi 10 Gueules 138 (Saint Préservatif, bedeau, SQ)
16 Pluviôse An CCXIX
2011-W05-5T15:21:27Z

 

[MJ13]

Re : Problème mathématique

Bonjour Roger

Merci beaucoup pour ta participation (on n'attendait plus que toi 😱).

C'est super, si tu le permets, encore une nouvelle vision d'un mathématicien émérite 😉.

Bonne soirée et bon Wek-end 🙂.

 

[Fo_rum]

Re : Problème mathématique

Salut

avec une autre interprétation donc une autre vision du jeu (sans tous les garde-fous).

MJ13, tu n'as pas mis résolu mais je me serais quand même immiscé car je me suis bien "amusé".

 

[MJ13]

Re : Problème mathématique

Re, Bonjour Fo_rum

Merci pour ta participation, comme dit Roger, "plus on est de fous des maths, plus on rit" 😉

C'est pas mal avec des shapes 🙄.

Bravo, belle démonstration. Comme quoi avec Excel, on a que l'embarras du choix 😱.

Donc le sujet n'est pas clos 😀.

Bonne soirée 🙂.