Bonjour,
je dois faire des sous totaux dans un tableau. Ma colonne A de libellés n'est pas construite avec des cellules contigues (question de présentation).
Voici le code que j'ai fais, seulement, il ne marche pas, le resultat affiché n'est pas correct.

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
 
Dim LigneTotal, colTotal As Variant
LigneTotal = Range("A65536").End(xlUp).Address
LigneTotal = Range(LigneTotal).Row
For col = 2 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
If Cells(4, col) = "2006" Or Cells(4, col) = "2007" Then 'le sous totaux ne se font que sur les colonnes "2006" et "2007"For Rw = 5 To LigneTotal - 1
If Cells(Rw, 1) Like "Total*" Then 'pour repérer la ligne où il faut mettre le résultat du ss totalFor LigneNonVide = 5 To LigneTotal - 1
If Not IsEmpty(Cells(LigneNonVide, 1)) Then
Cells(Rw, col) = Cells(Rw, col) + Cells(LigneNonVide, col).Value
End If
Next LigneNonVide
End If
Next Rw
End If
Next col
Je ne comprends pas pourquoi le code me donne des résultats faux, si qqun peut m'aider...

Merci d'avance,

Livet