XL 2013 Boucle for vba

[vinciHorus]

bonjour

j'aimerai une vérification si la cellule est vide on arrêter la boucle.

Merci !!

bout de code for:

Sub rtrt()

Dim Lig As Long
Dim t As Long

t = Selection.Row
Lig = Worksheets("Saisie").Range("A65536").End(xlUp).Row

With Worksheets("Saisie")

For i = t To Lig

.Range("B" & i) = Application.VLookup(.Range("E" & i), Worksheets("BD_REG_NAT").Range("A:V"), 22, False) 'Formule de recherche
Range("C" & i).Select
Call Réf_noms_statuts(Cells(ActiveCell.Row, 5).Value)

Next i


End With

End Sub

 

[_Thierry]

Bonsoir @vinciHorus , le Forum

C'est c'est celle là ? .Range("E" & i)

Juste après le For i = t To Lig
If .Range("E" & i) = "" Then Exit for
.....


Bonne soirée
@+Thierry