ScrollArea ou autre pour accéder à des zones limitées
Voici mon problème,
J'aimerai limiter l'accès à 4 ou 5 zones différentes sur une même feuille Excel.
(Si possible en donnant accès aux zones voulues et non en interdisant les autres).
La fonction VBA ScrollArea fait très bien ça mais uniquement pour une seule et unique zone.
Le but est que l'utilisateur puisse naviguer rapidement via les flèches (utilisation de la souris interdite) pour remplir que les données dans les différentes zones où je lui limiterai l'accès et que quand il se déplace avec les flèches il passe directement les zones non-voulues.
Exemple si j'ai un tableau ou il a accès en B2:B65 et un F6:F124, quand il est dans le tableau colonne B n'importe où et qu'il appuie sur "Flèche droite' il arrive directement dans le tableau colonne F.
Merci d'avance pour votre réponse,
Thomisi
Bonjour,
possible via l'évènement de la feuille de calculs SelectionChange …
En effet, j'essaye déjà d'exploiter une routine qui se met en route dès que je change de cellule via une flèche mais c'est surtout la suite qui me pose problème étant donné que je ne peux pas limiter plusieurs zones avec ScrollArea (du moins si je définis plusieurs ScrollArea il ne pend en compte que la première et si je définis plusieurs zones dans la même ScrollArea ( Worksheets(1).ScrollArea = "I9:J21;P14:Q23;L31:M37;O4:Z8") ça ne marche pas. )
Oui c'est normal vu la description de cette propriété dans l'aide VBA …
J'ai été plus rapide que le forum sur ce coup
Voici la solution:
1)
Sélectionner uniquement les zones dans lesquelles on veut pouvoir se déplacer (en maintenant CTRL entre les zones pour cumuler les sélection),
2)
Clic-droit sur la sélection ===> Format Cells..." ===> "Protection" ===> Décocher "Locked" ===> cliquer sur "OK"
3)
Dans la bande du dessus dans Excel, à l'onglet Review ===> Protéger la feuille en cliquant sur "Protect Sheet" (Mot de passe facultatif si vous avez à faire à des bidouilleurs
4)
puis dans la feuille de code de l'onglet correspondant: Clique droit sur l'onglet de la feuille en bas dans Excel ===> "View Code"
(ici Sheet1), Coller les 3 lignes suivantes:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Sheet1").EnableSelection = xlUnlockedCells
End Sub
Autoresolved
Thomisi
Aie ça bloque la réécriture dans les cases verouillées, ce qui me pose évidemment problème. Donc ce n'est pas encore solutionné :s
Ne pas protéger la feuille avec un mot de passe mais ainsi : Sheet1.Protect UserInterfaceOnly:=True
dans l'évènement Open du classeur …
Ca a l'air de fonctionner, je continue à utiliser mon fichier et si je ne rencontre plus de soucis dans les 5 ou 6 utilisations suivantes, je passe mon poste en résolu
Encore une fois merci Marc L !
Thomisi