Simplification de fonction

[astralon]

Bonjour,

Est-ce qu'il y a moyen d'employer une fonction simple....
J'ai un chiffre (multiple de 4) qui doit être diviser / 16 =>
si le nombre est entier, ex: 64/16 = 4 => j'ai 4 cahiers de 16 pages
si le nombre n'est pas entier ex: 72/16 = 4,5 =>j'ai 4 cahiers de 16 pages et 1 de 8 pages
si le nombre n'est pas entier ex: 76/16= 4.75 => j'ai 4 cahiers de 16 pages, 1 de 8 pages et 1 de 4 pages.
si le nombre n'est pas entier ex: 68/16= 4.25 => j'ai 4 cahiers de 16 pages et 1 de 4 pages.

j'espère que c'est clair

 

[kiki29]

Re : Simplification de fonction

Il faut jouer avec les fonctions MOD et ENT ( voir aide en ligne )

 

[Eric 45]

Re : Simplification de fonction

Bonjour à tous
Bonjour astralon et kiki

En VBA :

*****
Sub nombredepages()
Dim livre As Integer
Dim nbcahier As Integer
Dim nbpages As Single

livre = Range("a1").Value
If livre > 15 Then
nbcahier = Int(livre / 16)
nbpages = livre Mod 16
Select Case nbpages
Case 0
Range("a2").Value = "J'ai " & nbcahier & " cahiers de 16 pages"
Case 12
Range("a2").Value = "J'ai " & nbcahier & " cahiers de 16 pages,1 de 8 pages et 1 de 4 pages"
Case 8
Range("a2").Value = "J'ai " & nbcahier & " cahiers de 16 pages et 1 de 8 pages"
Case 4
Range("a2").Value = "J'ai " & nbcahier & " cahiers de 16 pages et 1 de 4 pages"
End Select
End If

End Sub
*****

A+

 

[mjo]

Re : Simplification de fonction

Bonsoir,

Voici les trois formules pour un nombre de pages en A1 :

Nbre de cahiers de 16 pages :
=ENT(A1/16)

Nombre de cahiers de 8 pages :
=ENT(MOD(A1;16)/8)

Nombre de cahiers de 4 pages :
=ENT(MOD(A1;8)/4)

Je suppose que tu ne désires pas écrire le résultat dans une phrase.
Si néanmoins c'est le cas, il n'y a pas grand problème à le faire.

mjo