Re : recherche par rapport à 2 données
Bonjour,
Voici une solution par macro
Sub essai_01()
Dim tab1 'Crée une variable
Set tab1 = CreateObject("Scripting.Dictionary")
ligne = 2
While Cells(ligne, 4) <> ""
code_age = Int(Cells(ligne, 3) / 10)
If code_age > 6 Then code_age = 6
If code_age < 3 Then code_age = 2
ordre = Cells(ligne, 4)
cle = ordre & "_" & code_age
If tab1.exists(cle) Then
tab1(cle) = tab1(cle) + 1
Else
tab1(cle) = 1
End If
cle = xx
ligne = ligne + 1
Wend
Range(Cells(6, 7), Cells(10, 11)).ClearContents
For Each tmp In tab1
cle = tmp
ligne = Left(cle, 1) + 5
col = Right(cle, 1) + 5
Cells(ligne, col) = tab1(cle)
Next
End Sub
Avec les fonctions, si tu ajoutes des noms, il faudra que tu les mettes à jour