Discussion :

[bebel9313]

Salut
voila j'amerai utiliser la fonction somme de plusieurs cellules. et mettre le résultat dans une autre cellule.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(3, 7) = somme(Cells(5, 22), Cells(200, 22))

Et puis deuxième questions

comment faire pour intégrer une variable dans le range?

à la base on peut avoir
range("A2:B6") et maintenant je veux range("Ai:Bj") avec i et j comme condition avec if ou for. Mais la dernière solution ne marche pas.
merci

[jfontaine]

pour la premiere question

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(3, 7) = somme(Cells(5, 22), Cells(200, 22))

c'est identique à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(3, 7) = Cells(5, 22) + Cells(200, 22)

comment faire pour intégrer une variable dans le range?

Comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("A" & i &":B" & j)

[bebel9313]

Salut
voila j'amerai utiliser la fonction somme de plusieurs cellules. et mettre le résultat dans une autre cellule.
Voici le code:

Cells(3, 7) = somme(Cells(5, 22): Cells(200,22))

j'avais mal posé ma question
Mais pour faire la somme de la cellule (5,22) à la cellule (200,22) par exemple.

J'ai essayé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(3, 7) = somme(Cells(5, 22): Cells(200, 22))

mais ça ne marche pas.

[LeForestier]

bonjour,
Une solution....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'----Dans un module
Dim i as integer
Dim j as integer
 
Sub Macro1()
    Sheets("feuil1").Select  ' a ajuster bien sur
    range("A" & i &":B" & j).Select ' pour pouvoir changer la sélection par variable
    Dim cel As Range
    Dim Tot as double
    For Each cel In Selection
        Tot = Tot + cel.value
    Next cel
    Cells(3, 7).value = Tot
End Sub

A+

Edit: Il y a bien une autre solution, mettre la formule =Somme(etc.. dans la cellule Cells(3,7) mais je ne sais pas si cela te conviendrais.

[jfontaine]

Essai comme ca pour l'utilisation de somme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2").FormulaLocal = "=somme(" & Cells(1, 1).Address & ":" & Cells(4, 1).Address & ")"

Evidemment tu modifies les coordonnées des cellules

[LeForestier]

Salut JFontaine, les "grand esprits se rencontrent"
Tu à mis ta formule pendant que j'éditait.
Cordialement