Limiter la saisie à une plage de cellules

[JYL]

Bonjour le forum,

Sur une feuille, j'ai essayé de limiter la saisie à une plage de cellules (B3:E36).
J'ai donc taper la macro ci-dessous :
Sub SaisiePlage()
Worksheets(1).ScrollArea = 'b3:e36'
MsgBox ('La saisie est limitée sur cette feuille. Vous ne pouvez entrer des données que dans les 4 premières colonnes du tableau !')
End Sub

Sub SaisieLibre()
Worksheets(1).ScrollArea = ''
End Sub

Private Sub Workbook_open()
SaisiePlage
End Sub
Elle ne fonctionne pas.
🙁
Quelqu'un peut-il m'aider?
PS : C'est mon premier listing VB et je travaille avec XL 2000

 

[myDearFriend!]

Bonjour JYL,

Ta procédure Workbook_open() doit impérativement être saisie dans le module de code de l'objet ThisWorkbook tandis que SaisiePlage() et SaisieLibre() devraient être saisies dans un module de code général (comme Module1 par exemple).

Cordialement,

 

[ziopizza]

Bonjour JYL ,myDearFriend! et le forum,

essaye ce petit code,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Column > 5 Then
MsgBox ('La saisie est limitée sur cette feuille. Vous ne pouvez entrer des données que dans les 4 premières colonnes du tableau !')
End If
End Sub

Yves

 

[JYL]

Bonjour mdf et ziopizza

Vos remarques m'ont permis de résoudre mon pb. Donc, grâce à vous, je remporte ma 1ere victoire sur VB ! jyl 1 - VB 0 🙂
Merci !

 

[Gérard DEZAMIS]

Désolé !

Match perdu

L'équipe JYL a fait rentrer sur le terrain 2 joueurs supplémentaires sans prévenir l'arbitre.

Disqualifié !
:evil:

@+GD

* Bonjours Didier et Yves. Je vérifie vos licences ... j'espère qu'elles sont à jour !