Somme VBA

Bonjour,

J'aimerai avoir à la fin de mes données dans mon calendrier à droite la somme des % par jour.

faire un somme ca ca va mais c'est de lui dire que je le veux après mes données qui coince.

Si quelqu'un pouvez m'aider

je vous joins la pj

Merci

Marion

Bonjour,

Il manque la piece jointe

peux tu vérifier si elle n'est pas trop lourde??

petit oubli dsl

toujours personne ?

Si si,

j'étais en train de tester queulque chose

Dans un module dans l'éditeur VBA jai fait cette macro

Sub SommeAuto()
    Dim x As Integer
    Dim rCalendrier As Range, Cellule As Range
    x = ThisWorkbook.Sheets("Table_Tâches").Range("B65536").End(xlUp).Row + 1
    Set rCalendrier = ThisWorkbook.Sheets("Table_Tâches").Range("E" & x & ":EN" & x)
    For Each Cellule In rCalendrier
    Debug.Print Cells(Cellule.Row - 2, Cellule.Column).Value
        If Cells(Cellule.Row - 2, Cellule.Column).Value <> "" Then

            If Cells(Cellule.Row - 1, Cellule.Column).Value <> "" Then
                Cellule.Value = Cells(Cellule.Row - 2, Cellule.Column).Value + Cells(Cellule.Row - 1, Cellule.Column).Value
            Else
                Cellule.Value = Cells(Cellule.Row - 2, Cellule.Column).Value
            End If
        End If
    Next
End Sub

j'ai misle fichier en piecejointen ayant effacer les totaux

va executer la macro dans le menu outils macro -> sommeauto et dis moi ce que tu en pense

Par contre si tu ajoute de intervenant il faudra revoirle code

c'est pas mal sauf que oui des ressources vont se rajouter ou pas cela est variable donc du coup la macro ne le comprend pas

J'ai modifié ma macro pour qu'elle prenne en compte les ressources

super ta formule et sans vouloir abuser si ma ligne des ressources ne commence pas pareil comment je fais ?

je suis arrivé à faire ce que je voulais par contre je n'arrive pas à lui dire de ne pas mettre 0 quand il n'y a pas de données alors que je penses que cela est simple

Salut,

qu'entends tu par

super ta formule et sans vouloir abuser si ma ligne des ressources ne commence pas pareil comment je fais ?

Re coucou,

Donc pour lui faire afficher rien dans les cellules où tu n'as pas de ressources j'ai fait comme cela

Sub SommeAuto()
    Dim x As Integer, NbRessources As Integer
    Dim rCalendrier As Range, Cellule As Range
    x = ThisWorkbook.Sheets("Table_Tâches").Range("B65536").End(xlUp).Row + 1
    Set rCalendrier = ThisWorkbook.Sheets("Table_Tâches").Range("E" & x & ":IN" & x)
    NbRessources = x - 17

    For Each Cellule In rCalendrier
        Cellule.Formula = "=SUM(R[-" & NbRessources & "]C:R[-1]C)"
        If CInt(Cellule.Value) = 0 Then Cellule.Value = ""
    Next

End Sub

super tu es génial merci bcp

De rien,

J'espère qu'à l'utilisation ça ira bien