[VBA] Problème de boucle ?

Salut doudou95

Mets nous ton code histoire que l'on comprenne mieux ton souci

David

deja, ta variable pal n'est pas initialisée,
mais je ne comprend pas très bien ton problème
Je ne comprend pas non plus le principe de ton offset.
un simple cell["1","1"] te permet de recuprérer la valeur de A1

Non, c'est pas très clair, mais essaies ca :

    pal = 0
    i = 1
    Do While Cells(i, 1).Value <> "" 'Tant que cellule non vide faire
        If (cel2.Offset(i, 15).Value + pal) < 16500 Then ' Si valeur de la cellule + pal < 16500 alors
            pal = Cells(1, 15).Value + pal ' pal = valeur cellule + pal
        Else ' Sinon
            Cells(i, 1).EntireRow.Insert ' Insérer colonne
            i = i + 1
            pal = 0 ' Initialisation de pal
        End If ' Fin Si
        i = i + 1
    Loop 'Fin tant que

J'ai oublié de modifier dans le test :

    pal = 0
    i = 1
    Do While Cells(i, 1).Value <> "" 'Tant que cellule non vide faire
        If (Cells(i, 15).Value + pal) < 16500 Then ' Si valeur de la cellule + pal < 16500 alors
            pal = Cells(1, 15).Value + pal ' pal = valeur cellule + pal
        Else ' Sinon
            Cells(i, 1).EntireRow.Insert ' Insérer colonne
            i = i + 1
            pal = 0 ' Initialisation de pal
        End If ' Fin Si
        i = i + 1
    Loop 'Fin tant que

Et tu veux insérer une colonne ou une ligne Cells(i,1).EntireRow.Insert c'est pour insérer une ligne contrairement à ce que tu mets dans ton commentaire

T'as essayé le mode débuggage Pas à Pas avec un espion sur Cells(i, 15) ?

Dès le premier passage ?

Qu'y a t'il et dans Cells(i,15).Value et dans pal au moment de l'erreur ?

Alors initialise ton i à 2

C'est pas Cells(1,15).value, mais Cells(i,15).value

Enlèves le i = i + 1 après l'insertion de ligne

[url]http://uploading.com/files/61H0Z3WF/Inter_Macro.xls.html[/url]
[url]http://uploading.com/files/G42CBQ71/FormatCarton.xla.html[/url]

Tiens et test tu veras

La macro ne part pas "du bas" comme tu le penses, c'est la dernière cellule sélectionnée suite à l'execution de ton code précédent,

Elle boucle bien à partir de la cellule qui a comme référence la ligne i (donc 2 au départ) et la colonne 1 :

i = 2
Do While Cells(i,1).Value<>""

...

Le fait d'accéder directement à la référence de la cellule sans la sélectionner fait gagner en temps d'execution, mais en débuggage il est vrai qu'on est un peu perdu.

Ceci étant le problème venait d'ailleurs : quand le total était supérieur à 16500, la ligne s'ajoutait sans problème, mais si par malheur la cellule suivante dans la colonne O avait une valeur supérieure à 16500 également, les lignes s'inséraient à l'infini ...

Le code suivant devrait fonctionner :

    Pal = 0
    i = 2
    Do While Cells(i, 1).Value <> ""
        If Pal + Cells(i, 15).Value < 16500 Then
            Pal = Pal + Cells(i, 15).Value
        Else
            If Pal = 0 Then
                ' Si on venait d'insérer une ligne, alors insérer la suivante en ligne + 1
                Cells(i + 1, 15).EntireRow.Insert
                Pal = Cells(i, 15).Value
                i = i + 1
            Else
                Cells(i, 15).EntireRow.Insert
            End If
            ' Met le sous-total dans la cellule
            Cells(i, 15).Value = Pal
            Cells(i, 15).Font.Bold = True
            Pal = 0
        End If
        i = i + 1
    Loop