Clic-droit/Format de cellules.../Protection/Décocher: Verrouillée : OK Protéger la feuille (Mot de passe facultatif)
puis dans la feuille de code de l'onglet correspondant: (ici Feuil1)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Worksheets("Feuil1").EnableSelection = xlUnlockedCells End Sub
"magic-dd" a écrit dans le message de news:
bonsoir
est il possible de faire un scrollarea sur 2 zone
voici mon code mais ca ne fonctionne pas
sub worksheet_Activate()
with ActiveSheet .ScrollArea ="A1:C30" , "E1:G30" end with end sub
merci
magic-dd
Bonsoir
merci pour l'info mais le probleme est que j'ai un fichier en partage sur reseau et j'ai des problemes avec la protection et deprotection de feuille qui possedent un mot de passe
donc je pensais que d'inhiber certaines cellules par le scrollarea serait le plus simple
si vous avez d'autres solution pour eviter la selection de cellule dans 2 plages distinctes je suis preneur
merci
Bonsoir
merci pour l'info mais le probleme est que j'ai un fichier en partage
sur reseau et j'ai des problemes avec la protection et deprotection de
feuille qui possedent un mot de passe
donc je pensais que d'inhiber certaines cellules par le scrollarea
serait le plus simple
si vous avez d'autres solution pour eviter la selection de cellule
dans 2 plages distinctes je suis preneur
merci pour l'info mais le probleme est que j'ai un fichier en partage sur reseau et j'ai des problemes avec la protection et deprotection de feuille qui possedent un mot de passe
donc je pensais que d'inhiber certaines cellules par le scrollarea serait le plus simple
si vous avez d'autres solution pour eviter la selection de cellule dans 2 plages distinctes je suis preneur
la propriété "ScrollArea" ne s'applique qu'à une plage dont les cellules sont adjacentes. Que veux-tu de plus ?
"magic-dd" a écrit dans le message de groupe de discussion :
bonsoir
est il possible de faire un scrollarea sur 2 zone
voici mon code mais ca ne fonctionne pas
sub worksheet_Activate()
with ActiveSheet .ScrollArea ="A1:C30" , "E1:G30" end with end sub
merci
Bonjour Magic-dd,
Tu as eu une réponse...
la propriété "ScrollArea" ne s'applique qu'à une plage
dont les cellules sont adjacentes. Que veux-tu de plus ?
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de groupe de discussion :
53bc34aa-1cba-4a4c-b580-bc4033667d88@d32g2000yqh.googlegroups.com...
bonsoir
est il possible de faire un scrollarea sur 2 zone
voici mon code mais ca ne fonctionne pas
sub worksheet_Activate()
with ActiveSheet
.ScrollArea ="A1:C30" , "E1:G30"
end with
end sub