pour les pros des formules excel

A

andré

Guest

• 9 Décembre 2004

• #2

Salut jp,

Je crois que je ne serai le seul à avoir difficile de comprendre !

Ne pourrais-tu pas mettre ton exemple en pièce jointe, avec le résultat que tu voudrais obtenir (avec des petites couleurs sur les cellules auxquelles tu te réfères) ?

Ândré.

 

Vote positif 0 Vote négatif

J

jp

Guest

• 9 Décembre 2004

• #3

voila andré de quoi mieux comprendre

Merci

 

Pièces jointes

• jp.zip

  2.1 KB · Affichages: 20
• jp.zip

  2.1 KB · Affichages: 19
• jp.zip

  2.1 KB · Affichages: 17

Vote positif 0 Vote négatif

J

jp

Guest

• 10 Décembre 2004

• #4

svp j'ai mis une piece jointe..
je pense pas que cela soit trop dur.

Merci

 

Vote positif 0 Vote négatif

J

jp

Guest

• 11 Décembre 2004

• #5

personne n'as d'idées?

 

Vote positif 0 Vote négatif

D

didier

Guest

• 11 Décembre 2004

• #6

Salut jp

Je ne peux pas déziper ta pièce jointe

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 11 Décembre 2004

• #7

Bonjour

C'est une archive créer avec WinRar.

@+Jean-Marie

 

Pièces jointes

• jpenzip.zip

  3.1 KB · Affichages: 16

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 11 Décembre 2004

• #8

Bonjour

Colle le code dans un module, puis mets cette formule dans la cellule B17
=SommedesLimits(A3:A15)

Voici le code
Public Function SommedesLimits(vPlgLimit As Range) As Long
Dim vCell As Range
Dim vMax As Long
Dim Val As Long
SommedesLimits = 0

For Each vCell In vPlgLimit
If vCell = "limit" Then
SommedesLimits = SommedesLimits + Val
vMax = vCell.Offset(0, 1)
Val = 0
Else
Val = IIf((vCell.Offset(0, 1) < vMax) And ((vCell.Offset(0, 1) > Val)), vCell.Offset(0, 1), Val)
End If
Next vCell

End Function

@+Jean-Marie

PS Didier, il y a une erreur dans le fichier à la cellule B8 il faut écrire Limit.

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 12 Décembre 2004

• #9

Bonjour

Dans le fichier ci-joint, la version VBA et une version en formules,. Je ne pense pas qu'une diminution des colonnes intermédiaires soit possible. Mais je continue...

Bon dimanche

@+Jean-Marie

 

Pièces jointes

• jp2.zip

  10 KB · Affichages: 17
• jp2.zip

  10 KB · Affichages: 16
• jp2.zip

  10 KB · Affichages: 15

Vote positif 0 Vote négatif

M

Monique

Guest

• 12 Décembre 2004

• #10

Bonjour,

Deux méthodes, dont une sans colonne intermédiaire.
Mais toujours pas le total des max en une seule formule.

 

Pièces jointes

• MaxJp.zip

  6.6 KB · Affichages: 20

Vote positif 0 Vote négatif

J

jp

Guest

• 12 Décembre 2004

• #11

Merci encore à monique et jean-Marie,
Je pense que je m'en sortirai mais je pensais que cela était possible en une seule fois tant pis.

Merci bon dimanche...

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 13 Décembre 2004

• #12

Bonjour

Ci-joint une modification du code pour gérer le cas où la fin du tableau ne se termine pas par un "Limit"
Voici le code
Public Function SommedesLimits(vPlgLimit As Range) As Long
Dim vCell As Range
Dim vMax As Long
Dim Val As Long
SommedesLimits = 0

For Each vCell In vPlgLimit
If vCell = "limit" Then
SommedesLimits = SommedesLimits + Val
vMax = vCell.Offset(0, 1)
Val = 0
Else
Val = IIf((vCell.Offset(0, 1) < vMax) And ((vCell.Offset(0, 1) > Val)), vCell.Offset(0, 1), Val)
End If
Next vCell
SommedesLimits = SommedesLimits + Val

End Function

bonne fin de soirée

@+Jean-Marie

 

Vote positif 0 Vote négatif

J

jp

Guest

• 13 Décembre 2004

• #13

merci jean marie.
j'ai testé c'est oki.

mais lorsque par exemple j'ai que des limites à 1 et dans les intervalles des 0 et des 1, avec la formule ca marche mais pas avec le code vba.
il calcule que cela fait 0.
faudrait-il modifier quelque chose dans le code pour qu'il puisse compter quand c'est des 1?

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 13 Décembre 2004

• #14

Re

Oui, cette ligne
Val = IIf((vCell.Offset(0, 1) <= vMax) And ((vCell.Offset(0, 1) > Val)), vCell.Offset(0, 1), Val)

@+Jean-Marie

 

Vote positif 0 Vote négatif

J

jp

Guest

• 13 Décembre 2004

• #15

oki cool.

merci encore jean-marie

 

Vote positif 0 Vote négatif