Re : Vérouiller la saisie dans une cellule
Bonjour Curly, Dugenou, Jocelyn, le Forum,
J'ai un besoin similaire dans une de mes applis et j'ai résolu le problème en passant par du code dans la sub SelectionChange de la feuille excel.
Dans SelectionChange, il faut créer une condition du style :
'Si Pub_Interdit_Sel = True, on le met la False et on sort de la sub
'Fait suite à un bug d'EXCEL qd à la RAZ de ces cpt de lignes et cellules
'si sélection modifiée
If Pub_Interdit_Sel = True Then
Pub_Interdit_Sel = False
Exit Sub
End If
'IL est interdit de sélectionner B4 si B1 = 1
If ActiveCell.Column = 2 and And ActiveCell.Row = 4 and
Cells(1,2).Value = 1 Then
Pub_Interdit_Sel = True
MsgBox "Il est interdit de modifier B4 si B1 = 1.", vbInformation +
vbOKOnly, "Modification Interdite"
Cells(1, 2).Select
Exit Sub
End If
Je ne suis pas sûr que Pub_Interdit_Sel te serve à qqchose mais dans mon cas, c'était obligatoire car Excel ne remettait pas ses compteurs de lignes à 0 correctement.
Avant sur Exit Sub, je repositionne le curseur sur la cellule B1 car si on le laisse sur B4, la cellule restera modifiable.
Voilà, à tester et à adapter à tes besoins.
@+, ZeMygale