somme des range().value

[PascalXLD]

Bonjour

Il manque un point

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

 

[steven]

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

 

[PascalXLD]

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) 😛

 

[PascalXLD]

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

 

[Brigitte]

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

EXCELrapide.

Bisous Pascal

 

[steven]

merci pascal
ca march trés bien