verouiller une zone graphique

[Mimidoc1]

Bonsoir Forumers,

Je me permet a nouveau de vous solliciter. Je bloque a nouveau sur excel!
Sur une feuille de calcul, seule la zone definie par les cellules A1 : K26 sont occupées. Je cherche a ne rendre visible que la zone occupée par les cellules A1 : K26. J'ai cherche sur le forum, mais je n'ai pas touve mon bonheur. Je pense que c'est parce que je n'ai pas les bon mots cles pour ma recherche, j'espere que vous comprendrez ce que je cherche a faire.

Merci d'avance pou votre aide. Mimidoc1.

 

[job75]

Re : verouiller une zone graphique

Bonsoir Mimidoc1,

Vous parlez de verrouiller, puis de cellules visibles, ce n'est pas très clair...

Pour que seule la zone A1:K26 apparaisse :

- touche F5, entrez la reférence L:IV puis menu Format-Colonne-Masquer

- touche F5, entrez la référence 27:65536 puis menu Format-Ligne-Masquer

A+

 

[jeanpierre]

Re : verouiller une zone graphique

Bonsoir Mimidoc1, job75,

Ou ceci, pour bloquer l'accès au-delà de la colonne K et en dessous de la ligne 26 :

Private Sub Workbook_Open()
Worksheets("Feuil1").ScrollArea = "A1: k26"
End Sub

Feuil1 à adapter par le nom de ta feuille.

A mettre dans le code de ThisWorkBook, accès par Alt F11.

Dans la fenêtre, à gauche, VbaProject, tu développes le petit plus sur ton classeur et double clic sur ThisWorkBook et tu colles ces 3 lignes à droite.

Bonne nuit.

Jean-Pierre

 

[job75]

Re : verouiller une zone graphique

Rebonsoir, salut jeanpierre,

La solution de jeanpierre doit régler le problème, mais je vois sur un autre fil que vous utilisez Excel 2007. Je complète donc ma solution :

- sélectionner toutes les cellules de la feuille (le carré en haut à gauche)

- onglet Accueil, groupe cellules, masquer toutes les colonnes puis toutes les lignes

- touche F5, entrez la référence A1:K26, et OK

- onglet Accueil, groupe cellules, afficher les colonnes puis les lignes.

Edition : on peut automatiser l'opération, toujours sur Excel 2007, avec :

Range(Columns(12), Columns(16384)).EntireColumn.Hidden = True 'ou Range("L1", Columns(16384))
Rows("27:1048576").Hidden = True

ou encore, quelle que soit la version Excel utilisée :

Range(Columns(12), Columns(Columns.Count)).EntireColumn.Hidden = True
Rows("27:" & Rows.Count).Hidden = True

A+

 

[Mimidoc1]

Re : verouiller une zone graphique

Merci beaucoup tous. La solution de Jean Pierre marche a merveille.