dernier max d'une colonne

xUpsilon

XLDnaute Accro

• 31 Octobre 2019

• #2

Bonjour,

En VBA, à inclure dans un module (en supposant que tes valeurs soient stockées dans la colonne A et commencent à la ligne 1 :

VB:

Dim a, Lig, i as Integer

For i = 1 to Range("A1").End(xlDown).Row
    If Range("A" & i)>= a then
        a = Range("A" & i)
        Lig = i
    End if
Next i
MsgBox "La valeur max est " & a & "à la ligne " & Lig

Bonne continuation

 

Vote positif 0 Vote négatif

C

candice**

XLDnaute Nouveau

• 31 Octobre 2019

• #3

Merci beaucoup xUpsilon pour ta réponse aussi rapide
Il y aurait-il une solution sans utiliser un code vba ?

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 31 Octobre 2019

• #4

Bonjour,

Avec les valeurs en A1:A32, n° de ligne de la dernière valeur max:=AGREGAT(14;6;LIGNE(A1:A32)/(A1:A32=MAX(A1:A32));1)
Pour avoir la valeur correspondante : =INDEX(A1:A32;AGREGAT(14;6;LIGNE(A1:A32)/(A1:A32=MAX(A1:A32));1))
Mais dans ce dernier cas MAX(A1:A32) le fait tout aussi bien
cordialement

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 31 Octobre 2019

• #5

Re le fil, Bonjour Roblochon,

Effectivement, sans vba, tu peux trouver facilement, mais la question devient alors si tu cherches la dernière plus grande valeur (la plus grande valeur tout court du coup), ou la ligne de la dernière plus grande valeur.

Bonne continuation

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Octobre 2019

• #6

bonjour
sinon fonction large combinée a find xlprevious

VB:

Sub LastMax()
    col = 1
    Set plage = Range(Cells(1, col), Cells(Rows.Count, col).End(xlUp))
    Max = WorksheetFunction.Large(plage, 1)
    Set cel = plage.Find(Max, LookIn:=xlValues, SearchDirection:=xlPrevious)
    MsgBox cel.Address
End Sub

bonjour @xUpsilon
très mauvaise idée d'utiliser (xldown) :si il y a une cellule vide avant la fin ben c'est rapé !! 😉

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 31 Octobre 2019

• #7

Re,
La demandeuse veut éviter les solutions VBA

candice** à dit:

Il y aurait-il une solution sans utiliser un code vba ?

Cliquez pour agrandir...

voir formules post #4

 

Vote positif 0 Vote négatif

C

candice**

XLDnaute Nouveau

• 31 Octobre 2019

• #8

Bonjour à tous,
Merci pour vos réponses
J'ai juste un petit problème roblochon je pense que la fonction agregat n'est pas connu de par excel 2007 car des que je rentre la formule que vous m'avez donné j'ai une erreur de nom comme réponse.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 31 Octobre 2019

• #9

Re,

...arf 🙂 Pourquoi alors avoir choisi excel 2010 dans le titre de votre question ?

Et bien je vais vous faire une version matricielle.

A tout à l'heure

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 31 Octobre 2019

• #10

Re,

La fonction matricielle suivante vous retourne le n° de ligne correspondant au dernier MAX de A1:A32: GRANDE.VALEUR(SI(A1:A32=MAX(A1:A32);LIGNE(A1:A32));1)
vous devrez la valider par CTRL+MAJ+ENTREE (ce qu'évitait Agregat)

Mais vous ne dites toujours pas ce que vous voulez en faire.

Cordialement

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 31 Octobre 2019

• #11

patricktoulon à dit:

très mauvaise idée d'utiliser (xldown) :si il y a une cellule vide avant la fin ben c'est rapé !! 😉

Cliquez pour agrandir...

Certes, j'ai pris la mauvaise habitude que les gens aient des tableaux propres, peut-être un excès de confiance de ma part 😉

Bonne continuation

 

Vote positif 0 Vote négatif

C

candice**

XLDnaute Nouveau

• 31 Octobre 2019

• #12

Roblochon à dit:

Re,

...arf 🙂 Pourquoi alors avoir choisi excel 2010 dans le titre de votre question ?

Et bien je vais vous faire une version matricielle.

A tout à l'heure

Cliquez pour agrandir...

Je penser que pour ce genre de problème il y avait pas grande différence désolé pour le dérangement
Merci beaucoup

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 31 Octobre 2019

• #13

Re,

Avez-vous vu et testé la réponse du post 10 ?

Cordialement

 

Vote positif 0 Vote négatif

C

candice**

XLDnaute Nouveau

• 31 Octobre 2019

• #14

Roblochon à dit:

Re,

La fonction matricielle suivante vous retourne le n° de ligne correspondant au dernier MAX de A1:A32: GRANDE.VALEUR(SI(A1:A32=MAX(A1:A32);LIGNE(A1:A32));1)
vous devrez la valider par CTRL+MAJ+ENTREE (ce qu'évitait Agregat)

Mais vous ne dites toujours pas ce que vous voulez en faire.

Cordialement

Cliquez pour agrandir...

Merci beaucoup roblochon cela fonctionne

Je veux utiliser cette ligne pour ensuite trouver la valeur d'une autre cellule de cette même ligne pour intégrer cette valeur à une formule qui me trace une droite tangente à une autre droite au point max de cette deuxième. C'est un peu compliqué mais votre solution pour mon problème fonctionne.

Merci à tous

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Octobre 2019

• #15

re
@Roblochon
ca fonctionne la formule du #post10 sur 2007

 

Vote positif 0 Vote négatif