Utiliser une fonction excel dans une macro et proprièté range

Version imprimable

11/08/2007, 13h26
bebel9313

Utiliser une fonction excel dans une macro et proprièté range

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

Code:

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
11/08/2007, 13h30
jfontaine

pour la premiere question

Code:

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

c'est identique à

Code:

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

Citation:

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

Comme ca

Code:

range("A" & i &":B" & j)
11/08/2007, 13h41
bebel9313

Citation:

Envoyé par 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:

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

mais ça ne marche pas.

bonjour,
Une solution....

Code:

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.

11/08/2007, 14h23
jfontaine

Essai comme ca pour l'utilisation de somme

Code:

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

Evidemment tu modifies les coordonnées des cellules
11/08/2007, 14h25
LeForestier

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