Résultat automatique en erreur

Bonjour ,

Sur ce fichier avant la pondération se faisait de manière automatique et le résultat ce mettait de base.

Or depuis peu sans rien toucher ca ne fonctionne plus ?

Je ne comprend pas pourquoi

Un énorme merci de votre aide

Bonjour,

J'ai l'impression que le nom de votre fonction a été modifié mais mal modifié :

Function PondreParLigne(Plage As Range)
Application.Volatile
NombreCellule = Plage.Count / 4
For I = 1 To NombreCellule
    Ligne = Plage(I, 1).Row
    Pourcentage = Pourcentage + Cells(Ligne, 1)
    If Cells(Ligne, 4) <> "" Then PondreParLigne = PondreParLigne
    If Cells(Ligne, 5) <> "" Then PondreParLigne = PondreParLigne + 2 * Cells(Ligne, 1)
    If Cells(Ligne, 6) <> "" Then PondreParLigne = PondreParLigne + 4 * Cells(Ligne, 1)
    If Cells(Ligne, 7) <> "" Then NonPrisEnCompte = NonPrisEnCompte + Cells(Ligne, 1)
Next I
PondreParLigne = PondreParLigne * Pourcentage / (Pourcentage - NonPrisEnCompte)
End Function

Utilisez PondreParLigne dans le fichier joint et non pondèreparligne.

Cdlt,

C'est exactement cela un grand merci pour tout.