bloquer une cellule en écriture

[MIGUET]

Bonjour,
Je voudrais bloquer une cellule en passant par une macro.
Ceci sous certaines conditions.

Voici ce que je veux dans cette cellule, il ne manque que le bloquage.

If CheckBox1.Value = True Then
If ComboBox1.Text = "1.5" Then
Worksheets(1).Cells(19, 3).Value = 0
Worksheet(1).Cells(19, 3).Font.ColorIndex = 3
Worksheet(1).Cells(19, 3).Font.FontStyle = "Gras"
End If

 

[m.lecxe]

Salut

une petite macro à adapter

Attribute VB_Name = "InterdireSaisies"

'Interdire une saisie en dehors de cellules autorisées
'sans protéger la feuille ou le classeur

Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe

If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
MsgBox "pas touche!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub

'Puis appeler cette procédure dans une procédure Change (feuille)
'ou SheetChange (classeur)
'Par exemple, pour autoriser une saisie uniquement dans la plage
'A1:A10 de n'importe quelle feuille d'un classeur :

'Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' PasTouche Target, Range("A1:A10")
'End Sub