Calcul

Bonsoir besoin de vos lumières pour un calcul

voici la formule pour le calcul

EXEMPLE POUR LE CALCUL

MUSIQUE = 040330

0=5

(5-5)+(5-4)+(5-5)+(5-4)+(5-3)+(5-5)=4

0+1+0+1+2+0=4

MUSIQUE = 6053

0=5

(5-5)+(5-5)+(5-5)+(5-3)=3

0+0+0+2=2

MUSIQUE = 416233

0=5

(5-4)+(5-1)+(5-5)+(5-2)+(5-3)+(5-3)=12

1+4+0+3+2+2=12

Nous allons utiliser ce tableaux

capture

nous voyons bien que le chiffre 16 en I10 Fait 8 points

car musique 0-0-1-1

le chiffre 10 en I11 fait 20 points car musique 0-1-1-1-1-1

et en M20 nous avons le chiffre 16 car en R10:R13 c'est le chiffre qui a le plus petit points

jespere etre assez clair

sinon posez moi vos question

Merci d'avance pour votre aide

si vous avez des question n’hésitez pas

merci d'avance pour votre aide

Salut IlienFrançois,

un changement de valeur en [K10:P13] démarre la macro.

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim tTab, tPMU
'
Application.EnableEvents = False
'
If Not Intersect(Target, Range("K10:P13")) Is Nothing Then
    tTab = Range("K10:P13").Value
    tPMU = Range("S10:S13").Value
    For x = 1 To UBound(tTab, 1)
        For y = 1 To UBound(tTab, 2)
            tPMU(x, 1) = CInt(tPMU(x, 1)) + (5 - IIf(CInt(tTab(x, y)) = 0 Or CInt(tTab(x, y)) > 5, 5, CInt(tTab(x, y))))
        Next
    Next
    Range("R10:R13").Value = tPMU
    Range("M20").Value = Range("I" & Range("R10:R13").Find(what:=WorksheetFunction.Min(Range("R10:R13")), LookIn:=xlValues, searchdirection:=xlNext).Row).Value
End If
'
Application.EnableEvents = True
'
End Sub

A+

41pmu-ilienfr.xlsm (23.26 Ko)

merci beaucoup

oupss petit soucis

en M20 il aurais du me mettre le chiffre 7 car ces celui qui a le plus petit chiffre

merci d'avance pour votre aide

42pmu-ilienfr.xlsm (17.92 Ko)

car le 7 n'a que 1 points

donc c'est bien celui qui a le moins de point

Rechercher des sujets similaires à "calcul"