Oi Pias,
Eu aqui de novo... Tubo bom com você ?
Plusieurs options :
1/ Si tu remplaces la formule par celle-ci tu auras la formule dans toute la colonne D mais pas les zéros. Elle correspond sur Excel à une formule conditionnelle simple :
=SI(OU(B1=0;C1=0);"";B1*C1). Avantage : si tu rajoutes des valeurs en B et C le calcul se fera toujours…
Sub Macro1() 'formule D=B*C
Columns("D
").FormulaR1C1 = "=IF(OR(RC[-2]=0,RC[-1]=0),"""",RC[-2]*RC[-1])"
End Sub
2/ Menu
Outil/Options..., onglet
Affichage, partie
Fenêtres, décocher la case
Valeur zéro. Inconvénient : si tu veux voir les zéros dans d’autres cellules car c'est
tout ou rien…
3/ code VBA, Rajouter ces quelques lignes après la formule (si tu gardes la tienne, car avec la mienne ce n'est pas nécessaire). Inconvénient : en cas de nouvelle édition en B et C il faudra relancer la macro…
Dim li As Long 'déclare la variable li
'définit la variable li (dernière ligne éditée de la colonne B + 1)
li = Range("B65536").End(xlUp).Row + 1
Range("D" & li & "
65536").ClearContents 'efface de Dli à D65536
À plus,
Robert