Macro vba : fonction large

ok, grande.valeur en français

Tu as écris WorksheetsFunction au lieu de WorksheetFunction

eric

Salut le fil,

Je ne sais pas si j'ai tout compris mais je me lance on verra plus tard pour une boucle, à tester

Sub test()
Worksheets("Cadre").[B21] = "=LARGE(Calcul3!B2:B50,1)"
Worksheets("Cadre").[B22] = "=LARGE(Calcul3!B2:B50,2)"
Worksheets("Cadre").[B23] = "=LARGE(Calcul3!B2:B50,3)"
End Sub

ou

Sub test()
Sheets("Cadre").Select
[B21].FormulaArray = "=LARGE(Calcul3!B2:B50,1)"
[B22].FormulaArray = "=LARGE(Calcul3!B2:B50,2)"
[B23].FormulaArray = "=LARGE(Calcul3!B2:B50,3)"
End Sub

Bonsoir

Sous Excel 2003 je ne l'ai pas non plus trouvée, je ne connais pas sa traduction en français mais avec l'aide d' Excel 2007 on a l'explication suivante :

WorksheetFunction.Large, méthode
Renvoie la k-ième plus grande valeur d'un ensemble de données. Vous pouvez utiliser cette fonction pour sélectionner une valeur en fonction de sa position relative. Par exemple, vous pouvez utiliser la méthode LARGE pour renvoyer la valeur la plus élevée, la deuxième ou la troisième valeur.
Syntaxe

expression.Large(Arg1, Arg2)

expression Variable représentant un objet WorksheetFunction.

Paramètres

Nom Obligatoire/Facultatif Type de données Description
Arg1 Obligatoire Variante Matrice - matrice ou plage de données pour laquelle vous souhaitez déterminer la k-ième plus grande valeur.
Arg2 Obligatoire Double K - position (en partant de la plus grande position) dans la matrice ou la plage de données à renvoyer.

Valeur renvoyée
Double

Remarques

Si la matrice est vide, la méthode LARGE renvoie la valeur d'erreur #NUM!.
Si k ? 0 ou si k est supérieur au nombre de points de données, la méthode LARGE renvoie la valeur d'erreur #NUM!.
Si n est le nombre de points de données dans une plage, la méthode LARGE(matrice,1) renvoie la valeur la plus grande et la méthode LARGE(matrice,n) renvoie la valeur la plus petite.

Elsie

Bonjour,

Tu as la traduction en français de la fonction Large ?
Je ne la trouve pas dans ma liste.
Et puis un petit fichier exemple avec des valeurs serait le bienvenu... (cijoint.fr)

eric

Bonsoir,
Il faut modifier ta formule en fonction de i :

Sub Test () 

For i = 1 To 9 

Worksheets("Cadre").Range("B21").Offset(i, 0) = Application.Worksheetsfunction.Large(Worksheets("Calcul3").Range("B2:B50"), i) ' les 8 plus gros secteurs 

Next i 

End Sub

@+