question sur "for each"

Salut stoody et le forum,

T'es dur pour un lundi, je ne suis vraiment pas sure d'avoir compris ce que tu cherches mais tu peux utiliser les cellules en les incrémentant automatiquement, du style

for each CELLULE in Selection
range("A1") = Range("A1") + CELLULE
Next

Sinon reformule pour que nous puissions t'aider
@+
valérie

Bonsoir stoody, Valérie et le forum

Pas très clair la question comme a dite Valérie

Voici un autre possibilité ))) tiré par les cheveux Hi! Hi! Hi!

Sub Somme_tableau()
Dim myRange As Range
Set myRange = Worksheets("Feuil1").Range("A1:C3")
answer = Application.WorksheetFunction.Sum(myRange)
MsgBox ("somme des cellules = " & answer)
End Sub

A suivre

P.S. Prière d'accuser réception si cela te convient
ou ne convient pas en répondant sur ce Post ... Merci !

merci a vous duex
apparement Mytå a plus compris ma question
lasi juste peux tu m'expliquer la fonction answer, je ne la coannais pas.
merci

re stoody

answer c'est la variable de stockage, j'aurais pu prendre a, b, total


Mytå