texbox divisible

Paritec

XLDnaute Barbatruc

• 28 Mars 2012

• #2

Re : texbox divisible

Bonsoir max le forum
a+
Papou😱

Code:

Private Sub TextBox1_Change()
    Dim x#, y#
    If TextBox1 = "" Then textbox2="":Exit Sub
    x = CDbl(TextBox1) / 4
    x = Int(x)
    y = CDbl(TextBox1) - x * 4
    TextBox2 = "Nombre assis " & x * 4 & " et " & y & " debout"
End Sub

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Mars 2012

• #3

Re : texbox divisible

Re Max le forum
tu voulais le nombre de table alors voilà
a+
papou😱

 

Pièces jointes

• Max V1.xlsm

  38.8 KB · Affichages: 34

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 28 Mars 2012

• #4

Re : texbox divisible

Bonsoir Papou

Presque nickel

Dans le Deuxième textbox je doit obtenir le nombre de table a quatre participant plus le nombre qui reste debout ex. 68 tables et 3 debout

Cliquez pour agrandir...

Je pense que c'est juste une erreur mais c'est bien le nombre de table que je recherche! sinon le reste nikel

Merci beaucoup et bonne soirée

 

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 28 Mars 2012

• #5

Re : texbox divisible

Re,

Les messages a du se croisser. NIckel je te remercie beaucoup et te souhaite une bonne soirée

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Mars 2012

• #6

Re : texbox divisible

Re Max le forum
Voilà pour les comptes rond une petite modif
a+
papou😱

 

Pièces jointes

• Max V2.xlsm

  39.1 KB · Affichages: 34

Vote positif 0 Vote négatif

A

apdf

XLDnaute Occasionnel

• 28 Mars 2012

• #7

Re : texbox divisible

Re Papou,

Nickel
merci beaucoup

bonne soirée

 

Vote positif 0 Vote négatif