somme des range().value

S

steven

XLDnaute Nouveau

• 16 Juin 2006

• #2

bonjour le forum
je voudrai calculer la somme des valeurs des ranges 'F' en fait j'ai fé la boucle suivante et je sais pas pourqoi ca marche pas:

Private Sub somme()
Dim L, i As Integer, T As Long
T = 0
L = Sheets(1).Range('A65536').End(xlUp).Row
With Sheets(1)

For i = 1 To L - 1
T = T + Range('F' & i).Value
Next i
.Range('F' & L+1) = 'total:' & T & ' !!!'
End With
End Sub

Message édité par: steven, à: 16/06/2006 11:18

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 16 Juin 2006

• #3

RE

ALors le forum je viens de faire super FORT

J'ai répondu à la question à 11:16 alors qu'elle n'a été posé qu'à 11:17

:woohoo: :woohoo: :woohoo: :woohoo:

Alors les amis qui peut faire la même chose ???

B) B)

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 16 Juin 2006

• #4

Re

Sinon tu irais peut-être plus vite sans boucle

Dim L as long

L = Sheets(&).Range('A65536').End(xlUp).Row
With Sheets(1)


.Range('F' & L + 1) = 'Total : ' & WorksheetFunction.Sum(.Range('F1:F' & L)) & ' !!!'


End With

Message édité par: Pascal76, à: 16/06/2006 11:29

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 16 Juin 2006

• #5

D'habitude, j'aurais bien dit EXCELlent, mais là force est de constater que c encore mieux :

EXCELrapide.

Bisous Pascal

 

Vote positif 0 Vote négatif

S

steven

XLDnaute Nouveau

• 16 Juin 2006

• #6

merci pascal
ca march trés bien

 

Vote positif 0 Vote négatif