Correction d'un boucle qui calcule le vide

Bonjour,

Merci de m'aider à corrigé ma boucle qui calcule le vide.

PJ

Bonjour,

A tester (d'après l'ancien code)

Bonjour,

Merci beaucoup

M12, houyam, Le forum

M12 a écrit :

Bonjour,

A tester (d'après l'ancien code)

Sauf erreur de ma part : À l'intérieur d'un With Ws, Range et Columns ne devraient-ils pas prendre un . devant ?

With ws
   For i = 5 To DernLigne
        .Range("E" & i).Formula = "=(" & "B" & i & "/" & TotalCell & ")*100"
   Next i
        .Columns("E").NumberFormat = "0.00"
End With

LaCéline

oui, sans le poind ça marche très bien

houyam, le forum

houyam a écrit :

oui, sans le point ça marche très bien

Oui, sans le point ça fonctionne. Mais cela ne garantit pas que Range et Columns seront bien ceux de Sheet1.

Ils seront ceux de la feuille en cours. C'est là la subtile nuance.

Il serait bon de prendre l'habitude de les mettre. Surtout si un jour la macro est déclenchée à partir d'une autre feuille.

LaCéline

même si j'ai précisé le sheet dans la boucle?