Discussion :

[will Igetit]

Bonjour, j'essai d#automatiser en cliqaunt sur un bouton le fait que ma spread sheet face le subtotal colonne deux en changeant a chaque changement colonne 1.
probleme je ne connais la fonction subtotal en vba est ce que quelqu#un serait faire cela ?

[zazaraignée]

1. Relis ton message. Si comme moi, tu ne comprends pas, corriges le. Utilise les points, les virgules et les majuscules de début de phrase. Ça aide...
2. Mets le code que tu veux qu'on examine. Juste le bout de code qui pose problème. Pas tout un fichier.
3. Dernier conseil et non le moindre: lire les règles (le lien est sous ma signature).

zaza

[will Igetit]

Desole aujourd'hui j'ecris avec un clavier des plus etranges, de sorte que je peine a ecrire correctement.
Mon code que je n'ecrirai pas en l'etat car il est horriblement long pour faire quequechose qui j'en suis sur est tres simple.
je souhaite juste autmatiser lfonction subtotal qui se trouve dans tools apres avoir selectionner les element de ma premiere colonne.

pour info mon code regarde les elenment de la premiere colonne s#il ý aun changement alors il insere une ligne et somme les elements de la seconde colonne jusqu#a ce qü'il trouve un vide qu#il rempli avec la somme puis recommence l'operation a ligne suivant le vide en se remettant colonne 1. c#est un peu lourd ... donc je vuolais savoir si une fnoction plus simple existait

[will Igetit]

bon jai trouve qqch de simple mais de visuellement ingras qui replique la fonction subtotal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Dim DerCel As Long
DerCel = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
'Cells(1, 1) = DerCel
 
Dim i As Integer
Dim subtotal As Variant
subtotal = Cells(1, 2)
 
For i = 1 To DerCel
 
If Cells(i, 1) = Cells(i + 1, 1) Then
subtotal = subtotal + Cells(i + 1, 2)
Else: Cells(i, 3) = "subtotal for strategy" & " " & Cells(i, 1).Text & " ="
Cells(i, 4) = subtotal
subtotal = Cells(i + 1, 2)
End If
Next i
 
Dim j As Integer
Dim k As Integer
 
k = 1
For j = 1 To DerCel
 
If Cells(j, 4) <> Empty Then
Cells(k, 5) = Cells(j, 4)
k = k + 1
 
Else: End If
 
Next j
 
 
End Sub