Discussion :

[chouki60]

bonjour,
J'ai à nouveau un probleme.. Je souhaite faire une somme horizontale de valeurs dans un tableau excel. La ligne est la numéro 13. J'ai fait une macro, voici ce que ca donne :

Range("N24").Select
' ActiveCell.FormulaR1C1 = "=SUM(R[-2]C[-12]:R[-2]C)"

Alors j'ai essayé de faire un programme d'aprés cette macro et c'est je pense le "FormulaR1C1" que je n'arrive pas bien à saisir..

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
 
    For i = 2 To 10000
        cellule$ = "L" & Format(i)
        Contenu$ = ActiveCell.FormulaR1C1.Range
        
            If Contenu$ = client$ Then
                cellule$ = "13" & Format(i)
                somme = somme + ActiveCell.FormulaR1C1.Range
            End If
    Next i
    
    If Num_sem < 26 Then
       cellule$ = Chr$(65 + Num_sem)
       ElseIf Num_sem < 52 Then
          cellule$ = "A" & Chr$(64 + Num_sem - 25)
          Else
             cellule$ = "BA"
    End If
    
    cellule$ = cellule$ & "10"
    Range(cellule$).Select
    ActiveCell.FormulaR1C1 = somme

Quand je lance le programme pas à pas une erreur arrive à la ligne que j'ai mis en rouge , "erreur 424 : objet requis"

Quelqu'un a une idée de l'erreur?

Merci

[Krovax]

Parce que

Code :

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

ActiveCell.FormulaR1C1.Range

n'a aucun sens

FormulaR1C1 permet de mettre une formule dans ta cellule
Range permet de selectioner une celulle
On utiliste donc

Code :

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

Range("A1").FormulaR1C1 = "=SUM(R[-2]C[-12]:R[-2]C)"

Utilise l'aide pour plus d'info

Après je ne connai aps le coup du $ à la fin des variable je déclare les variable en début de module mais essaye de faire quelque chose comme ca

dim contenu as string
Contenu = range(""L" & i").value
somme = somme + cells(ton num de ligne ,ton num de colonne).value

[Gorfael]

Salut chouki60 et le forum
Sans tenir compte de ta macro

Je souhaite faire une somme horizontale de valeurs dans un tableau excel. La ligne est la numéro 13. J'ai fait une macro, voici ce que ca donne :
Range("N24").Select
' ActiveCell.FormulaR1C1 = "=SUM(R[-2]C[-12]:R[-2]C)"

Ton code fait : sélectionner N24 (qui devient la cellule active)
dans la cellule active coller la formule L1C1 : sommer de la cellule 12 colonne avant(C[-12]) 2 lignes au-dessus (R[-2]) à la cellule même colonne (C) deux lignes au-dessus (R[-2])
Ce qui donne, en plus clair :

Code :

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

Range("N24").FormulaLocal = "=somme(B22:N22)"

Ce qui me donne mal à la tête : quel rapport entre tes explications et ta formule ?
Le but de donner plusieurs informations, c'est de préciser le problème. Enfin pour moi!!
A+