Discussion :

[vsobo]

bonjour
je voudrai interdire l'écriture dans une feuille (si par exemple on a "1" dans cellule A1)
merci

[rvtoulon]

Slt,
une adaptation de l'enregistreur de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
'tu aussi peux mettre si A1 différend de rien
'if range ("A1") <> "" then
If Range("A1") = 1 Then
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
   Else
   ActiveSheet.Unprotect
   End If
End Sub

une idée à améliorer je pense....
@+

[vsobo]

bonjour
ça fonctionne très bien
merci