traduire MIN(Feuil1:Feuil3!A2) en vba

[albert]

Bonsoir à tous et à toutes, forumiens, forumiennes,

Je cherche depuis un bon moment à traduire =MIN(Feuil1:Feuil3!A2) en vba, sans succès. :unsure:
Merci d’avance à qui pourra me donner un coup d’main

albert

 

[albert]

j'avais oublié le fichier joint. C'est réparé
:whistle: [file name=min.zip size=1381]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/min.zip[/file]

 

[BOBBY]

Salut Albert, forum

Est ce que c'est ca que tu cherchait ???

A+ [file name=min2.zip size=9210]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/min2.zip[/file]

 

[albert]

'soir BOBBY,

j'ai déjà travaillé une solution comme celle que tu proposes,
mais si j'ai un nombre variable de feuilles qui se créent lors d'un téléchargelent, ça ne marche plus. C'est pourtquoi j'ai pensé à utiliser une fonction Min(), pour boucler ensuite il faut traduire en vba
...mais alors, pour traduire ça se complique

:unsure:

 

[Baside]

Bonsoir Albert le fl le forum

Et en bouclant sur l'ensemble des feuilles avec

For X=1 to sheets.count

If de BOBBY

Next

Baside

 

[Baside]

Rebonjour

Avec cette formule on a le minimum de la plage A1:B10 d'une feuille

Faut voir à adapter...

MsgBox Application.WorksheetFunction.Min(Range('A1:B10'))

Baside

 

[albert]

bonsoir Baside, BOBBY, le forum,
je pense avoir trouvé (avec l'aide vba)

Sub UseFunction()
For i = 1 To 3
Dim myRange As Range
Set myRange = Worksheets(i).Range('A2')
answer = Application.WorksheetFunction.Min(myRange)
Cells(2, 3) = answer
Next
End Sub

merci pour vos interventions, ça stimule



albert

 

[Baside]

Je venais de trouver aussi mais il faudra ajouter du code à chaque feuille sup

 

[albert]

ça ne marche pas mon système, la boucle renvoie la valeur de la dernière feuille. Il faut que je trouve un moyen avec
Application.Union(Range('Range1'), Range('Range2'))
mais il semble qu'il ne soit pas possible de faire une 'union' de sheets('Feuil1:Feuil6')

 

[Baside]

Bonjour Albert le fil le forum

As tu trouvé ou cherches tu encore ?
Sinon j'ai une idée qui devrai aboutir

Baside

 

[albert]

bonjour Baside,
non, je n'ai pas trouvé, si tu as une idée, elle sera bienvenue

 

[JeanMarie]

Bonjour

Cette fonction retourne la valeur mini de la plage A1:C20 de toutes les feuilles comprises entre la feuil1 et la feuil3.

MsgBox Application.Evaluate('min(feuil1:feuil3!A1:C20)')

ou en plus court

MsgBox [min(feuil1:feuil3!A1:C20)]

Bonne journée

@+Jean-Marie

 

[Baside]

Bonjour Albert Jean Marie le fil le forum

Merci jean Marie

Mais est il possible de traduire SommeProd en VBA ?

Bonne journée à tous

 

[albert]

Bonjour JeanMarie, Baside, forum,
Dans la fonction
min(feuil1:feuil3!A1:C20)') on a des constantes ;
mon problème et d’arriver à mettre une variable pour remplacer feuil1:feuil3!
ce que jusqu’à présent je n’ai pas réussi à faire

albert

 

[JeanMarie]

Re...

Baside, la fonction SOMMEPROD est implémentée dans VBA, regarde du côté de WorksheetFunction.SumProduct

@+Jean-Marie

Message édité par: JeanMarie, à: 21/05/2005 14:07