trouver ligne de max dans colonne en vba

[Marie1982]

Bonjour,

Je veux savoir à quelle ligne se trouve le maximum d'une colonne.

Voici ce que j'ai fait

Set c1 = Range("B:B")
       valeur = Application.Max(c1)
       Set c2 = c1.Find(what:=Str(valeur))
       MsgBox (Str(c2.Row))

J'obtient le message d'erreur "Object variable or With block variable not set"

Dans mon cas, la valeur maximale est à la case B1444, donc je voudrais trouver automatiquement le 1444.

Merci

 

[Marie1982]

Re : trouver ligne de max dans colonne en vba

J'ai oublié de mentionner que les 2 première lignes de mon code fonctionnent, valeur contient bien la valeur max de ma colonne...

C'est sur la 3e ligne que j'ai l'erreur...

 

[Paritec]

Re : trouver ligne de max dans colonne en vba

Bonsoir Marie 1982 le forum
x = feuil1.usedranges.rows.count
voilà Marie x = ton 1444 dans ton cas
a+
Bonne soirée
Papou

 

[Marie1982]

Re : trouver ligne de max dans colonne en vba

ok je suis débutante en vba il va falloir que tu m'expliques plus...

je définis x en quoi?
Aussi "usedranges.rows.count" n,est pas dans l'aide de mon excel, qu'est-ce que c'est???

Merci!

 

[Marie1982]

Re : trouver ligne de max dans colonne en vba

J'ai essayé de définir x as variant
puis la ligne suivante:

x = activesheet.usedranges.rows.count

mais j'ai l'erreur "Object doesn't support property or method"

je suis sur excel 2007

merci

 

[Staple1600]

Re : trouver ligne de max dans colonne en vba

Bonsoir


Voici une syntaxe qui fonctionne

* Mettre 2 pour traiter la colonne b, et B à la place de A

Sub Macro_MAX()
Dim lig As Long, m$
lig = Columns([COLOR=Red][B]1[/B][/COLOR]).Find(Application.Max(Columns([COLOR=Red][B]1[/B][/COLOR])), [[COLOR=Red][B]A[/B][/COLOR]65536]).Row
m = "Ligne : " & lig & Chr(13)
m = m & "Adresse cellule : " & Cells(lig, 1).Address(0, 0) & Chr(13)
m = m & "Valeur cellule MAX : " & Cells(lig, 1).Value
MsgBox m, vbInformation, "RESULTAT RECHERCHE VALEUR MAX COLONNE [B][COLOR=Red]A[/COLOR][/B]"
End Sub

EDITION: bonsoir Jean-Marcei

 

[Marie1982]

Re : trouver ligne de max dans colonne en vba

Merci ça fonctionne.