sous.total () sous vbe

[deudecos]

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]

 

[MichelXld]

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

 

[myDearFriend!]

Bonsoir deudecos, MichelXld,

Ou également :

Selection.Cells(Selection.Count).Offset(2, 0).Value = Application.Subtotal(9, Selection)

Cordialement,

 

[deudecos]

Bonsoir Michel et Didier,

Merci a vous deux, vos reponses sont exactement ce que je cherchais. Et Dieu sait si j'ai cherche ! 🙂

Bonne soiree

Olivier