Boucles For imbriquées

Bonjour à tous,

J'ai un souci avec un calcul de sous-total. J'ai une colonne de montants et réalise une boucle sur cette colonne jusqu'à ce que la macro trouve que la cellule en offset-5 soit égale à Sous total.

Lorsque excel trouve cette valeur, je stocke la valeur j qui correspond à la ligne de cette cellule, se lance une seconde boucle qui va chercher la cellule suivante contenant la valeur Sous totale suivante, dont je stocke la ligne et calcul ainsi le total des valeurs des cellules comprises entre les deux cellules contenant "Sous total". La boucle se termine alors que la première continue et passe aux cellules suivantes. Le souci c'est que cela ne marche pas et les sous totaux sont farfelus. Je mets en PJ de ce message un extrait de mon fichier avec la petite macro qui est ce qu'elle est vu mes connaissances proche du sous-sol.

Le fait d'avoir deux boucles induit aussi des messages d'Excel du genre Next sans For ou En If sans If.

Si quelqu'un peut m'éclairer, ce serait super car je sêche.

merci d'avance

22test.xlsm (19.17 Ko)

Bonsoir,

C'est un peu compliqué.

Pourquoi ne pas mettre une formule de somme toute simple ?

Ci-joint une proposition à tester en restant sur le même principe

Bonne soirée

Bouben

Bonsoir,

juste pour répondre au principe de votre code sans réfléchir si c'est la meilleur solution...

Sub Sous_Total()
    Dim Der_Ligne As Long, Ligne As Long
    Dim Colonne_Valeurs As Long, Colonne_Sous_Total As Long, Colonne_Formule As Long
    Dim Deb_zone As Long
    Deb_zone = 2
    Colonne_Valeurs = 7
    Colonne_Formule = 13
    Colonne_Sous_Total = 2

    Der_Ligne = Range("B" & Rows.Count).End(xlUp).Row
    For Ligne = 2 To Der_Ligne
        If Cells(Ligne, Colonne_Sous_Total).Value = "Total amount" Then
            Cells(Ligne, Colonne_Formule).FormulaR1C1 = "=SUM(R[" & Deb_zone - Ligne & "]C[" & Colonne_Valeurs - Colonne_Formule & "]:R[-1]C[" & Colonne_Valeurs - Colonne_Formule & "])"
            Deb_zone = Ligne + 1
        End If
    Next
End Sub

@ bientôt

LouReeD


Oups...

Bonsoir bouben...

Voilà ce que cela fait de ne pas "actualiser" sa page...

Si seulement je ne répondais pas au téléphone...

@ bientôt

LouReeD

Bonsoir LouReeD,

2 propositions valent mieux qu'une

A bientôt

Bouben

Bonjour LouReeD et Bouben,

Merci beaucoup. Il me reste juste maintenant à analyser vos codes. J'ai testé, c'est juste super et vraiment efficace. Je vois juste qu'il me reste encore beaucoup à apprendre.

Merci encore à tous les deux.

Bonne soirée

Bonjour à tous,

Ben une 3ème alors, sans macro.

eric

20test-1.xlsm (13.64 Ko)
Rechercher des sujets similaires à "boucles imbriquees"