VBA Calcul matricielle Minimum positif

[vivi4561]

Bonjour,

Actuellement sous excel, j'utilise la formule ci contre pour récupérer la valeur minimum positif d'une liste :

{= MIN(SI((A1:A5>0)*(A1:A5);(A1:A5)))}

Savez vous comment je pourrais coder cela en VBA ? (je souhaite avoir directement le résultat dans une variable)


Merci d'avance pour votre aide,


Vince

 

[david84]

Re : VBA Calcul matricielle Minimum positif

Bonjour,
as-tu essayés d'utiliser les fonction VBA de feuille de calcul : application.WorksheetFunction.Min ?
A+

 

[vivi4561]

Re : VBA Calcul matricielle Minimum positif

Re,

J'ai essayé mais il faut prendre en compte la partie matricielle. Chose que je n'arrive pas .... :S

 

[david84]

Re : VBA Calcul matricielle Minimum positif

Re
pourquoi ne pas effectuer ton test conditionnel avant, par exemple en chargeant les valeurs de la plage dans un tableau en excluant les valeurs < ou = à 0, et ensuite tu utilises la fonction pour faire ta recherche.
As-tu un fichier exemple ?
A+

 

[JNP]

Re : VBA Calcul matricielle Minimum positif

Bonjour le fil ,

pourquoi ne pas effectuer ton test conditionnel avant, par exemple en chargeant les valeurs de la plage dans un tableau en excluant les valeurs < ou = à 0, et ensuite tu utilises la fonction pour faire ta recherche.

David l'a pensé, je l'ai fait ...

Sub Test()
Dim Tableau(), I As Integer, J As Integer
For I = 1 To 5
If Range("A" & I) > 0 Then
ReDim Preserve Tableau(J)
Tableau(J) = Range("A" & I).Value
J = J + 1
End If
Next I
MsgBox Application.WorksheetFunction.Min(Tableau)
End Sub

Bonne soirée
PS : c'est beau la communeauté de pensé

 

[vivi4561]

Re : VBA Calcul matricielle Minimum positif

Re,

Merci pour ton aide.
J'ai mis en pièce jointe le fichier excel. Peut-on faire un tableau "virtuel" en vba ?

 

[vivi4561]

Re : VBA Calcul matricielle Minimum positif

Nikel JNP.

Merci bp !! Merci à bcp à toi aussi david84 pour ta réactivité.


Bonne soirée,

Vince

 

[david84]

Re : VBA Calcul matricielle Minimum positif

Re

David l'a pensé, je l'ai fait ...

je n'aurais pas mieux fait (et pour cause vu que c'est toi qui me l'a expliqué (pensée également pour kjin à ce sujet)...).

PS : c'est beau la communauté de pensée

Oh que oui...
A+

 

[JNP]

Re : VBA Calcul matricielle Minimum positif

Re ,

je n'aurais pas mieux fait (et pour cause vu que c'est toi qui me l'a expliqué (pensée également pour kjin à ce sujet)...).

Finalement, suite à ton MP, c'est toi qui aura le dernier mot ...
Effectivement, j'avais toujours fui la fonction Evaluate (qui peut être syntaxée []), car je la trouve un peu imprécise, mais Ce lien n'existe plusque tu m'as envoyé m'a permis de tester, et effectivement, dans ce cas de figure, le code devrait encore mieux convenir à vivi4561 ...

Sub Test()
MsgBox [MIN(IF((A1:A7>0)*(A1:A7),(A1:A7)))]
End Sub

Dificile de faire plus compact ...
Bonne soirée

 

[vivi4561]

Re : VBA Calcul matricielle Minimum positif

Salut JNP,

J'ai tenté ta nouvelle méthode et elle marche bien. Mais lorsque je veux stocker le résultat dans une variable cela ne marche pas :S

x = [MIN(IF(AF53:AF55>0)*(AF53:AF55),(AF53:AF55)))]

Étrange ....


Vince

 

[david84]

Re : VBA Calcul matricielle Minimum positif

Re
pas sûr de te comprendre (le VBA c'est nouveau pour moi) mais :

Sub test2()
x = [MIN(IF((A1:A7>0)*(A1:A7),(A1:A7)))]
MsgBox x
End Sub

te ramène bien 10...
Quel type de variable veux-tu récupérer ? Si c'est une variable Tableau, c'est vrai qu'avec Evaluate, cela est plus compliqué mais le tuto indiqué par JNP te donne une solution, sinon le plus simple est de placer ton exemple sur le fichier que tu as posté en expliquant ce que tu cherches à faire.
A+

 

[JNP]

Re : VBA Calcul matricielle Minimum positif

Re ,

J'ai tenté ta nouvelle méthode et elle marche bien. Mais lorsque je veux stocker le résultat dans une variable cela ne marche pas

Bizarre, chez moi

Sub Test()
Dim X As Integer
X = [MIN(IF((A1:A7>0)*(A1:A7),(A1:A7)))]
MsgBox X
End Sub

fonctionne très bien (j'ai mis Integer vu que tu as des entiers). Tu peux essayer

Sub Test()
Dim X As Integer
X = [MIN(IF((A1:A7>0)*(A1:A7),(A1:A7)))] * 1
MsgBox X
End Sub

pour être sûr d'avoir du numérique ...
A moins que tu n'ai pas déclaré ta variable, mais même ainsi, ça marche chez moi ...
Bon courage

 

[vivi4561]

Re : VBA Calcul matricielle Minimum positif

C'est vraiment bizarre car ça fonctionne très bien:

MsgBox [MIN(IF((AF53:AF55>0)*(AF53:AF55),(AF53:AF55)))]

mais lorsque je dis :

X = [MIN(IF(AF53:AF55>0)*(AF53:AF55),(AF53:AF55)))]

Cela m'affiche : Incompatibilité de type 13 (ma variable est bien définie en Integer).

 

[david84]

Re : VBA Calcul matricielle Minimum positif

Re, salut JNP,
Quelle type de données as-tu en AF53:AF55 ? es-tu sûr que ce sont des nombres ?
As-tu vérifié leur format ?
Peut-être à côté de la plaque mais au cas où, extrait de l'aide d'Excel :

Les arguments qui comportent des valeurs d'erreur ou du texte qui ne peuvent pas être convertis en nombres génèrent des erreurs.
Pour inclure des valeurs logiques et des transcriptions textuelles de nombres dans une référence dans le cadre du calcul, utilisez la fonction MINA.

A+

 

[vivi4561]

Re : VBA Calcul matricielle Minimum positif

En AF53:AF55, j'ai 3 nombres : 1, -5, -5 (qui sont bien définis en nombre).

Je comprend vraiment pas car ça marche bien dans MsgBox. :S