Stopper la boucle si ligne vide

Bonjour à tous,

j'ai ici un tableau avec VBA qui fonctionne très bien, petit problème les PC du boulot sont assez lent et la réalisation de la boucle jusqu'à la ligne 100 fait mouliné le système

Y'aurait-il une solution pour dire si pour une ligne i, les cellule 2 à 5 sont vides alors on stoppe le "next i", histoire de ne plus faire laguer tout ca ?

Je vous met en PJ mon tableau

Merci d'avance

Enzo

Bonjour Enzo_IT,

Mais dans ton fichier la cellule 2 est toujours remplie ...

Bonjour,

Si j'ai bien compris ta demande ...

A tester ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 3 To 100
  If Application.WorksheetFunction.CountBlank(Range(Cells(i, 3), Cells(i, 5))) = 3 Then Exit For
  If Cells(1, 4) < Cells(i, 9).Value Then Cells(i, 18) = "En Cours"
  If Cells(1, 4) > Cells(i, 9).Value Then Cells(i, 18) = "En Retard"
  If Cells(i, 9) = "" Then Cells(i, 18) = ""
  If Cells(i, 17) <> 0 Then Cells(i, 18) = "Soldée"
Next i

End Sub

Bonjour,

a tester.

Cordialement.

Je propose une 3e version

For i = 3 To 100
    If Application.CountBlank(Range(Cells(i, 2), Cells(i, 5))) < 4 Then
        If Cells(1, 4) < Cells(i, 9).Value Then Cells(i, 18) = "En Cours"
        If Cells(1, 4) > Cells(i, 9).Value Then Cells(i, 18) = "En Retard"
        If Cells(i, 9) = "" Then Cells(i, 18) = ""
        If Cells(i, 17) <> 0 Then Cells(i, 18) = "Soldée"
    End If
Next i

En effet c'était pas la cellule 3 mais la 4 désolé pour l'erreur

En tout cas merci pour vos coup de main, ça fonctionne à présent

Sujet cloturé

Enzo

Re,

L'essentiel est que tu aies la solution ...

Merci pour tes remerciements ...