Bonsoir à toute l'équipe d'excel pratique,
en effet, mon pb vient du format des cellules à l'import, mais j'ai en parti résolu mon pb avec CDec.
For Each cel3 In Worksheets(nomFeuil).Range("E2:E16").Cells
Cpt = Cpt + 1
If IsNumeric(cel3) Then Worksheets(nomFeuil).Cells(1 + Cpt, 5) = CDec(cel3.Value) * 100 'cel3.Value * 100 CDbl(cel3.Value) IsNumeric(cel3)
If cel3.Font.Bold = True And IsNumeric(cel3) Then
Worksheets(nomFeuil).Cells(1 + Cpt, 11) = 1
Else
If cel3.Value = Empty Then
Else
Worksheets(nomFeuil).Cells(1 + Cpt, 11) = "MG"
End If
End If
Next
@ Amadéus
Ta formule
=SOMMEPROD((E$2:E$16=C31)*(E$2:E$16<>"")*(K$2:K$16))
Merci