pb de boucle

[guima1642]

Bonjour à tous

j'essaie de faire une boucle pour sommer des sous-totaux mais je n'y arrive pas. en fait j'aimerai une boucle qui additionne jusqu'au 1 suivant dans la collone "g"
dans ma boucle je somme que la ligne suivante

For colidx = 4 To 6
            For i = 3 To Rows.Count
                If Cells(i, 1) = "" Then Exit For
                   
                If Cells(i, 7) = 1 Then Cells(i, colidx) = Application.WorksheetFunction.Sum(Sheets("feuil1").Cells(i + 1, colidx))
           
            Next i
       
Next colidx

avec fichier-joint

Merci d'avance

 

[Guest]

Re : pb de boucle

Bonjour,

Sans fichier ni plus d'explication, difficile de savoir.
Mais ne serait-ce point ceci:

    Dim Somme As Double
    For colidx = 4 To 6
        For i = 3 To Rows.Count
            If Cells(i, 1) = "" or Cells(i,7)= 1 Then Exit For
             Somme = Somme + Sheets("feuil1").Cells(i + 1, colidx)
        Next i
    Next colidx
    MsgBox

A+

 

[guima1642]

Re : pb de boucle

Bonjour,

Non ça ne fonctionne pas, j'ai rajouter le fichier joint

merci

 

[Guest]

Re : pb de boucle

Bonjour,

Sub calc()
Dim derLig As Long 'Dernière ligne du tableau
Dim Col As Long, Lig As Long
Dim somme As Double
With Sheets("Feuil1") 'travailler sur la feuille Feuil1
    derLig = .Cells(Rows.Count, 1).End(xlUp).Row
    For Col = 4 To 6
        For Lig = derLig To 3 Step -1
            If .Cells(Lig, 7) = 1 Then
                .Cells(Lig, Col) = somme
                somme = 0
            Else
            somme = somme + .Cells(Lig, Col)
            End If
        Next
    Next
End With
End Sub

A+

 

[guima1642]

Re : pb de boucle

Un grand merci Hasco Bonne journée