vba-Excel-Plus grande valeur d'une colonne

Version imprimable

01/08/2006, 13h54
VBBBA

vba-Excel-Plus grande valeur d'une colonne

bonjour a tous

jai besoin daide sur un ptit bo

je veux faire une fonction vba qui récupére la plus grande valeur d'une colonne particuliere( disons B)
merci de votre aide
01/08/2006, 14h06
Asdorve

salut,

ben je pense à ceci:

-tu parcours chaque cellules de ta colonne. Tu enregistres la première valeur dans une variable,
-puis ligne suivante, tu compares la valeur de la cellule avec ta variable, si c'est plus grand, tu enregistres cette valeur dans ta variable, sinon, tu passe à la cellule suivante.
Au final tu auras dans ta variable la + grande valeur de ta colonne.

Je sais que tu as tout ce qu'il faut pour y arriver dans les tuto et faq

tu sais deja combien tu as de ligne maxi dans la colonne ou non?
si tu le sais et que c'est 50 par exemple, tu peu faire:

Code:

1
2
3
4
5
6
7
8
9
 
dim a as double
a=0
for i = 1 to 50
   if range("A" & i).value>a then     'par exemple tu veux tester la colonne A
      a = range("A" & i).value
   end if
next i
range("B1").value = a     ' tu écris le résultat de la recherche dans B1

01/08/2006, 14h11
Asdorve

il me semble bien que dans le forum il y a un post qui traite de ça, qui pemet de retrouver la fin. Attends, je jette un oeil, fais pareil..
01/08/2006, 14h14
Asdorve

c'est-il pas beau ça?

http://www.developpez.net/forums/sho...lignes+colonne
01/08/2006, 14h19
conconbrr

lol ça doit faire le cinquième fois que je la mets cette ligne de code :D

Pour avoir la taille d'une colonne particulière (attention il ne faut pas de cellule vide au milieu de la colonne) il faut écrire :

Code:

nbligne=worksheets(Feuille).range(worksheets(Feuille).range(Debut).address & ":" & worksheets(Feuille).range(Debut).end(xldown).address).rows.count

Feuille c'est le nom de ta feuille et Debut c'est le nom de la première cellule de ta colonne (n'oublie pas les guillemets quand même ;))

Note : quand je mets

Code:

worksheets(Feuille).range(Debut).address & ":"

, on pourrait aussi bien mettre

Code:

"Debut:" &

Le seul intérêt c'est de pouvoir adapter si par exemple la première case de ta colonne est celle en dessous de Debut, alors tu mettras :

Code:

nbligne=worksheets(Feuille).range(worksheets(Feuille).range(Debut).offset(1,0).address & ":" & worksheets(Feuille).range(Debut).end(xldown).address).rows.count
01/08/2006, 14h22
conconbrr

Le lien qu'a mis asdorve te permettra de connaître la dernière ligne d'une région mais pas forcément d'une colonne...

Je m'explique, imaginons que tu veuilles le nb de lignes de la colonne A. Si ta colonne A contient 100 lignes et ta colonne B 200 et que tu te sert de currentregion sur le debut de ta colonne A tu vas te retrouver avec un résultat de 200 lignes (enfin je crois bien ;)) vu qu'il considère tt la région A:B
01/08/2006, 14h34
Theocourant

Bonjour,

Juste une petite remarque, la fonction Max d'Excel ne marche pas ????

+

Théo
01/08/2006, 15h01
Theocourant

Re,

Petit complément pour la fonction Max dans VBA : regarder dans l'aide du côté de la propriété WorksheetFunction

+

Théo
01/08/2006, 15h26
Elstak

Alala,

toujours aussi compliqué le comcombre !

Citation:

nbligne=worksheets(Feuille).range(worksheets(Feuille).range(Debut).address & ":" & worksheets(Feuille).range(Debut).end(xldown).address).rows.count

:vomi:

c'est pas plus beau ca ?

Code:

DerniereLigne = Worksheets(NomFeuilleSource).Range("D1").End(xlDown).Row

Sinon je pense que la solution de Théo à l'air bien.

on peut faire plus rapide que la copie dans une variable temporaire je pense...
un sort et on recupere la valeur de la derneire ligne ;) (je sais plus si ca trie de facon croissante ou non...)
01/08/2006, 15h40
Theocourant

