Boucle sur la dernière ligne non vide

le critère de la boucle c'est qu'il effectue un calcul sur toutes les lignes ( d'une colonne nommée ) non vides.

je l'ai essayé mais j'ai planté le fichier -_-

Bonjour,

Desole...

Mais est-ce que le principe est bon ??? Pour reduire le temps d'execution, il faut quelque chose qui indique que la prochaine boucle debutera a telle ligne

Je pense que ta solution est juste, c'est moi qui n'est pas tout mis (je ne maîtrise pas encore très bien le vba).

Le quelque chose qu'il faut donner, je ne sais pas du tout ce que je dois mettre. Peut être les coordonnées où se trouve la souris ?

Re,

Coordonnees souris, pas top, mais un double click sur la cellule de depart pour la boucle, si y a pas d'autre moyen, c'est bon.

code a mettre dans le VBA de la feuille, adaptez la colonne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



    If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then

        Cancel = True

        Depart = Target.Row

        DerLig = Range("E" & Rows.Count).End(xlUp).Row

        For ecart_de_stock = Depart To DerLig

            'code de calcul

        Next ecart_de_stock

    End If



End Sub

Bonjour,

Savons pas si c'est une formule, mais toute solution est intéressante.

Salut,

Il y a des conditions dans la boucle pour appliquer les formules ...

Bonjour,

voici ma boucle (avec les conditions de calcul) :

'Dans la boucle, effectuer le calcul selon la condition

If Not IsEmpty(Cells(ecart_de_stock, 5)) Then



'Définir la date du jour pour le nouvel inventaire

If Not IsEmpty(Cells(ecart_de_stock, 3)) And Cells(ecart_de_stock, 1) = "" Then

Cells(ecart_de_stock, 1) = Date

Else



End If



'Définir le mois en fonction de la date de saisie

Cells(ecart_de_stock, 2) = Month(Cells(ecart_de_stock, 1))



'Afficher 0 ou 1 en fonction de l'écart d'emplacement

If Cells(ecart_de_stock, 4) - Cells(ecart_de_stock, 5) = 0 Then

Cells(ecart_de_stock, 6) = 1

Else

Cells(ecart_de_stock, 6) = 0

End If



'Afficher l'ecart des bobines entre le stock physique et informatique, sans signe

Cells(ecart_de_stock, 7) = Abs(Cells(ecart_de_stock, 4) - Cells(ecart_de_stock, 5))



'Calculer un écart avec une division par 0

If Cells(ecart_de_stock, 4) > 0 Then



'Effectuer le calcul en % de l'écart des bobines

Cells(ecart_de_stock, 8) = Abs(1 - (Cells(ecart_de_stock, 7) / Cells(ecart_de_stock, 4)))



Else



'Valeur de 100% par défaut si le stock physique et info sont vides

If Cells(ecart_de_stock, 4) = 0 And Cells(ecart_de_stock, 5) = 0 Then

Cells(ecart_de_stock, 8) = 1



Else

'Valeur de 0% par défaut si il y a un écart entre le st info et physique

If Cells(ecart_de_stock, 4) <> Cells(ecart_de_stock, 5) Then

Cells(ecart_de_stock, 8) = 0



Else

End If

End If

End If



End If