Discussion :

[exqo77]

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 :

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

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 :

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

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

mais sans succès...

Cordialement,
eXqO

[Krovax]

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

Code :

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

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

[exqo77]

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 "-"

[Krovax]

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

Code :

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

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 :

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

msgbox selection.row-result

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

[exqo77]

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 :

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

Range("A4:B44").Select

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

J'ai pensé à faire

Code :

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

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

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

[Krovax]

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 :

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

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

[exqo77]

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

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

Code :

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

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

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

Nouveau code :

Code :

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

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

[Krovax]

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

Code :

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

range("A4:B46")

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

Code :

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

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

[exqo77]

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 :

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

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

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

[Krovax]

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 :

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

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