taille de plage dépendant d'1 valeur

  • Initiateur de la discussion BenW
  • Date de début
B

BenW

Guest
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
 
B

BenW

Guest
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]
 

Pièces jointes

  • exemple catégories_20050310165745.zip
    4.9 KB · Affichages: 14

jduv

XLDnaute Nouveau
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]
 

Pièces jointes

  • exemple catégories_20050310165745_20050310171949.zip
    4.9 KB · Affichages: 15

Monique

Nous a quitté
Repose en paix
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]
 

Pièces jointes

  • CategoriesBenw.zip
    5.1 KB · Affichages: 25

dg62

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
9
Affichages
284
Réponses
5
Affichages
331

Statistiques des forums

Discussions
314 450
Messages
2 109 719
Membres
110 551
dernier inscrit
Khyolyanna