Bonjour,

J'ai mis en place ce code qui oblige l'utilisateur à saisir un montant dans des cellules précises.

Mais je rencontre un problème, ce code ne doit s'appliquer qu'aux feuilles commençant par un "L", hors pour le moment toutes les feuilles de mon classeur sont impactées.
Pouvez-vous m'aider à compléter ce code afin que seules les feuilles commençant par un "L" soient concernées et pas les autres ?
Merci par avance pour votre contribution
Cordialement

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Range("C12:C39"), Target) Is Nothing And Target.Count = 1 Then
        If Not IsNumeric(Target) Then
            MsgBox " Merci de saisir un montant !!!"
                With Application
                .EnableEvents = False
                .Undo
                .EnableEvents = True
                End With
        End If
    End If
End Sub