Discussion :

[delube]

Bonjour

Voici mon problème
J'ai des valeurs inscrites dans la plage suivante :

Code :

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

Range(Cells(i, 27),Cells(i+3,27))

Certaines de ces valeurs peuvent être égales à 0

Je voudrai récupérer la valeur minimum de cette plage qui ne soit pas égale à 0, le tout en VBA

Merci d'avance

Bonne soirée à tous

[Menhir]

La méthode brutale mais efficace consisterait à faire une boucle For To.
A chaque tour, tu vérifies avec un If si la valeur est supérieure à 0.
Si c'est le cas, tu compares la valeur courante à la valeur retenue. Si elle est inférieure, la valeur courante devient la valeur retenue.

Ne pas oublier d'initialiser la valeur retenue avant le début de la boucle.

J'espère que tu ne fais pas une macro spécialement pour ça.
Parce que si c'est le cas, il y a des solutions plus simple que de passer par du VBA.

[joe.levrai]

Bonjour,

la fonction PETITE.VALEUR (SMALL() en anglais) permet d'obtenir la k_ieme plus petite valeur d'une plage

en VBA, le minimum d'une plage de nombre positifs, en excluant 0, revient à obtenir l'avant dernier plus petit, c'est à dire la plus petite valeur de rang 2

Code :

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

Application.WorksheetFunction.Small(Range(Cells(i, 27),Cells(i+3,27)), 2)

[delube]

Merci menhir pour ta réponse
En effet, je cherche exclusivement du VBA, je continue mes recherches

[delube]

Merci joe.levrai

Code :

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

Application.WorksheetFunction.Small(Range(Cells(i, 27),Cells(i+3,27)), 2)

me renvoie ''Erreur de syntaxe''

[delube]

De même, si j'ai plus d'un 0 dans la plage, ça me renvoie 0 quand même !

[Menhir]

Par contre, si tu n'as aucun 0, ça ne donnera pas la plus petite valeur.

En Excel, je ferais la formule matricielle suivante :

Code :

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

=MIN(SI(A1:A10=0;"";A1:A10))

Au pire, tu mets cette formule dans une cellule, tu récupères le résultat dans une variable et tu effaces la formule.

[delube]

C'est marrant, la formule :

Code :

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

=MIN(SI(A1:A10=0;"";A1:A10))

me renvoie 0 losqu'une cellule de la plage contient un 0

Etrange !

[joe.levrai]

En passant par Evaluate, pas besoin d'utiliser excel en tremplin

Code :

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

MsgBox Evaluate("MIN(IF(A1:A10=0,"""",A1:A10))")

[Menhir]

me renvoie 0 losqu'une cellule de la plage contient un 0

Je l'ai testée avant de l'envoyer et elle fonctionne.
Est-ce que tu l'as bien enregistrée comme fonction matricielle ?
Es-tu sûr que c'est un VRAI 0 qui est dans ta liste ? Ca ne serait pas un nombre avec décimales arrondi par son format ou quelque chose comme ça ?

En passant par Evaluate, pas besoin d'utiliser excel en tremplin

Je n'étais pas sûr que ça fonctionnait avec une formule matricielle ?

[delube]

Merci Joe

En fonction de ma feuille voici ce que j'ai écrit :

Code :

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

1
2
3
With ActiveSheet
n = .Evaluate("MIN(IF(AA" & i & ":AA" & (i + 3) & "=0,"""",AA" & i & ":AA" & (i + 3) & "))")
End With

Et ça fonctionne

Merci à tous pour votre aide

A bientôt

[joe.levrai]

Si si, c'est la puissance de la fonction Evaluate.

La formule peut être matricielle ou non, nul besoin de le spécifier, c'est VBA qui fait le job

et contrairement à FormulaArray, on peut dépasser les 256 caractères dans l'écriture de la formule

[Marc-L]

Salut !

Je n'étais pas sûr que ça fonctionnait avec une formule matricielle ?

Pour cette raison entre autres, récemment j'ai indiqué même en VBA préférer souvent l'existant d'Excel
à toute usine à gaz en VBA pur :  Penser Excel Avant VBA  ! …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …