Discussion :

[cinc]

Bonjour a tous je suis sous VB 6.3 et j'ai un petit soucis avec la fonction SUM()
voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Somme_gdtotal()
'
' Somme_gdtotal Macro
' Macro enregistrée le 23/08/2007 par  Paul
'
 
'
 
    Range("A1").Select
    Cells.Find(What:="gdtotal", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    debut = ActiveCell.Row
    colonne = ActiveCell.Column
    ActiveCell.Offset(1, 0).Select
    Selection.End(xlDown).Select
    fin = ActiveCell.Row
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[debut]C:R[fin]C)"
    ActiveCell.Offset(1, 0).Select
 
End Sub

Et j'ai un message d'erreur, alors que mes variables prennent bien les bonnes valeurs. Si je remplace les variables "debut" et "fin" par des chiffres ça fonctionne ???

Merci de votre aide
Polo

[ced600]

Je ne suis pas un expert en VBA, mais je pense que cela marcherais mieux si à la palce de cela :

Code :

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

ActiveCell.FormulaR1C1 = "=SUM(R[debut]C:R[fin]C)"

tu fait :

Code :

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

ActiveCell.FormulaR1C1 = "=SUM(R[" & debut & "]C:R[" & fin & "]C)"