Discussion :

[draynaud]

Bonjour à tous!

Je cherche à récuperer le max ou le min dún SumIfs de deux criteres: j'effectue le sumIfs sur chaque colonne, en parcourant une à une les colonnes de ma table, puis en fonction d'un booleen, j'enregistre si la valeur est supérieur ou inférieure-

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function min_or_max(B As Boolean, table As Range, col1 As Range, c1 As Cell, col2 As Range, c2 As Cell)
Dim column As Range
 
'If B = False Then
min_or_max = 0
'For Each column In Range.Columns
If Application.WorksheetFunction.SumIfs(column, col1, c1, col2, c2) > min_or_max Then
min_or_max = Application.WorksheetFunction.SumIfs(colummn, col1, c1, col2, c2)
End If
'Next column
 
'Elsif B = True
'min_or_max = 10000000
'For Each column In Range.Columns
 '   If Application.WorksheetFunction.SumIfs(Range.Columns(i), col1, c1, col2, c2) < min_or_max Then
  '  min_or_max = Application.WorksheetFunction.SumIfs(Range.Columns(i), col1, c1, col2, c2)
   ' End If
'Next column
End Function

Mon code ne fonctionne pas , et le blocage se fait au niveau de Sumifs: en retirant toutes les boucles je n'ai que #VALUE
Je dois dire que la page d'aide de la fonction n'est pour moi pas tres claire: https://msdn.microsoft.com/fr-fr/vba...s-method-excel

Dois-je mettre:

1. plage de somme
2. PLage de test 1, plage de test 2
3. critere 1, critere 2

Ou est ce dans un autre ordre? la page indique arg2 = plages sur lesquels on effectue les tests...

Quelqu'un a t il une idée?

Merci d'avance!

Drf

[parmi]

Bonjour,

Tu dois suivre le même principe que la formule SOMME.SI.ENS

1e item est la colonne à additionner
2e item est la colonne de valeurs à vérifier
3e item est le critère à trouver dans le précédent
4e item est la colonne de valeurs à vérifier
5e item est le critère à trouver dans le précédent
....

Mais dans ton code, tu as mis des lignes en commentaires, donc Column ne vaut rien

[draynaud]

Hello!

Donc ma syntaxe est ok?!
Bon point pour la boucle, ceci dit, meme en mettant range.columns(1), cela ne marche pas!!

David

[unparia]

Bonjour
La notation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range.columns(index)

n'existe pas en matière de notation d'un objet range. Une colonne est déjà un objet range.
Existe la notation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

columns(index)

Edit : par ailleurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each column In Range.Columns

ne saurait avoir de sens.
Columns peut être la propriété d'un objet Range défini/spécifié, ce que n'est pas Range (au demeurant mot réservé de VBA, de surcroît).

[Pierre Fauconnier]

Salut,

Pourrais-tu donner une copie d'écran d'une partie de la plage que tu souhaites traiter ainsi qu'un exemple de ce que tu souhaites obtenir?

[draynaud]

Patates.xlsm

Hello,

Voici ce que je cherche à faire (bien entendu avec quelques colonnes & lignes en plus)

J'avoue que je n'au aucune idée de ce qui ne fonctionnne pas!

Merci d'avance à tout ceux qui répondent et meme ceux qui prennent le temps de lire!

drf