Condition

[Jul74ien74]

Bonjour,

petite question,

dans ce code:

For Lig = 8 To 10

If Cells(Lig, 2).Value = "1_01_Room-Layout\" Then
FichierATester = [M2] + Cells(Lig, 4) + Cells(Lig, 8)

Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFile(FichierATester)


Cells(Lig, 10).Value = F.DateLastModified

End If
Next Lig

Je souhaite rajouter une condition, si dans la colonne 13 de la ligne il y a quelque chose dans la cellule afférant à la ligne alors ne rien faire et passe a la ligne suivante.

merci

 

[mikeo]

Re : Condition

Bonjour

Peut être après For Lig ?

If not is nothing cells(Lig,13) then next Lig

A+