taille de plage dépendant d'1 valeur

[BenW]

Amis des macros, bonjour,

J'ai un petit soucis de débutant pour faire un classement de mes données. Je voudrais afficher 'A' pour les données (classées décroissantes) qui ont les valeurs les plus importantes. Quand je dis 'les' plus importantes, c'est à dire que je veux pouvoir modifier ce nombre à partir de la cellule A10 de ma feuille 'réglage'.

Voilà ce que j'ai essayé et qui ne marche pas:


Range('case_1_catégories').Select

Dim nbcatA As Long

Set nbcatA = Sheets('REGLAGES').Range('A10').Value

Range('case_1_catégories', 'case_1_catégories' _
+ nbcatA).Value = 'A'


Quelqu'un pourrait-il m'aider? Y-a-t-il un moyen plus simple que de déclarer 'nbcatA'?

Merci d'avance

 

[dg62]

Bonjour BenW, le forum


peux-tu mettre en piece jointe un petit exemple de ce que tu souhaites réaliser.

Le VBA n'est peut-être pas nécessaire.

 

[BenW]

Voila le type de résultat que je voudrais. Je voulais le faire en macro pour pouvoir le paramétrer plus facilement par la suite, mais si c'est pas necessaire...

 

[BenW]

Desolé pour la PJ... :whistle:

Voila le fichier en .zip [file name=exemple catégories_20050310165745.zip size=4989]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple catégories_20050310165745.zip[/file]

 

[jduv]

bonjour Benw
Regarde cela
J'espére avoir bien compris ce que tu souhaite?

[file name=exemple catégories_20050310165745_20050310171949.zip size=4989]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple catégories_20050310165745_20050310171949.zip[/file]

 

[jduv]

OUPS
Bon peut être que cela te suffit
Dans la colonne C tu peut mettre

=si(B2>réglages!$A$10;'A';'')

 

[Monique]

Bonjour,

Avec la fonction Grande.Valeur(B2:B9; ton nombre)
[file name=CategoriesBenw.zip size=5239]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CategoriesBenw.zip[/file]

 

[dg62]

Bonsoir Monique, Jduv, Benw

Un tri préalable de ton tableau en ordre croissant et en regard des X plus grandes valeurs ta catégorie.


Sub Macro1()
'
Range('A2:B9').Select
Selection.Sort Key1:=Range('B2'), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Sheets('réglages').Select
Set reg = Range('B2')
Set cat = Range('A2')
Sheets('données').Select
For i = 2 To reg + 1
Range('c' & i).Value = cat
Next i


End Sub

 

[BenW]

Merci bcp à vous 3, ca marche!

NB: j'ai utilisé la macro de dg62 car j'ai d'autres classements du genre à faire

A bientot pour mon prochain blocage...

:woohoo: