Affiche Message quand cellule sectionnée

[aziz]

Bonsoir à tous,
je souhaite afficher le message "saisie interdite" lorsque je veux selectionner une cellule dans la colonne C (car j'ai des formules). Ceci avec une Vba

merci encore pour votre aide

 

[Gelinotte]

Re : Affiche Message quand cellule sectionnée

Bonsoir,


En VBE, dans la feuille Octobre, colle :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
   If Not Intersect(Target, Range("C:C")) Is Nothing Then
      MsgBox "saisie interdite"
      ActiveCell.Offset(0, 1).Select
      
   End If
End Sub

G

 

[aziz]

Re : Affiche Message quand cellule sectionnée

Merci Beaucoup
Bonne soirée