XL 2019 Valeur maxi d'une colonne

Caninge · 17 Avril 2021

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 · 19 Avril 2021

Bonjour @ tous,
Salut patricktoulon

patricktoulon à dit:
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 :

VB:

=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 · 19 Avril 2021

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

Code:

=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 · 19 Avril 2021

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 · 19 Avril 2021

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 · 19 Avril 2021

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

patricktoulon · 19 Avril 2021

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

VB:

'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

Code:

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

exemple pour celle avec la fonction large

Code:

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


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

sylvanu · 19 Avril 2021

Et hop, archivé.

patricktoulon · 19 Avril 2021

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 · 19 Avril 2021

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

patricktoulon · 19 Avril 2021

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

VB:

'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

XL 2019 Valeur maxi d'une colonne

Caninge

XLDnaute Accro

Pièces jointes

R@chid

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Texte - JOINDRE_TEXTE2007

sylvanu

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires