Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !
Function pmo_RecupNumLigne(Source As Range, Rechercher As Range) As Long
Dim var
Dim var2
Dim Lig&
Dim nb&
Dim i&
Dim j&
Dim k&
Dim cpt&
Dim result&
Application.Volatile
Lig& = Source.Row
var = Source
var2 = Rechercher
For i& = 1 To UBound(var2, 2)
If var2(1, i&) <> "" Then nb& = nb& + 1
Next i&
If nb& > 0 Then
For i& = 1 To UBound(var, 1)
cpt& = 0
If result& > 0 Then Exit For
For k& = 1 To UBound(var2, 2)
If result& > 0 Then Exit For
For j& = 1 To UBound(var, 2)
If var2(1, k&) <> "" Then
If var2(1, k&) = var(i&, j&) Then
cpt& = cpt& + 1
If cpt& = nb& Then
result& = i&
Exit For
End If
End If
End If
Next j&
Next k&
Next i&
End If
fin:
If result& > 0 Then
If Lig& = 1 Then
pmo_RecupNumLigne = result&
Else
pmo_RecupNumLigne = result& + Lig& - 1
End If
Else
pmo_RecupNumLigne = result&
End If
End Function
={EQUIV(5;FREQUENCE(NB.SI(K1:O1;$A$1:$J$9)*LIGNE($A$1:$J$9);LIGNE($A$1:$J$10)-1);0)-1}
={EQUIV(1;(FREQUENCE(SI(NB.SI(K1:O1;$A$1:$J$9)=0;"";NB.SI(K1:O1;$A$1:$J$9)*LIGNE($A$1:$J$9));LIGNE($A$1:$J$10)-1)>=5)*1;0)-1}
