Aide pour terminer un code

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:

---

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

---

Bonjour,

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) ' A rajouter (non testé)   If Ucase(Left(Sh.Name, 1)) <> "L" then exit Sub   If Not Intersect(Range("C12:C39"), Target) Is Nothing And Target.Count = 1 Then If Not IsNumeric(Target) Then

---

Bonne journée

Bonjour,

Merci pour la suggestion, mais malheureusement ça ne fonctionne pas. je continue à chercher de mon côté.

Bonjour, bonjour !

Cela ne peut que fonctionner ‼

Si le code de l'évènement est bien dans le module du classeur (ThisWorkbook)
sans aucun autre évènement parasite dans les modules des feuilles de calculs.

Sinon la problématique est mal exposée …

Bonjour à tous,

Effectivement ça fonctionne et j'en remercie Vincent. J'avais mal retranscrit son code, je ne peux m'en prendre qu'à moi-même.
Je lui réitère mes remerciements

Bien cordialement
René

Citation:

---

Envoyé par NEC14

J'avais mal retranscrit son code, je ne peux m'en prendre qu'à moi-même.

---

Bonjour, pas de soucis:D Ma satisfaction première avec la programmation et de ramener à une certaine humilité quand je vois les bourdes dont je suis capable ..... Une anti-dote contre l'arrogance!
Allez, ma dernière? Une macro permettant d'exporter un workbook xlsm .... en xlsx, donc sans code ..... Comme j'avais désactivé les alarmes, j'ai perdu tout mon code qui permettait l'export ..... :oops:

Désolé Vincent pour ton code. Il y a quelque temps il m'est arrivé la même chose avec une application, coupure de courant, pas de sauvegarde et hop tout à refaire.
Merci encore:ccool: