Separation de nombre

11 réponses

Andre

30/09/2004 à 19:13

Hello,

J'essaye de faire un petit quelque chose, mais je n'y arrive pas...

Dans la case A1 j'inscrit un chiffre "Example : 40"

Dans les case B1 a B18 je doit separer le 40 par tranche de 7.5..

Donc B1 serait 7.5, B2 7.5, B3 7.5, B4 7.5, B5 7.5, B6 2.5 pour un total
de 40, B7 a B18 serait a zero, ou vide.

Quelqu'un aurait une idée comment faire ?

Merci.

10 réponses

1 2

Joel

30/09/2004 à 19:38

Bonsoir,

Formule à saisir en B1 et recopier jusque B18 :

=MAX(0;MIN(7,5;$A$1;40-7,5*ENT(CELLULE("ligne";A1))))

Cela va-t-il ?

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Andre" a écrit dans le message de news:
O1f%

Hello,

J'essaye de faire un petit quelque chose, mais je n'y arrive pas...

Dans la case A1 j'inscrit un chiffre "Example : 40"

Dans les case B1 a B18 je doit separer le 40 par tranche de 7.5..

Donc B1 serait 7.5, B2 7.5, B3 7.5, B4 7.5, B5 7.5, B6 2.5 pour un
total
de 40, B7 a B18 serait a zero, ou vide.

Quelqu'un aurait une idée comment faire ?

Merci.

30/09/2004 à 19:41

Dans le module de la feuille et pour saisie en A1 :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
On Error Resume Next
[B:B] = ""
laVar = 7.5
x = Evaluate("mod(A1," & laVar & ")")
If x <> 0 Then
For i = 1 To Int(zz / laVar)
Cells(i, "B") = laVar
Next
End If
Cells(i, "B") = x
End Sub

AV

Joel

30/09/2004 à 19:48

Re ;-)

En fait, la formule exacte est :

=MAX(0;MIN(7,5;$A$1;$A$1-7,5*ENT(CELLULE("ligne";A1))))

mais tout le monde avait corrigé !

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Joel" a écrit dans le message de news:
415c4495$0$2030$

Bonsoir,

Formule à saisir en B1 et recopier jusque B18 :

=MAX(0;MIN(7,5;$A$1;40-7,5*ENT(CELLULE("ligne";A1))))

Cela va-t-il ?

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Andre" a écrit dans le message de news:
O1f%
Hello,

J'essaye de faire un petit quelque chose, mais je n'y arrive pas...

Dans la case A1 j'inscrit un chiffre "Example : 40"

Dans les case B1 a B18 je doit separer le 40 par tranche de 7.5..

Donc B1 serait 7.5, B2 7.5, B3 7.5, B4 7.5, B5 7.5, B6 2.5 pour un
total
de 40, B7 a B18 serait a zero, ou vide.

Quelqu'un aurait une idée comment faire ?

Merci.

30/09/2004 à 20:02

Les 2 lignes
"If x <> 0 Then"
et
"End If"
Sont facultatives (à toi de voir ...)

AV

Andre

30/09/2004 à 20:14

Le seul probleme que j'ai c'est que mon Excel est en Anglais.. ;o))

Je recoit donc l'erreur : "Invalid Name Error"

J'ai essayer de remplacer CELLULE par CELL et ligne par line... mais ca ne
change rien...

Merci.

"Joel" a écrit dans le message de
news:415c46f4$0$887$

Re ;-)

En fait, la formule exacte est :

=MAX(0;MIN(7,5;$A$1;$A$1-7,5*ENT(CELLULE("ligne";A1))))

mais tout le monde avait corrigé !

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Joel" a écrit dans le message de news:
415c4495$0$2030$
Bonsoir,

Formule à saisir en B1 et recopier jusque B18 :

=MAX(0;MIN(7,5;$A$1;40-7,5*ENT(CELLULE("ligne";A1))))

Cela va-t-il ?

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Andre" a écrit dans le message de news:
O1f%
Hello,

J'essaye de faire un petit quelque chose, mais je n'y arrive pas...

Dans la case A1 j'inscrit un chiffre "Example : 40"

Dans les case B1 a B18 je doit separer le 40 par tranche de 7.5..

Donc B1 serait 7.5, B2 7.5, B3 7.5, B4 7.5, B5 7.5, B6 2.5 pour un
total
de 40, B7 a B18 serait a zero, ou vide.

Quelqu'un aurait une idée comment faire ?

Merci.

Joel

30/09/2004 à 20:20

Re ;-)

Recherche le fichier VBALIST.XLS dans le dossier d'installaion d'excel, e tu
auras las traduction Français/Anglais et inversement...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Andre" a écrit dans le message de news:

Le seul probleme que j'ai c'est que mon Excel est en Anglais.. ;o))

Je recoit donc l'erreur : "Invalid Name Error"

J'ai essayer de remplacer CELLULE par CELL et ligne par line... mais ca ne
change rien...

Merci.

"Joel" a écrit dans le message de
news:415c46f4$0$887$
Re ;-)

En fait, la formule exacte est :

=MAX(0;MIN(7,5;$A$1;$A$1-7,5*ENT(CELLULE("ligne";A1))))

mais tout le monde avait corrigé !

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Joel" a écrit dans le message de news:
415c4495$0$2030$
Bonsoir,

Formule à saisir en B1 et recopier jusque B18 :

=MAX(0;MIN(7,5;$A$1;40-7,5*ENT(CELLULE("ligne";A1))))

Cela va-t-il ?

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Andre" a écrit dans le message de news:
O1f%
Hello,

J'essaye de faire un petit quelque chose, mais je n'y arrive pas...

Dans la case A1 j'inscrit un chiffre "Example : 40"

Dans les case B1 a B18 je doit separer le 40 par tranche de 7.5..

Donc B1 serait 7.5, B2 7.5, B3 7.5, B4 7.5, B5 7.5, B6 2.5 pour un
total
de 40, B7 a B18 serait a zero, ou vide.

Quelqu'un aurait une idée comment faire ?

Merci.

Andre

30/09/2004 à 20:22

ooh.. parfait... je vais fouiller..

Merci.

"Joel" a écrit dans le message de
news:415c4e5e$0$1444$

Re ;-)

Recherche le fichier VBALIST.XLS dans le dossier d'installaion d'excel, e
tu

auras las traduction Français/Anglais et inversement...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Andre" a écrit dans le message de news:

Le seul probleme que j'ai c'est que mon Excel est en Anglais.. ;o))

Je recoit donc l'erreur : "Invalid Name Error"

J'ai essayer de remplacer CELLULE par CELL et ligne par line... mais ca
ne

change rien...

Merci.

"Joel" a écrit dans le message de
news:415c46f4$0$887$
Re ;-)

En fait, la formule exacte est :

=MAX(0;MIN(7,5;$A$1;$A$1-7,5*ENT(CELLULE("ligne";A1))))

mais tout le monde avait corrigé !

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Joel" a écrit dans le message de news:
415c4495$0$2030$
Bonsoir,

Formule à saisir en B1 et recopier jusque B18 :

=MAX(0;MIN(7,5;$A$1;40-7,5*ENT(CELLULE("ligne";A1))))

Cela va-t-il ?

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Andre" a écrit dans le message de
news:

O1f%
Hello,

J'essaye de faire un petit quelque chose, mais je n'y arrive
pas...

Dans la case A1 j'inscrit un chiffre "Example : 40"

Dans les case B1 a B18 je doit separer le 40 par tranche de 7.5..

Donc B1 serait 7.5, B2 7.5, B3 7.5, B4 7.5, B5 7.5, B6 2.5 pour
un

total
de 40, B7 a B18 serait a zero, ou vide.

Quelqu'un aurait une idée comment faire ?

Merci.

JpPradier

30/09/2004 à 20:31

Bonjour Andre

Sans garantie : Remplace plutot Ligne par "Row".

j-p

01/10/2004 à 07:57

En fait, la formule exacte est :
=MAX(0;MIN(7,5;$A$1;$A$1-7,5*ENT(CELLULE("ligne";A1))))
mais tout le monde avait corrigé !

Ne serait-ce pas plutôt :
=MAX(0;MIN(7.5;$A$1;$A$1-7.5*ENT(CELLULE("ligne";A1)-1)))

AV

01/10/2004 à 07:58

Si ma suggestion ne te plait pas , t'es pas obligé de ne pas le dire ;-)

AV

1 2

Separation de nombre

10 réponses

Veuillez sélectionner un problème