Probleme Somme

[Excelced]

Bonjour le Forum,

j'ai un soucis de rédaction pour réaliser une somme sur un nombre variable de cellule (toutes dans la même colonne)
Je n'arrive pas à écrire correctement la somme

voici ce que j'ai écrit

Sub Sous_Totaux()
Dim i As Integer
Dim fin As Integer

fin = Range("L" & i).End(xlDown).Row

For i = 9 To 2000
    If Cells(i, 7) = "" Then
    Cells(i, 12) = sum(RC["&i&"]: RC["&fin&"])
    End If
Next i
End Sub

Merci pour votre aide

 

[suistrop]

Re : Probleme Somme

Bonjour,

Envoi un fichier en exemple ca sera plus facile de te répondre.

Cordialement

Suistrop

 

[Excelced]

Re : Probleme Somme

Voilà le fichier exemple
le nombre de valeur dans la colonne G est variable

 

[suistrop]

Re : Probleme Somme

Salut,

Sur ton exemple essai le code suivant :

Sub ma_somme()
For i = 1 To Range("E65536").End(xlUp).Row
    If Cells(i, 5) <> "" Then
        Cells(i, 14).Select
        der_cellule = Range("G" & i + 1).End(xlDown).Row
        ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & der_cellule - i & "]C)"
    End If
Next i

End Sub

Cordialement

Suistrop

 

[JBOBO]

Re : Probleme Somme

Bonjour,

A tester En N9 suivant ton exemple :

=SOMME(INDIRECT(SI(E9="";"";ADRESSE(EQUIV("Test";E9:E29;0)+LIGNE();COLONNE())&":"&SI(E9="";"";ADRESSE((EQUIV("Test";E10:E29;0)+LIGNE()-1);COLONNE())))))

 

[Excelced]

Re : Probleme Somme

ça marche, sauf quand il n'y a qu'une ligne à "sommer"

 

[Excelced]

Re : Probleme Somme

Merci JBOBO, mais il me faut du VBA

 

[suistrop]

Re : Probleme Somme

C'est moche mais ca marche 🙂
J'ai rajouter une condition lorsque qu'il n'y a qu'une seule ligne.

Sub ma_somme()
For i = 1 To Range("E65536").End(xlUp).Row
    If Cells(i, 5) <> "" Then
        Cells(i, 14).Select
        der_cellule = Range("G" & i + 1).End(xlDown).Row
        If Cells(i + 2, 7) = "" Then der_cellule = i + 1
        ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & der_cellule - i & "]C)"
    End If
Next i
End Sub

 

[Excelced]

Re : Probleme Somme

Génial, ça fonctionne bien.
merci à toi

est ce que tu sais si je peux mettre une formule qui fasse la somme de ces totaux automatiquement ?
du style "faire la somme des cellules contenant une formule"

 

[Excelced]

Re : Probleme Somme

J'ai essayé de modifier le code pour qu'il me fasse la même chose sur les 12 colonnes (de 12 à 24) mais ça ne fonctionne pas.
j'ai mis un For Next avec j comme numéro de colonne
je n'ai pas de message d'erreur mais il ne se passe rien

Sub ma_somme()

For j = 12 To Range("Z8").End(xlToLeft).Column
    For i = 8 To Range("E65536").End(xlUp).Row
        If Cells(i, 5) <> "" Then
            Cells(i, j).Select
            der_cellule = Range("G" & i + 1).End(xlDown).Row
            If Cells(i + 2, 7) = "" Then der_cellule = i + 1
            ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & der_cellule - i & "]C)"
        End If
    Next i
Next j
End Sub

 

[suistrop]

Re : Probleme Somme

Salut,

Essai comme ceci :
j'ai mis de la colonne 11 à 17 dans la boucle de y tu peux modifier bien sur !

Sub ma_somme()
For i = 1 To Range("E65536").End(xlUp).Row
    If Cells(i, 5) <> "" Then
        Cells(i, 14).Select
        der_cellule = Range("G" & i + 1).End(xlDown).Row
        If Cells(i + 2, 7) = "" Then der_cellule = i + 1
        For y = 11 To 17
            Cells(i, y).Select
            ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[" & der_cellule - i & "]C)"
        Next y
    End If
Next i
End Sub

(Ta méthode de mettre le for avant te fais perdre un peu de temps, car en faisant ca tu refais à chaque fois le calcul du nombe de ligne a additionner. Mettre le for ou je l'ai mis te permet de faire la somme de tout un bloc à la fois.Meme si au final ta méthode va fonctionner)



Cordialement

Suistrop

 

[Excelced]

Re : Probleme Somme

Salut,

ok ça marche nickel
je te remercie pour ton aide

A bientôt

Excelced