teodormircea
XLDnaute Occasionnel
Bonjour tout le monde
Je suie en train de faire un petit code pour inserer un subtotal a la derniere ligne pour toutes les colonnes d'une feuille excel
voil le travail jusq'a maintenant, mais il ya pas le resultat
Sub AutoSubtotal_Formula()
Dim x As String
Dim y As String
Dim myNum As Long
x = ActiveCell.Offset(-1, 0).End(xlUp).Address
y = ActiveCell.Offset(-1, 0).End(xlToRight).Address
myNum = Application.InputBox("Enter a number")
ActiveCell = "=SUBTOTAL(myNum," & x & ":" & y & ")"
End Sub
mon input box marche pas, je veux mettre le type du soustotal, mais aussi pour toutes les colonnes d'une feuille.
Merci et bonne journee a tous😀
Je suie en train de faire un petit code pour inserer un subtotal a la derniere ligne pour toutes les colonnes d'une feuille excel
voil le travail jusq'a maintenant, mais il ya pas le resultat
Sub AutoSubtotal_Formula()
Dim x As String
Dim y As String
Dim myNum As Long
x = ActiveCell.Offset(-1, 0).End(xlUp).Address
y = ActiveCell.Offset(-1, 0).End(xlToRight).Address
myNum = Application.InputBox("Enter a number")
ActiveCell = "=SUBTOTAL(myNum," & x & ":" & y & ")"
End Sub
mon input box marche pas, je veux mettre le type du soustotal, mais aussi pour toutes les colonnes d'une feuille.
Merci et bonne journee a tous😀