Bonjour,
J'ai commencé par créer cette Function mais je galère car c'est trop complexe pour moi. Trop d'elements à prendre en compte.
Function NbMatch$(Nom, xPlageNOmG As Range, xPlageValeursG As Range, xPlageNOmP As Range, xPlageValeursP As Range)
Dim t, vg, nbvg&, I&, j&
vg = xPlageValeursG.Value2: Nom = xPlageNOmG.Value
vp = xPlageValeursP.Value2: Nom = xPlageNOmG.Value
For j = 1 To UBound(vg, 2)
If vg(1, j) = "" Then
nbvg = nbvg + 1
End If
Next j
If nbvg = xPlageValeursG.Cells.Count Then
NbMatch = "": Exit Function
Else
NbMatch = nbvg
End If
End Function
Bonne journée