vba-Excel-Plus grande valeur d'une colonne

Version imprimable

Voir 40 message(s) de cette discussion en une page

01/08/2006, 17h49
AlainTech

Citation:

Envoyé par VBBBA

je veux faire une fonction vba qui récupére la plus grande valeur d'une colonne particuliere

Tu ne pourrais pas tout nous dire en une fois ou c'est pour faire durer le plaisir?
01/08/2006, 18h28
VBBBA

désolé.

rebonsoir

tu peux essayer cette macro , sans trier chaque colonne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim x As Byte
    Dim Nombre As Single
    Dim Ligne As Long
 
    For x = 1 To 3 'boucle pour récupérer les 3 valeurs les plus eleveées
 
        'récupère la Xieme valeur la plus élevée dans la 2eme colonne
        Nombre = Application.WorksheetFunction.Large(Columns(2), x)
 
        'recherche le numéro de ligne pour la valeur trouvée
        Ligne = Application.Match(Nombre, Columns(2), 0)
 
        'récupère le contenu de la 1ere colonne pour la valeur cible
        MsgBox Cells(Ligne, 1)
 
    Next x

bonne soirée
michel

02/08/2006, 12h11
VBBBA

t un boss!:!!
merci.simple et efficace a la fois
02/08/2006, 12h43
illight

t'a oublié le ptit tag résolu ;)
02/08/2006, 15h05
random

=max(b:b)
08/08/2006, 09h00
VBBBA

oui mais comment faire si l'on veut les 5 plus grandes?ton truc est bon pour juste une valeur
08/08/2006, 09h09
conconbrr

Ben t'as qu'à stocker le premier max dans un variable avec son adresse, puis tu le remplace sur ta feuille par un chiffre tt petit genre -1000000.
Tu réexécutes ensuite max(B:B) puis tu refais le truc cinq fois et à la fin tu réécris les variables effacées au bon endroit ;)
08/08/2006, 09h13
Elstak

Lol toujours aussi bricoleur le comcombre :mouarf:

moi j'aurai placé la place grande valeur dans un tableau (que tu redimensionne à chaque fois) et tu met en condition pour trouver la plus grande valeur, "si elle ne se trouve pas dans le tableau".

ou alors la prochaine fois tu nous dis directement que tu veux recuperer les 5 plus grandes tout de suite :evil:
08/08/2006, 09h18
AlainTech

Pour ma part, j'utiliserait Excel qui fait ça très bien.
Copie de toutes les valeurs dans une colonne.
Tri de cette colonne.
Récupération des 5 premières cellules.
08/08/2006, 09h22
Elstak

En plus je l'avais deja proposé page 1 :roll:

Citation:

un sort et on recupere la valeur de la derneire ligne (je sais plus si ca trie de facon croissante ou non...)

fallait juste changer et recuperer les 5 premieres lignes... :mrgreen:
08/08/2006, 09h43
AlainTech

Faut dire qu'à donner les infos au compte-gouttes, on s'y perd...
08/08/2006, 09h47
Elstak

Bah oui... en fait je l'avais aussi oublié moi meme :mouarf:

c'est en voyant ta proposition que je m'en suis rappelé :?

il mérite un carton jaune le VBBBBBBA :P ... bon y'a plus qu'à attendre qu'il nous donne l'info suivante !! :mouarf:
08/08/2006, 10h50
SilkyRoad

bonjour

Citation:

oui mais comment faire si l'on veut les 5 plus grandes?ton truc est bon pour juste une valeur

à qui s'adresse ce message ?

quitte à utiliser les outils tout faits d'Excel, pourquoi ne pas utiliser la fonction Grande.Valeur

GRANDE.VALEUR(matrice;k)

matrice représente la matrice ou la plage de données dans laquelle vous recherchez la k-ième plus grande valeur.

k représente, dans la matrice ou la plage de cellules, le rang de la donnée à renvoyer, déterminé à partir de la valeur la plus grande.

Recuperer la 3eme valeur la plus élevée dans la colonne B

Code:

=GRANDE.VALEUR(B:B;3)

et en VBA ça donne

Code:

Application.WorksheetFunction.Large(Columns(2), 3)

bonne journée
michel

Voir 40 message(s) de cette discussion en une page