Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

trouver ligne de max dans colonne en vba

  • Initiateur de la discussion Initiateur de la discussion Marie1982
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

Marie1982

Guest
Bonjour,

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

Voici ce que j'ai fait

Code:
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
 
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...
 
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!
 
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
 
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

Code:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
989
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…