if et Sous Total

[Pias]

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 !..

 

[Lord Nelson]

Salut Pias,

Essaie ceci :

Sub Souscommande()
Sheets("Commande").Select


Range("B65536").End(xlUp).Offset(1, 0).Select
If ActiveCell.Row > 9 Then
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R9C:R[-1]C)"
End If
Range("C65536").End(xlUp).Offset(1, 0).Select
If ActiveCell.Row > 9 Then
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R9C:R[-1]C)"
End If
End Sub

A+
Horatio

 

[@+Thierry]

Bonjour Pias, Horatio, le Forum

Une autre approche :

Sub SousTotalCommande()
Dim L As Integer, C As Byte
  With Sheets("Commande")
     L = .Range("B65536").End(xlUp).Row
        For C = 2 To 3
           .Cells(L + 1, C).Formula = "=SUBTOTAL(9," & .Cells(1, C).Address(0, 0) & ":" & .Cells(L, C).Address(0, 0) & ")"
        Next
  End With
End Sub

Bonne Journée
@+Thierry

 

[Pias]

Bonjour Lord Nelson, Thierry et le Forum

Ça fonctionne c’est super.
Vous étés de vrais Pères Noël !...
Merci beaucoup.
Je vous souhaite un excellent fin d’après midi.
Amicalement

...On se lasse de tout sauf d’apprendre !..