Macro vba : fonction large Résolu

Question

Bonjour, 

Afin d'obtenir les 8 plus grand nombre j'utilise la code suivant : 

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 

Mais je ne sais pas pourquoi ça ne marche pas.  
Auriez vous une idée de ce qui cloche dans ce code s'il vous plaît ? 

Merci d'avance 

Laure

Gord21 · Answer

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

@+

eriiic · Answer

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

Utilisateur anonyme · Answer

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

Mike-31 · Answer

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

eriiic · Answer

ok, grande.valeur en français

Tu as écris WorksheetsFunction au lieu de WorksheetFunction

eric

Utilisateur anonyme · Answer

Bonjour

Merci à tous

Le problème venait effectivement de cette erreur d'orthographe.

Elsie

Macro vba : fonction large

6 réponses

Discussions similaires

Newsletters