Macro vba : fonction large

Résolu
Utilisateur anonyme -  
Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   -
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

6 réponses

Gord21 Messages postés 918 Date d'inscription   Statut Membre Dernière intervention   289
 
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


@+
0
Utilisateur anonyme
 
Bonsoir

Merci

en fait elle est comme vous me l'avez indiqué ma macro, j'avais mis des chiffres pour la tester sur une ligne.

mais non ça ne fonctionne pas

Elsie
0