Citation:

Envoyé par Elstak

Alala,

toujours aussi compliqué le comcombre !

:vomi:

c'est pas plus beau ca ?

Code:

DerniereLigne = Worksheets(NomFeuilleSource).Range("D1").End(xlDown).Row

Sinon je pense que la solution de Théo à l'air bien.

on peut faire plus rapide que la copie dans une variable temporaire je pense...
un sort et on recupere la valeur de la derneire ligne ;) (je sais plus si ca trie de facon croissante ou non...)

Je rappelle tout de même qu'il souhaite :

Citation:

Envoyé par VBBBA

récupére la plus grande valeur d'une colonne particuliere

... et non la dernière ligne définie dans la colonne (nuance)

Théo
01/08/2006, 15h42
Asdorve

justement, on avait parlé de recherche de la dernière ligne si on utilise ma proposition, qui consistait à parcourir la colonne particulière, de faire une boucle de la ligne 1 à la ligne "DernièreLigne" et d'utiliser une variable + comparaison avec la valeurdu champs en cours.
01/08/2006, 15h53
Elstak

Et bien pour moi une colonne particuliere est connue (comme sa colonne B qu'il a dit en exemple) et donc on peut utiliser mon code en mettant "B1".

Il n'a pas di une colonne variable, changeante....

j'ai bien compris ta solution asdorve mais le "sort" d'excel est beaucoup plus rapide (ca crois moi !) et donc y'a jsute à lancer un sort et récuperer la valeur de sa colonne B qui est à la ligne derniere ligne un fois le Sort fait...

Code:

cells(derniereligne,2)
01/08/2006, 15h55
Asdorve

possible, je ne suis pas expert en vba-Excel... Je connais pas tout
01/08/2006, 15h59
Theocourant

Citation:

Envoyé par Elstak

Et bien pour moi une colonne particuliere est connue (comme sa colonne B qu'il a dit en exemple) et donc on peut utiliser mon code en mettant "B1".

Il n'a pas di une colonne variable, changeante....

j'ai bien compris ta solution asdorve mais le "sort" d'excel est beaucoup plus rapide (ca crois moi !) et donc y'a jsute à lancer un sort et récuperer la valeur de sa colonne B qui est à la ligne derniere ligne un fois le Sort fait...

Code:

cells(derniereligne,2)

Personnellement, je pense que la fonction Max est la plus rapide (intrinsèquement codée) que la manipulation des données avec un sort ...

...

Théo
01/08/2006, 16h01
Asdorve

quoi qu'il en soit, il y a ici 3 façons plus ou moins rapide de régler le problème. Il serait bien que l'auteur de ce post se manifeste...
01/08/2006, 16h41
conconbrr

Juste une remarque pour mon ami elstak :D

Mon bout de code est plus long mais il donne le nb de ligne d'une plage spécifique et pas le numéro de la dernière ligne de la plage!!!

Réfléchis-y tu verras c'est très différent ;)
01/08/2006, 16h55
SilkyRoad

bonjour

tu peux tester

Code:

MsgBox Application.WorksheetFunction.Large(Columns(2), 1)

et

Code:

MsgBox Application.WorksheetFunction.Subtotal(4, Columns(2))

bonne soiree
michel
01/08/2006, 17h37
VBBBA

vraiment merci pour toutes vos reponses

ca ma aidé.
maintenant je veux récupérer le numéro de la ligne qui contient le max dans une variable.
c'est plus interessant je trouve.
01/08/2006, 17h45
VBBBA

vu l'interet qu'a porté mon sujet je précise mon projet.
jai deux classeurs.
dans un premier jai plusieurs colonnes

je veuxx en fait prendre chaque colonne la trier par ordre decroissant et prendre unqiuement les 3 plus grandes valeurs.
ensuite je recopie ces valeurs avec le libélé de la colonne 1 correspondant dans un tableau de lautre classeur.
simple et compliqué à la fois...
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

Fuseau horaire GMT +2. Il est actuellement 19h06.