Interdire au dela de

[Manu62]

Bonjour,
Je voudrais limiter la saisie au delà de 5 lignes pour la feuille 1

Comment peux t'on écrire cela en vba

Merci Bcp

Manu

 

[tototiti2008]

Re : Interdire au dela de

Bonjour Manu62,

5 lignes, ça signifie :
5 lignes de la feuille de calcul (lignes 1 à 5 par exemple)

ou

5 lignes de texte dans une cellule ?

 

[jeanpierre]

Re : Interdire au dela de

Bonjour Manu62,

Quelque chose comme ça :

Private Sub Worksheet_Activate()
Worksheets("ton nom de feuille").ScrollArea = "A1: L5" 'si ta dernière colonne est L à adapter.
End Sub

Bonne journée.

Jean-Pierre

A mettre dans le code de la feuille en question

Edit : Bonjour tototiti

 

[Manu62]

Re : Interdire au dela de

Bonjour,
Oui pour 5 lignes.

Je vais essayer celui de jean pierre !
Sachant que ma saisie ce fait dans un usf !
Cdt
Manu

 

[Manu62]

Re : Interdire au dela de

Bonjour,
J'ai mis cela dans un module et worksheet
mais cela ne fait rien ?

Pouvez vousm m'en dire +

Merci bcp

Manu

 

[jeanpierre]

Re : Interdire au dela de

Re,

Ce que je t'ai donné est à mettre dans le code de la feuille et pour une saisie directe sur cette même feuille. Clic droit sur l'onglet et visualiser le code.

Mais maintenant tu nous parles d'un Usf, c'est donc dans le code de cet Usf qu'il va falloir agir.

Alors, et pour pouvoir te répondre, il faudrait voir ton Usf et son code...

A te lire.

Jean-Pierre

 

[Manu62]

Re : Interdire au dela de

Bonjour Le Forum,

J'ai donc mis le code suivant :
Private Sub Worksheet_Activate()
Worksheets("essai").ScrollArea = "A1: L5" 'si ta dernière colonne est L à adapter.
End Sub

C'est drole mais cela fait rien en a6,ou m1

J'ai du louper quelque chose
POuvez vous m'aider

Merci bcp
Manu

 

[Manu62]

Re : Interdire au dela de

Bonjour
Ci joint mon fichier car je bute toujours
Avez vous des pistes.
Cdt
Manu

 

[jeanpierre]

Re : Interdire au dela de

Bonjour Manu62,

Le Worksheet_Activate() n'était peut-être pas judicieux car il nécessite d'activer la feuille.

Dans le classeur en retour, je l'ai mis dans ThisWorkBook en ouverture du fichier. C'est mieux.

Tu vois et tu nous dis.

Bonne journée.

Jean-Pierre

 

[Manu62]

Re : Interdire au dela de

Bonjour Le forum, Jean Pierre,

C'est très bien...

Un petit truc en plus serait bien :

Peux t'on lorsque l'on veux saisir en zone "verte", mettre un message d'alerte et dire hors zone de saisie.

Merci Bcp

Manu

 

[jeanpierre]

Re : Interdire au dela de

Re,

Je n'en vois pas l'intérêt puisque l'on ne peut pas se rendre hors zone et de ce fait même, il est donc impossible de mettre un message, enfin, il me semble.

 

[Manu62]

Re : Interdire au dela de

Jean Pierre,

En fait au départ je m'attendais a une possibilité d'aller d'une zone par exemple :
A1 A W5
puis ensuite ne pas pouvoir saisir en a6 a w15 si on essaie, message d'alerte hors zone
et ensuite pouvoir si besoin saisir en
a16 a w20

Voilà un peu le truc.
Je l'avoue, j'aurais du le demander avant...

Cf le fichier REFAIT.

Merci bcp
Manu

 

[jeanpierre]

Re : Interdire au dela de

Re,

J'ai passé un bon moment à tenter de résoudre ta nouvelle question, mais à priori Scrollarea ne supporte pas des plages multiples.

La seule solution que j'ai trouvée pour le moment c'est celle dans le fichier joint (toujours dans l'open du classeur).

Selection des cellules qui doivent être accessibles et dans Format/Cellule, onglet Protection, décocher Vérrouillée, et dans Outils/Protection, Protéger la feuille.

Dans le classeur joint, la protection est sans mot de passe.

En espérant que cela te convienne.

Bonne fin d'après-midi.

Jean-Pierre