Celulle vérrouillée après donnée
Bonsoir,
Dés que j'introduis une donnée dans la colonne C ,je désire que la celulles C1 soit verrouillée et ansi de suite pour C2,C3 ............ pour toutes les entrées dans la colonne C.
Jai testé un code en VBAet il ne fonctionne pas
Dim témoin As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([C1:C13], Target) Is Nothing And Target.Count = 1 And Not témoin Then
témoin = True
ActiveSheet.Unprotect
Target.Locked = True
Target.Interior.ColorIndex = 44
ActiveSheet.Protect
témoin = False
End If
End Sub
Merci d'avance
A +
- Messages
- 9'245
- Excel
- Vista Office 2007FR
- Inscrit
- 08/12/2007
- Emploi
- retraité Sce.Méthodes
Bonsoir henri,
Ton code fonctionne normalement, qu'est-ce qui te gène ?
As-tu déverrouiller au préalable la colonne C ?
As-tu bien mis ce code dans le VBE de la feuille concernée ? et non dans un module.
Amicalement
Claude.