Comptage résultat

Bonjour ,

Dans le fichier ci-joint les explications pour le résultat souhaité

Je vous remercie pour votre aide

Hello,

Une solution en VBA :

=MinColA(A2:E7)

Function MinColA(rng As Range) As Integer
    Dim rngRow As Range
    Dim intMin As Integer, intCompteur As Integer
    For Each rngRow In rng.Rows
        intMin = Application.WorksheetFunction.Min(rngRow)
        If intMin = rngRow.Cells(1).Value Then intCompteur = intCompteur + 1
    Next rngRow
    MinColA = intCompteur
End Function

Bonjour

Merci pour ton aide

J'ai mis ton code dans le module de la feuille ,mais ça ne fonctionne pas

Bonjour Joco7915, Rag02700, le forum,

Peut-être ainsi :

If intMin = rngRow.Cells(1, 1).Value Then intCompteur = intCompteur + 1

Cela me retourne bien 3.

Cordialement,

Bonjour xorsankukai

merci pour ton aide

Mais ça ne fonctionne toujours pas

Re,

La fonction de Rag02700 s'utilise comme une formule excel classique....

• Tu colles le code dans un module standart.
• Dans ta cellule J2, tu écris la formule =MinColA() et tu sélectionnes la plage.

Cordialement,

Re bonjour

ça ne pouvait pas fonctionner j'avais mis le code dans la feuille (Alt+F11)

Merci encore

Bonne journée