VBA : Somme en colonnes

[bertrand1202]

VBA : Somme en colonnes par plage entre deux intitulés sur autre colonne

Bonsoir à tous


J'essaie defaire une formule somme en VBA, mais ça ne pmarche pas .

Je souhaiterais que lorsqu'il rencintre Total1 sur la prmière colonne , il me fasse la somme de colonne deux entre cumul et ligne total 1
de même entre toal2 et total 1

Je n'arrive pas à voir comment il faut poser le If et le ansd , car les cellules Total1 et total2 peuvent varier si l'on insère une ligne.

Quand à Sum ,il n'accete pas ="sum. Sur quel argument faut il jouer pour qu'il reconnaisse Sum et ligne départ et ligne fin

Merci de vos mumières
Bonne soirée., je continue à chercher.

 

[bertrand1202]

Re : VBA : Somme en colonnes

Bonjour


En essayant avec une formule plus simple, la macro seble bonne mais n'affiche aucun résultat.
Merci de votre aide.
@+

 

[Robert]

Re : VBA : Somme en colonnes

Bonjour Bertrand, Jean-marcel, bonjour le forum,

Jean-Marcel a été plus rapide mais puisque c'est fait je t'envoie une autre proposition :

Sub Totalisationcolonne()
Dim ld1 As Integer 'déclare la variable ld1 (Ligne de Départ 1)
Dim lf1 As Integer 'déclare la variable lf1 (Ligne de Fin 1)
Dim ld2 As Integer 'déclare la variable ld2 (Ligne de Départ 2)
Dim lf2 As Integer 'déclare la variable lF1 (Ligne de Fin 2)
 
ld1 = 7 'définit la variable ld1
lf1 = Columns(1).Find("Total1").Row - 1 'définit la variable lf1
ld2 = lf1 + 2 'définit la variable ld2
lf2 = Columns(1).Find("Total2").Row - 1 'définit la variable lf2
'place la somme Total1
Cells(lf1 + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(ld1, 2), Cells(lf1, 2)))
'place la somme Total2
Cells(lf2 + 1, 2).Value = Application.WorksheetFunction.Sum(Range(Cells(ld2, 2), Cells(lf2, 2)))
End Sub

 

[bertrand1202]

Re : VBA : Somme en colonnes

Bonour Jean Marcel et Robert

Merci de la célérité de vos réponses.je vais donc essayer et surtout essayer de comprendre .

merci encore.
Bonne journée