sous.total () sous vbe

deudecos

XLDnaute Impliqué
Bonjour a toutes et a tous,

Me voila de nouveau face a une impasse... ;)

Ma question est dans le fichier joint, mais en gros il est question d'adapter =Sous>Total() en vba...Avec une ou deux variantes casse bonbon en plus... :)

Bonne soiree

Olivier [file name=Deudecos_20060203191428.zip size=2320]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Deudecos_20060203191428.zip[/file]
 

Pièces jointes

  • Deudecos_20060203191428.zip
    2.3 KB · Affichages: 7

MichelXld

XLDnaute Barbatruc
bonsoir Olivier

j'espere que cet exemple pourra t'aider

Sub sommeConditionnel()
Dim Cellule As Range
Dim i As Integer, j As Integer

Set Cellule = Application.InputBox('Sélectionnez une plage de cellules', Type:=8)

i = Cellule.Row + Cellule.Rows.Count + 1
j = Cellule.Column
Cells(i, j) = Application.WorksheetFunction.Subtotal(9, Range(Cellule.Address))
End Sub




bonne soiree
MichelXld
 

Statistiques des forums

Discussions
311 720
Messages
2 081 923
Membres
101 840
dernier inscrit
SamynoT