Bonjour,
Une autre proposition avec une fonction vba
Function ma_moyenne(mes_cells As Range)
Dim tb
tb = mes_cells
For i = 1 To UBound(tb)
If tb(i, 1) = "*" Then tb(i, 1) = 4
Next
ma_moyenne = Application.WorksheetFunction.Average((tb))
End Function
En C1 : =ma_moyenne(A2:A6)
Cdlt
@Pedro pourquoi la formule doit elle etre matricielle, elle semble fonctionner trés bien sans la validation a 3 touches?