Bonjour,

Je souhaite qu'il soit impossible de modifier n'importe quelle cellule de la feuille nommée "réf." - la sélection de la cellule "W4" doit néanmoins rester possible pour lancer une procédure de recopie de la feuille de référence (qui sera automatiquement renommée avec une date).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
'Dim date_test As Date
 
    If ActiveSheet.Name = "réf." And Intersect(Range("W4"), Target) Is Nothing Then
        MsgBox "Onglet de référence - Modification impossible !", vbCritical
        Exit Sub
    End If
Ça semble fonctionner, à un détail près :
Si je clique sur la flèche d'un menu déroulant, le contenu de la cellule concernée change !

J'ai mis le même code dans :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Question : Est-il possible de détecter le changement de contenu d'une cellule si celui-ci résulte d'un menu déroulant ?

Je vous remercie d'avance pour votre aide.
Cordialement,
jpma75