P
Pias
Guest
Bonsoir le Forum
-------------------------------------------------
Sub Souscommande()
Sheets("Commande").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R9C:R[-1]C)"
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R9C:R[-1]C)"
End Sub
--------------------------------------------------------------------------
Le Macro ci-dessus envoie un Sous Total dans les colonnes B et C a partir de la ligne 9, il fonctionne très bien, mais à la condition que au moins la ligne 9 contienne un chiffre.
Si elle est vide ça provoque une référence circulaire.
Est-ce que quelqu’un a une idée de comment je peu éviter le problème, peut-être avec des if, mais moi je n’ai pas réussi.
Merci d’avance
Amicalement
...On se lasse de tout sauf d’apprendre !..
-------------------------------------------------
Sub Souscommande()
Sheets("Commande").Select
Range("B65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R9C:R[-1]C)"
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R9C:R[-1]C)"
End Sub
--------------------------------------------------------------------------
Le Macro ci-dessus envoie un Sous Total dans les colonnes B et C a partir de la ligne 9, il fonctionne très bien, mais à la condition que au moins la ligne 9 contienne un chiffre.
Si elle est vide ça provoque une référence circulaire.
Est-ce que quelqu’un a une idée de comment je peu éviter le problème, peut-être avec des if, mais moi je n’ai pas réussi.
Merci d’avance
Amicalement
...On se lasse de tout sauf d’apprendre !..