mise en boite

[adele]

je souhaite créer une procédure qui demande le nombre d'oeufs et qui donne le nombre de boite de 12 oeufs complètes que l'on peut faire. Cette procédure ne doit pas utiliser de division.

merci de m'aider c'est une grande aide.

 

[Jacques25]

Salut Adele,

Essaye la fonction suivante, je ne sais si elle est dispo sur toutes les versions d'excel moi je suis sous office 2003.
=QUOTIENT(B2;12)
En B2 tu mets ton nombre d'oeufs.

J'espère que ça répond à ta question.

@ plus

Jacques

 

[arno]

sa ne marche pas et je souhaite réaliser cela a partir des fonctions sub().

 

[Jacques25]

Je suis désolé pour toi, un peu d'amabilité n'aurai pas fais de mal, un boujour par exemple ou encore un merci même si ça ne marche pas chez toi.
Pour ce qui est de la traduction en VBA je ne m'y connais encore pas de trop, mais peut être que d'autre pourrons t'aider.

Bon courage

Jacques

 

[Hervé]

Bonsoir arno, salut jacques

une proposition VBA, mais j'utilise une division, c'est interdit ?

Sub Bouton1_QuandClic()
Dim nombre As Integer
Dim reste

nombre = Application.InputBox('Combien d'oeufs ?', Type:=1)
If nombre = 0 Then Exit Sub
reste = nombre Mod 12
If reste = 0 Then reste = 'Aucun reste'
MsgBox 'Nombre de boite : ' & Int(nombre / 12) & vbNewLine & 'Reste : ' & reste
End Sub

salut

 

[adele]

bonjour, et oui c interdit, c'est pour sa ke g du mal parce ke sinon pas de problème majeur mais le cout de ne pas utiliser de division doit faire intervenir une boucle DO WHILE ou du IF je pense mais je ne sais pas comment insérer cela.

 

[Hervé]

re arno/adele, jacques

Bon ben puisque les divisions sont interdites (tu parles d'un pays, on à meme plus le droit de faire une petite division de rien du tout )

Sub Bouton1_QuandClic()
Dim aladouzaine As Integer
Dim uneboitepourlapetitedame As Integer
Dim oeuf As Integer

aladouzaine = Application.InputBox('Combien d'oeufs, ma petite dame ?', Type:=1)
If aladouzaine = 0 Then Exit Sub
oeuf = 0
Do While oeuf + 11 < aladouzaine
        uneboitepourlapetitedame = uneboitepourlapetitedame + 1
        oeuf = oeuf + 12
Loop
MsgBox uneboitepourlapetitedame & ' boite(s).'
End Sub

salut

 

[Charly2]

Bonsoir Adele ou Arno (???), Jacques et Hervé

Allez, je vais singer un peu

Sub CompteBoites()
'
Dim aladouzaine As Integer
Dim uneboitepourlapetitedame As Integer
'
  aladouzaine = Application.InputBox('Combien d'oeufs, ma petite dame ?', Type:=1)
  '
  uneboitepourlapetitedame=0
  Do Until aladouzaine < 12
    uneboitepourlapetitedame = uneboitepourlapetitedame + 1
    aladouzaine = aladouzaine - 12
  Loop
  MsgBox uneboitepourlapetitedame & ' boite(s).'
End Sub

Voilà, pour le même prix à la douzaine, il y a un 'Do While' et un 'Do Until' :woohoo:

Amitiés
Charly