Je croyais cette procédure assez simple, mais je ne réussis pas à la mettre
en marche correctement. J'ai plusieurs interrogations dans le même fil......
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "E15:F22,H15:I22"
End Sub
La première, est-il possible d'amener de la sorte une délimitation de
ScrollArea dans un événement Activate ? Aussi, est-il possible de spécifier
la région ScrollArea comme elle l'est dans ma petite procédure ? (il s'agit
en fait de deux "super-cellules" fusionnées mais non contiguës)
Comme c'est là, ma procédure n'embarque pas du tout....je peux aller ça et
là partout dans ma feuille sans limitation.
Une erreur ou une impossibilité vous aute aux yeux ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Stéphane,
*** ScrollArea requiert une plage rectangulaire continue. ActiveSheet.ScrollArea = "E15:I22"
Et si tu ne désires pas que certaines cellules soient accesibles dans ta plage définie, tu peux déverrouiller toutes les cellules de ta feuille (format / cellules / onglet protection / décoche Verrouiller) sauf ceux qui doivent être inaccessibles et protéger ta feuille. Et tu ajoutes cette ligne de code :
'----------------------------- Private Sub Worksheet_Activate() With Worksheets("Feuil1") .Unprotect "toto" .ScrollArea = "E15:I22" .EnableSelection = xlUnlockedCells .Protect "toto" End With End Sub '-----------------------------
Salutations!
La première, est-il possible d'amener de la sorte une délimitation de ScrollArea dans un événement Activate ? Aussi, est-il possible de spécifier la région ScrollArea comme elle l'est dans ma petite procédure ? (il s'agit en fait de deux "super-cellules" fusionnées mais non contiguës)
Comme c'est là, ma procédure n'embarque pas du tout....je peux aller ça et là partout dans ma feuille sans limitation.
Une erreur ou une impossibilité vous aute aux yeux ?
Merci de me le partager.
Bonjour Stéphane,
*** ScrollArea requiert une plage rectangulaire continue.
ActiveSheet.ScrollArea = "E15:I22"
Et si tu ne désires pas que certaines cellules soient accesibles dans ta plage définie, tu peux déverrouiller toutes les cellules de
ta feuille (format / cellules / onglet protection / décoche Verrouiller) sauf ceux qui doivent être inaccessibles et protéger ta
feuille. Et tu ajoutes cette ligne de code :
'-----------------------------
Private Sub Worksheet_Activate()
With Worksheets("Feuil1")
.Unprotect "toto"
.ScrollArea = "E15:I22"
.EnableSelection = xlUnlockedCells
.Protect "toto"
End With
End Sub
'-----------------------------
Salutations!
La première, est-il possible d'amener de la sorte une délimitation de
ScrollArea dans un événement Activate ? Aussi, est-il possible de spécifier
la région ScrollArea comme elle l'est dans ma petite procédure ? (il s'agit
en fait de deux "super-cellules" fusionnées mais non contiguës)
Comme c'est là, ma procédure n'embarque pas du tout....je peux aller ça et
là partout dans ma feuille sans limitation.
Une erreur ou une impossibilité vous aute aux yeux ?
*** ScrollArea requiert une plage rectangulaire continue. ActiveSheet.ScrollArea = "E15:I22"
Et si tu ne désires pas que certaines cellules soient accesibles dans ta plage définie, tu peux déverrouiller toutes les cellules de ta feuille (format / cellules / onglet protection / décoche Verrouiller) sauf ceux qui doivent être inaccessibles et protéger ta feuille. Et tu ajoutes cette ligne de code :
'----------------------------- Private Sub Worksheet_Activate() With Worksheets("Feuil1") .Unprotect "toto" .ScrollArea = "E15:I22" .EnableSelection = xlUnlockedCells .Protect "toto" End With End Sub '-----------------------------
Salutations!
La première, est-il possible d'amener de la sorte une délimitation de ScrollArea dans un événement Activate ? Aussi, est-il possible de spécifier la région ScrollArea comme elle l'est dans ma petite procédure ? (il s'agit en fait de deux "super-cellules" fusionnées mais non contiguës)
Comme c'est là, ma procédure n'embarque pas du tout....je peux aller ça et là partout dans ma feuille sans limitation.
Une erreur ou une impossibilité vous aute aux yeux ?
Merci de me le partager.
Stéphan DuQuébec
Merci, une fois de plus (ça commence à en faire quelques unes....), michdenis.
Bonjour Stéphane,
*** ScrollArea requiert une plage rectangulaire continue. ActiveSheet.ScrollArea = "E15:I22"
Et si tu ne désires pas que certaines cellules soient accesibles dans ta plage définie, tu peux déverrouiller toutes les cellules de ta feuille (format / cellules / onglet protection / décoche Verrouiller) sauf ceux qui doivent être inaccessibles et protéger ta feuille. Et tu ajoutes cette ligne de code :
'----------------------------- Private Sub Worksheet_Activate() With Worksheets("Feuil1") .Unprotect "toto" .ScrollArea = "E15:I22" .EnableSelection = xlUnlockedCells .Protect "toto" End With End Sub '-----------------------------
Salutations!
La première, est-il possible d'amener de la sorte une délimitation de ScrollArea dans un événement Activate ? Aussi, est-il possible de spécifier la région ScrollArea comme elle l'est dans ma petite procédure ? (il s'agit en fait de deux "super-cellules" fusionnées mais non contiguës)
Comme c'est là, ma procédure n'embarque pas du tout....je peux aller ça et là partout dans ma feuille sans limitation.
Une erreur ou une impossibilité vous aute aux yeux ?
Merci de me le partager.
Merci, une fois de plus (ça commence à en faire quelques unes....), michdenis.
Bonjour Stéphane,
*** ScrollArea requiert une plage rectangulaire continue.
ActiveSheet.ScrollArea = "E15:I22"
Et si tu ne désires pas que certaines cellules soient accesibles dans ta plage définie, tu peux déverrouiller toutes les cellules de
ta feuille (format / cellules / onglet protection / décoche Verrouiller) sauf ceux qui doivent être inaccessibles et protéger ta
feuille. Et tu ajoutes cette ligne de code :
'-----------------------------
Private Sub Worksheet_Activate()
With Worksheets("Feuil1")
.Unprotect "toto"
.ScrollArea = "E15:I22"
.EnableSelection = xlUnlockedCells
.Protect "toto"
End With
End Sub
'-----------------------------
Salutations!
La première, est-il possible d'amener de la sorte une délimitation de
ScrollArea dans un événement Activate ? Aussi, est-il possible de spécifier
la région ScrollArea comme elle l'est dans ma petite procédure ? (il s'agit
en fait de deux "super-cellules" fusionnées mais non contiguës)
Comme c'est là, ma procédure n'embarque pas du tout....je peux aller ça et
là partout dans ma feuille sans limitation.
Une erreur ou une impossibilité vous aute aux yeux ?
Merci, une fois de plus (ça commence à en faire quelques unes....), michdenis.
Bonjour Stéphane,
*** ScrollArea requiert une plage rectangulaire continue. ActiveSheet.ScrollArea = "E15:I22"
Et si tu ne désires pas que certaines cellules soient accesibles dans ta plage définie, tu peux déverrouiller toutes les cellules de ta feuille (format / cellules / onglet protection / décoche Verrouiller) sauf ceux qui doivent être inaccessibles et protéger ta feuille. Et tu ajoutes cette ligne de code :
'----------------------------- Private Sub Worksheet_Activate() With Worksheets("Feuil1") .Unprotect "toto" .ScrollArea = "E15:I22" .EnableSelection = xlUnlockedCells .Protect "toto" End With End Sub '-----------------------------
Salutations!
La première, est-il possible d'amener de la sorte une délimitation de ScrollArea dans un événement Activate ? Aussi, est-il possible de spécifier la région ScrollArea comme elle l'est dans ma petite procédure ? (il s'agit en fait de deux "super-cellules" fusionnées mais non contiguës)
Comme c'est là, ma procédure n'embarque pas du tout....je peux aller ça et là partout dans ma feuille sans limitation.
Une erreur ou une impossibilité vous aute aux yeux ?
