vinciHorus
XLDnaute Junior
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
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