XL 2019 Valeur maxi d'une colonne

[Caninge]

Bonsoir à tous,

je fais un petit tour sur Excel Downloads avant d'aller diner et regarder ma série préférée " Columbo "
Je peux vous demander un petit peu d'aide pour résoudre ce problème ?
J'aimerais extraire la valeur maxi d'une colonne sachant qu'il y en a plusieurs dans chaque cellule.
j'ai essayé avec stxt , droite gauche maxi. je me suis mélangé les pinceaux.
Je vous remercie,
Bonne soirée

 

[R@chid]

Bonjour @ tous,
Salut patricktoulon

et pour parfaire cette petite fonction qui peut s'avérer tres utile
on peut (puisque les worksheetfunctions fonctionnent )ajouter un parametre pour chopper le plus grand avec index c'est a dire le 1 le 2d le 3em etc..... et cela avec cette fois ci la fonction large

Oui, parfait, je peux encore adapter ma formule pour pouvoir faire la même chose :

=AGREGAT(14;6;FILTRE.XML("<a><b>"&SUBSTITUE(JOINDRE.TEXTE("-";1;D2:D34);"-";"</b><b>")&"</b></a>";"//b");1)

Le 1 à la fin de la formule est le nième valeur à chercher.

Cordialement

 

[patricktoulon]

re
je reprends la formule de @rachid mais pour les version inférieures a 365

=AGREGAT(14;6;FILTRE.XML("<a><b>"&SUBSTITUE(JOINDRE_TEXTE2007(A1:A3;"-");"-";"</b><b>")&"</b></a>";"//b");1)

la fonction JOINDRE_TEXTE2007

Texte - JOINDRE_TEXTE2007

Bonjour à tous comme personne ne pense au pauvres utilisateur qui n'ont pas 365 ou 2016 je me lance une petite fonction similaire a joindre.texte mais qui fonctionne pour tout le monde fonctionne pour vba et en formule '******************************************** 'fonction JOINDRE_TEXTE pour...

www.excel-downloads.com

 

[sylvanu]

Bonsoir tout le monde,
@patrick, tant qu'à faire passez aussi le séparateur en paramètres, la fonction devient alors "universelle".
Et donc une fonction qui peut être intégré au nouvel espace de David.

 

[patricktoulon]

bonsoir @sylvanu
je vais regarder mais je pige pas très bien ta demande quel séparateur?
car celui que je met est optional et peut être tout ce que tu veux dans ma fonction joindre texte

 

[sylvanu]

Re,
Le tiret ( "-" ), on pourrait avoir des nombres séparés par des virgules, points virgules ....

 

[patricktoulon]

a oui tu parle de l'existant ok
donc voila les deux fonctions modifiées toujours sans boucles

'le plus grand AVEC FONCTION MAX
Function maxInJoinTexteIncolumn(r As Range, Optional séparator As String = ",")
    Dim Tbl(), T
    T = Join(Application.Transpose(Application.index(r, 0, 1)), séparator)
    T = Replace(T, séparator & séparator, séparator)
    T = "{" & Replace(T, séparator, ",") & "}"
    Tbl = Evaluate(T)
    maxInJoinTexteIncolumn = Application.WorksheetFunction.Max(Array(Tbl()))
End Function

Sub test3()
    MsgBox maxInJoinTexteIncolumn([A5:A7], ",")
    MsgBox maxInJoinTexteIncolumn([A1:A3], "-")
End Sub

'*********************************************************************************
'le N eme plus grand avec fonction LARGE
Function maxInJoinTexteIncolumn2(r As Range, Optional séparator As String = ",", Optional index& = 1)
    Dim Tbl(), T
    T = Join(Application.Transpose(Application.index(r, 0, 1)), séparator)
    T = "{" & Replace(T, séparator, ",") & "}"
    Tbl = Evaluate(T)
    maxInJoinTexteIncolumn2 = Application.WorksheetFunction.Large(Tbl, index)
End Function

Sub test5()
    MsgBox maxInJoinTexteIncolumn2([A1:A3], "-", 1)
    MsgBox maxInJoinTexteIncolumn2([A1:A3], "-", 3)

    MsgBox maxInJoinTexteIncolumn2([A5:A7], ",", 1)
    MsgBox maxInJoinTexteIncolumn2([A5:A7], ",", 3)

End Sub

pour les formules c'est pareil avec un argument en plus

exemple pour pour la fonction avec match

=maxInJoinTexteIncolumn(A5:A7; ",")
=maxInJoinTexteIncolumn(A5:A7; "-")

exemple pour celle avec la fonction large

    =maxInJoinTexteIncolumn2(A1:A3; "-"; 1)'le premier
    =maxInJoinTexteIncolumn2(A1:A3; "-"; 3)'le 3 eme


    =maxInJoinTexteIncolumn2(A5:A7; ","; 1)
    =maxInJoinTexteIncolumn2(A5:A7; ","; 3)

 

[sylvanu]

Et hop, archivé.

 

[patricktoulon]

re
Maintenant faudrait pas qu'il y est des multiple séparators
car là justement pour simplifier le code je serait obligé de faire une boucle

 

[patricktoulon]

n'archive pas encore
tu la veux vertical et horizontale???

 

[patricktoulon]

@sylvanu
allez la version pour la max en vertical ou horizontal
maintenant celle là tu peux l'archiver

'le plus grand
Function maxInJoinTexteIncolumn(r As Range, Optional séparator As String = ",")
    Dim Tbl(), T
    If r.Rows.Count > 1 Then
    T = Join(Application.Transpose(Application.index(r, 0, 1)), séparator)
    Else
    T = Join(Application.index(r.Value, 1, 0), séparator)
    End If
    If Right(T, 1) = séparator Then T = Left(T, Len(T) - 1)
   T = "{" & Replace(T, séparator, ",") & "}"
    Tbl = Evaluate(T)
    maxInJoinTexteIncolumn = Application.WorksheetFunction.Max(Array(Tbl()))
End Function

Sub test3() 'test vertical
    MsgBox maxInJoinTexteIncolumn([A5:A7], ",")
    MsgBox maxInJoinTexteIncolumn([A1:A3], "-")
End Sub

Sub test4() 'test horizontal
MsgBox maxInJoinTexteIncolumn([A1:D1], "-")
End Sub