Discussion :

[NEC14]

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

[vinc_bilb]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NEC14]

Bonjour,

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

[Marc-L]

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 …

[NEC14]

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é

[vinc_bilb]

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

Bonjour, pas de soucis 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 .....

[NEC14]

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