deudecos XLDnaute Impliqué 3 Février 2006 #1 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
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]
M MichelXld XLDnaute Barbatruc 3 Février 2006 #2 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 Vote positif 0 Vote négatif
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! XLDnaute Barbatruc 3 Février 2006 #3 Bonsoir deudecos, MichelXld, Ou également : Selection.Cells(Selection.Count).Offset(2, 0).Value = Application.Subtotal(9, Selection) Cliquez pour agrandir... Cordialement, Vote positif 0 Vote négatif
Bonsoir deudecos, MichelXld, Ou également : Selection.Cells(Selection.Count).Offset(2, 0).Value = Application.Subtotal(9, Selection) Cliquez pour agrandir... Cordialement,
deudecos XLDnaute Impliqué 3 Février 2006 #4 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 Vote positif 0 Vote négatif
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