=INDEX(NOMS;GRANDE.VALEUR((champ=MAX(LIVRE))*LIGNE(champ)*(titre="LIV RE");LIGNES($1:1))- LIGNE(champ)+1) Valider avec maj+ctrl+entrée
-Recopier -Masquer #N/A avec MFC
JB
On 14 fév, 20:44, magic-dd wrote:
merci à tous pour cet élan de partage mais une question m'interpel le
si 2 personnes où plus on le meme chiffre dans la meme colonne CD par exemple
est il possible de faire ressortir les noms correspondants
merci et désolé de cet élément que je n'avais pas évoqué aupa ravant
Tatanka
Public Function maxi(plage As Range) As String Application.Volatile Dim c As Range Dim ligne() n = Range("NOMS").Count ReDim ligne(n) For Each c In plage If c.Value = Application.Max(plage) Then i = i + 1 ligne(i) = c.Row End If Next c For j = 1 To i nom = nom & " " & Worksheets(plage.Parent.Name).Cells(ligne(j), Range("NOMS").Column) Next j maxi = nom End Function
Serge
"magic-dd" a écrit dans le message de news:
merci à tous pour cet élan de partage mais une question m'interpelle
si 2 personnes où plus on le meme chiffre dans la meme colonne CD par exemple
est il possible de faire ressortir les noms correspondants
merci et désolé de cet élément que je n'avais pas évoqué auparavant
Public Function maxi(plage As Range) As String
Application.Volatile
Dim c As Range
Dim ligne()
n = Range("NOMS").Count
ReDim ligne(n)
For Each c In plage
If c.Value = Application.Max(plage) Then
i = i + 1
ligne(i) = c.Row
End If
Next c
For j = 1 To i
nom = nom & " " & Worksheets(plage.Parent.Name).Cells(ligne(j), Range("NOMS").Column)
Next j
maxi = nom
End Function
Serge
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de news:
3a2ef172-fe3d-4e20-8156-64a037772de6@36g2000yqu.googlegroups.com...
merci à tous pour cet élan de partage mais une question m'interpelle
si 2 personnes où plus on le meme chiffre dans la meme colonne CD par
exemple
est il possible de faire ressortir les noms correspondants
merci et désolé de cet élément que je n'avais pas évoqué auparavant
Public Function maxi(plage As Range) As String Application.Volatile Dim c As Range Dim ligne() n = Range("NOMS").Count ReDim ligne(n) For Each c In plage If c.Value = Application.Max(plage) Then i = i + 1 ligne(i) = c.Row End If Next c For j = 1 To i nom = nom & " " & Worksheets(plage.Parent.Name).Cells(ligne(j), Range("NOMS").Column) Next j maxi = nom End Function
Serge
"magic-dd" a écrit dans le message de news:
merci à tous pour cet élan de partage mais une question m'interpelle
si 2 personnes où plus on le meme chiffre dans la meme colonne CD par exemple
est il possible de faire ressortir les noms correspondants
merci et désolé de cet élément que je n'avais pas évoqué auparavant