mise en boite

adele · 2 Décembre 2005

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 · 2 Décembre 2005

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 · 2 Décembre 2005

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

Jacques25 · 2 Décembre 2005

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é · 2 Décembre 2005

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 · 2 Décembre 2005

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é · 2 Décembre 2005

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 · 3 Décembre 2005

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

mise en boite

adele

Guest

Jacques25

XLDnaute Occasionnel

arno

Guest

Jacques25

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

adele

Guest

Hervé

XLDnaute Barbatruc

Charly2

Nous a quittés en 2006

Discussions similaires