bonjour,
Pb avec une boucle "impossible de définir la propriete locked de la classe range"
merci d'avance
Pb avec une boucle "impossible de définir la propriete locked de la classe range"
Code:
For i = 21 To Rows.Count
If Sheets("devis").Cells(i, 38) = "gb" Then Exit For
If Sheets("devis").Cells(i, 38) <> "SP" Or Sheets("devis").Cells(i, 38) <> "ASP" Or Sheets("devis").Cells(i, 6) <> "" Then
[COLOR="Red"]Sheets("devis").Cells(i, 9).Locked = False[/COLOR]
end if
next imerci d'avance