Subtotal Customise

[teodormircea]

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😀

 

[wilfried_42]

Re : Subtotal Customise

Bonjour

mynum est une variable comme x et y et tu y mets une formule

ActiveCell[COLOR="Red"].formula [/COLOR]= "=SUBTOTAL[COLOR="red"](" & myNum & "[/COLOR]," & x & ":" & y & ")"

 

[teodormircea]

Re : Subtotal Customise

Merci pour ta reponsse.
Je voudrais savoir aussi s'il existe une solution qui detecte automatiquement ,
la derniere ligne d'une range de valeur et rajoute directement le soustotal,

 

[wilfried_42]

Re : Subtotal Customise

re:

Range("A65536").end(xlup).offset(1,0).formula = "=SUBTOTAL(" & myNum & "," & x & ":" & y & ")"

sinon, avec un n° de colonne (dans une boucle For Next)

Cells(65536,[COLOR="Red"]1[/COLOR]).end(clup).offset(1,0).formula = "=SUBTOTAL(" & myNum & "," & x & ":" & y & ")"

J'ai mis 1 (en rouge) pour la colonne A