OVH Cloud OVH Cloud

Insertion Sous Totaux

3 réponses
Avatar
jeanmi69
Bonjour,

je dois insérer des sous-totaux dans un tableau sur des lignes Totale1 et 2
pré-existantes( position variable ), dans une même colonne

Ex : ColX Col Y
A 10
B 20
Total1 SousTOTAL A+B=30
C 30
D 50
Total2 SousTOTAL C+D=80

Débutant dans ce domaine je vous remercie par avance de votre aide

3 réponses

Avatar
FxM
Bonsoir,

=sous.total(9;Y1:Y2)
sélectionne sous.total et presse F1 pour le détail des fonctions.

@+
FxM


Bonjour,

je dois insérer des sous-totaux dans un tableau sur des lignes Totale1 et 2
pré-existantes( position variable ), dans une même colonne

Ex : ColX Col Y
A 10
B 20
Total1 SousTOTAL A+B0
C 30
D 50
Total2 SousTOTAL C+D€

Débutant dans ce domaine je vous remercie par avance de votre aide



Avatar
jeanmi69
J'ai oublié un détail : il s'agit d'inserer cette formule avec une macro.
Dans ma col Y à chaque cellule vide faire une somme des lignes se situant
juste au dessus.

Merci

"FxM" wrote:

Bonsoir,

=sous.total(9;Y1:Y2)
sélectionne sous.total et presse F1 pour le détail des fonctions.

@+
FxM


Bonjour,

je dois insérer des sous-totaux dans un tableau sur des lignes Totale1 et 2
pré-existantes( position variable ), dans une même colonne

Ex : ColX Col Y
A 10
B 20
Total1 SousTOTAL A+B0
C 30
D 50
Total2 SousTOTAL C+D€

Débutant dans ce domaine je vous remercie par avance de votre aide






Avatar
AV
J'ai oublié un détail : il s'agit d'inserer cette formule avec une macro.
Dans ma col Y à chaque cellule vide faire une somme des lignes se situant
juste au dessus.



Sub zz()
For i = [Y65536].End(3).Row + 1 To [Y:Y].Find("").Row Step -1
With Cells(i, "Y")
If .Value = "" Then
ad1 = .Offset(-1, 0).End(3).Address
ad2 = .End(3).Address
.Value = "=sum(" & ad1 & ":" & ad2 & ")"
End If
End With
Next
End Sub

AV