Discussion :

[beta007]

bonjour,
je pensais avoir tout bien respecté comme dans les tuto, mais...
j'ai fait plusieurs essai mais cela ne passe pas et je ne comprends pas pourquoi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Do While Cells(Ligne, 2) <> ""
    If Cells(Ligne, 1) <> Cells(Ligne + 1, 1) Then
        Resultat = Ligne - LigneQ
        Cells(Ligne, 9).FormulaR1C1 = "=SUM(R[-""resultat""]C[-1]:RC[-1])"
        If Cells(Ligne, 1) <> Cells(Ligne - 1, 1) Then
            LigneQ = Ligne
        End If
    End If
    Ligne = Ligne + 1
Loop

quelqu'un pourrait-il m'éclairé pourquoi vba ne reconnait pas ma variable dans ma formule malgré que j'aille bien mis les doubles "?
merci d'avance de votre aide

[Jean-Philippe André]

Salut

Code :

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

Cells(Ligne, 9).FormulaR1C1 = "=SUM(R[-" & resultat & "]C[-1]:RC[-1])"

[beta007]

comme d'habitude c'est d'une évidence une fois que l'on voit la réponse
merci de ta réactivité