Simplification de fonction

Re : Simplification de fonction

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

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+

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