Somme avec une variable

Bonjour,

Ma feuille obtient via une base de données des résultats cependant ceux-ci diffère en nombre à chaque fois.
Je dois effectué un total de ces résultats mais je n'arrive pas à effectuer une somme avec une variable qui correspond au nombre de résultat de la requête.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Range("A65536").End(xlUp).Offset(0, 1).Select ActiveCell.FormulaR1C1 = "=SUM(R[-40]C:R[-1]C)" Selection.Font.Bold = True With Selection .HorizontalAlignment = xlRight .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With

---

Il faudrait qu'à la place du -40 je puisse y mettre une variable "result" qui contient mon nombre de résultat.
Je 'ai essayé avec :

Code:

---

SUM(R[-& result]C:R[-1]C)

---

mais sans succès...

Cordialement,
eXqO

Bonjour,
Tu y étais presque il faut juste marquer la fin de la chaine de caractère avant le &

Code:

---

"=SUM(R[ -" & result & "]C:R[-1]C)"

---

Il m'annonce une erreur...

"Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet"


EDIT: Résolu ! Ca venait de l'espace avant le "-" ;)

montre le code une fois la modif de faite
et au passage vérifie le contenue de ta variable result

Code:

---

msgobx result

---

juste avant la ligne qui plante
Vérifie aussi que la cellule sur laquel tu es -result ligne ca ne te fait pas remonté au dessus de la première ligne

Code:

---

msgbox selection.row-result

---

(tjs juste avant la ligne qui pose problème)

Oui mon problème venait aussi du fait que ma variable passait au dessus de la ligne 1 ;)

J'ai une autre question, comme faire pour mettre une variable dans un intervalle de cellule ?

Code:

---

Range("A4:B44").Select

---

Au lieu du 44 j'aimerai mettre ma variable "result"+1.

J'ai pensé à faire

Code:

---

Range("A4:B& result &+1").Select

---

(mais c'est plus du bidouillage qu'autre chose :mrgreen:)

Les " permette de délimiter le début et la fin d'une chaine de caractère.
result+1 n'est pas une chaine de caractère, le & non plus
essaye ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11

dim a as integer, b as integer a=5 b=6 msgbox "La première variable vaut : a" msgbox "La première variable vaut : & a" msgbox "La première variable vaut : " & "a" msgbox "La première variable vaut : " & a msgbox "Le produit des variable vaut : & a*b " msgbox "Le produit des variable vaut : " & "a*b " msgbox "Le produit des variable vaut : " & a*b

---

Après ca tu devrais avoir la solution ;)

Apparemment mon cas se rapprocherai plus de la dernière proposition.

Cependant j'vois toujours pas comment l'intégrer à mon intervalle

Code:

---

Range("A4":"B" "& cpt + 1).Select

---

:?


EDIT : Erreur dem a part, il y a un " en trop !

Nouveau code :

Code:

---

Range("A4:B" & cpt + 1).Select

---

Voila tu as trouvé
Tu veux si cpt =45 tu veux ecrit

Code:

---

range("A4:B46")

---

ta chaine de caractère est donc "A4:B46"
donc c'est bien

Code:

---

range("A4:B" & cpt+1)

---

Je viens d'essayer de mettre une variable de part et d'autre de l'intervalle afin de rester sur la même ligne, cependant il m'annonce qu'il manque un séparateur alors que j'ai suivi la même démarche que précédemment, voilà le code :

Code:

---

Range("B" & semaine+5":L" & semaine+5).Select

---

'L'erreur se situe au niveau du ":L"...

il te manque un & tu doit en mettre entre chaque chaine de caractère que tu veu acoller (si tu met une variable c'est ca valeur qui est transformer en chaine de caractère)

Code:

---

Range("B" & semaine+5 & ":L" & semaine+5).Select

---