Bonjour,
Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire.
En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous.
Je connais la fonction qui géle la feuille jusqu'a une certaine ligne
empechant tout scroll mais ce n'est pas ce que je recherche.
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
denis P
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
Bonjour,
c'est possible en VBE avec ScrollArea, propriété
Cette propriété n'ai pas sauver avec le fichier, il faut la définire
a chaque ouverture du fichier...
denis p.
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10"
End Sub
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit dans le
message de news:B96E08EA-02DB-49B1-AB58-29EDD097CDF9@microsoft.com...
Bonjour,
Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire.
En fait, j'aimerais que l'utilisateur de mon outil puisse descendre
jusqu'à
une certaine ligne mais pas en dessous.
Je connais la fonction qui géle la feuille jusqu'a une certaine ligne
empechant tout scroll mais ce n'est pas ce que je recherche.
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
Monsieur-Patate
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules que j'ai Unlocked et qui devraient donc être modifiables grâce à EnableSelection sont aussi bloquées :( En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click()
Worksheets("Update").Activate
Worksheets("Update").Range("A1:Z45").Select
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133"
ActiveSheet.EnableSelection = 1
ActiveSheet.Protect
End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules
que j'ai Unlocked et qui devraient donc être modifiables grâce à
EnableSelection sont aussi bloquées :(
En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour,
c'est possible en VBE avec ScrollArea, propriété
Cette propriété n'ai pas sauver avec le fichier, il faut la définire
a chaque ouverture du fichier...
denis p.
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10"
End Sub
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit dans le
message de news:B96E08EA-02DB-49B1-AB58-29EDD097CDF9@microsoft.com...
Bonjour,
Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire.
En fait, j'aimerais que l'utilisateur de mon outil puisse descendre
jusqu'à
une certaine ligne mais pas en dessous.
Je connais la fonction qui géle la feuille jusqu'a une certaine ligne
empechant tout scroll mais ce n'est pas ce que je recherche.
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules que j'ai Unlocked et qui devraient donc être modifiables grâce à EnableSelection sont aussi bloquées :( En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
denis P
re bonjour Monsieur-Patate Les cellules à renseigner ne doivent pas êtres verrouillées Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1 limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
"Monsieur-Patate" a écrit dans le message de news:
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules que j'ai Unlocked et qui devraient donc être modifiables grâce à EnableSelection sont aussi bloquées :( En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le
message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
re bonjour Monsieur-Patate
Les cellules à renseigner ne doivent pas êtres verrouillées
Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1
limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click()
Worksheets("Update").Activate
Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133"
ActiveSheet.EnableSelection = 1
ActiveSheet.Protect
End Sub
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit dans le
message de news:81B54F9B-3A5A-4714-8CEE-F31F3CE6AAF0@microsoft.com...
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme
suit:
Private Sub CommandButton7_Click()
Worksheets("Update").Activate
Worksheets("Update").Range("A1:Z45").Select
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133"
ActiveSheet.EnableSelection = 1
ActiveSheet.Protect
End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules
que j'ai Unlocked et qui devraient donc être modifiables grâce à
EnableSelection sont aussi bloquées :(
En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour,
c'est possible en VBE avec ScrollArea, propriété
Cette propriété n'ai pas sauver avec le fichier, il faut la définire
a chaque ouverture du fichier...
denis p.
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10"
End Sub
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit
dans le
message de news:B96E08EA-02DB-49B1-AB58-29EDD097CDF9@microsoft.com...
Bonjour,
Je desire limiter le scroll sur une de mes feuilles jusqu'a une
certaine
ligne mais je ne sais pas comment faire.
En fait, j'aimerais que l'utilisateur de mon outil puisse descendre
jusqu'à
une certaine ligne mais pas en dessous.
Je connais la fonction qui géle la feuille jusqu'a une certaine ligne
empechant tout scroll mais ce n'est pas ce que je recherche.
re bonjour Monsieur-Patate Les cellules à renseigner ne doivent pas êtres verrouillées Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1 limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
"Monsieur-Patate" a écrit dans le message de news:
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules que j'ai Unlocked et qui devraient donc être modifiables grâce à EnableSelection sont aussi bloquées :( En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le
message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
Monsieur-Patate
Je pense qu'on doit pas être loin de la solution finale Denis :) J'aimerais juste savoir un dernier truc: Comment faire pour selectionner plusieurs cellule non-adjacentes, je m'explique j'aimerais par exemple deverouiller les cellules: R14, L19,P26,etc et la fonction Range n'accepte pas ca. Quelle fonction prendre?
Encore merci de ton aide.
re bonjour Monsieur-Patate Les cellules à renseigner ne doivent pas êtres verrouillées Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1 limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
"Monsieur-Patate" a écrit dans le message de news:
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules que j'ai Unlocked et qui devraient donc être modifiables grâce à EnableSelection sont aussi bloquées :( En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le
message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
Je pense qu'on doit pas être loin de la solution finale Denis :)
J'aimerais juste savoir un dernier truc:
Comment faire pour selectionner plusieurs cellule non-adjacentes, je
m'explique j'aimerais par exemple deverouiller les cellules: R14, L19,P26,etc
et la fonction Range n'accepte pas ca.
Quelle fonction prendre?
Encore merci de ton aide.
re bonjour Monsieur-Patate
Les cellules à renseigner ne doivent pas êtres verrouillées
Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1
limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click()
Worksheets("Update").Activate
Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133"
ActiveSheet.EnableSelection = 1
ActiveSheet.Protect
End Sub
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit dans le
message de news:81B54F9B-3A5A-4714-8CEE-F31F3CE6AAF0@microsoft.com...
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme
suit:
Private Sub CommandButton7_Click()
Worksheets("Update").Activate
Worksheets("Update").Range("A1:Z45").Select
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133"
ActiveSheet.EnableSelection = 1
ActiveSheet.Protect
End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules
que j'ai Unlocked et qui devraient donc être modifiables grâce à
EnableSelection sont aussi bloquées :(
En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour,
c'est possible en VBE avec ScrollArea, propriété
Cette propriété n'ai pas sauver avec le fichier, il faut la définire
a chaque ouverture du fichier...
denis p.
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10"
End Sub
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit
dans le
message de news:B96E08EA-02DB-49B1-AB58-29EDD097CDF9@microsoft.com...
Bonjour,
Je desire limiter le scroll sur une de mes feuilles jusqu'a une
certaine
ligne mais je ne sais pas comment faire.
En fait, j'aimerais que l'utilisateur de mon outil puisse descendre
jusqu'à
une certaine ligne mais pas en dessous.
Je connais la fonction qui géle la feuille jusqu'a une certaine ligne
empechant tout scroll mais ce n'est pas ce que je recherche.
Je pense qu'on doit pas être loin de la solution finale Denis :) J'aimerais juste savoir un dernier truc: Comment faire pour selectionner plusieurs cellule non-adjacentes, je m'explique j'aimerais par exemple deverouiller les cellules: R14, L19,P26,etc et la fonction Range n'accepte pas ca. Quelle fonction prendre?
Encore merci de ton aide.
re bonjour Monsieur-Patate Les cellules à renseigner ne doivent pas êtres verrouillées Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1 limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
"Monsieur-Patate" a écrit dans le message de news:
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules que j'ai Unlocked et qui devraient donc être modifiables grâce à EnableSelection sont aussi bloquées :( En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le
message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
denis P
re sélections multiple non contiguë.... par ex: Range("a2:A10,b3,c5:c10").Select Range("a2:A10,b3,c5:c10").Locked = False
denis p.
"Monsieur-Patate" a écrit dans le message de news:
Je pense qu'on doit pas être loin de la solution finale Denis :) J'aimerais juste savoir un dernier truc: Comment faire pour selectionner plusieurs cellule non-adjacentes, je m'explique j'aimerais par exemple deverouiller les cellules: R14, L19,P26,etc
et la fonction Range n'accepte pas ca. Quelle fonction prendre?
Encore merci de ton aide.
re bonjour Monsieur-Patate Les cellules à renseigner ne doivent pas êtres verrouillées Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1 limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
"Monsieur-Patate" a écrit dans le
message de news:
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules
que j'ai Unlocked et qui devraient donc être modifiables grâce à EnableSelection sont aussi bloquées :( En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le
message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre
jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne
empechant tout scroll mais ce n'est pas ce que je recherche.
Quelqu'un peut il m'aider? Merci.
re
sélections multiple non contiguë....
par ex: Range("a2:A10,b3,c5:c10").Select
Range("a2:A10,b3,c5:c10").Locked = False
denis p.
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit dans le
message de news:774DEDEE-B1EB-4B6A-BE79-4D47077D0DA0@microsoft.com...
Je pense qu'on doit pas être loin de la solution finale Denis :)
J'aimerais juste savoir un dernier truc:
Comment faire pour selectionner plusieurs cellule non-adjacentes, je
m'explique j'aimerais par exemple deverouiller les cellules: R14,
L19,P26,etc
et la fonction Range n'accepte pas ca.
Quelle fonction prendre?
Encore merci de ton aide.
re bonjour Monsieur-Patate
Les cellules à renseigner ne doivent pas êtres verrouillées
Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1
limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click()
Worksheets("Update").Activate
Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133"
ActiveSheet.EnableSelection = 1
ActiveSheet.Protect
End Sub
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit
dans le
message de news:81B54F9B-3A5A-4714-8CEE-F31F3CE6AAF0@microsoft.com...
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme
suit:
Private Sub CommandButton7_Click()
Worksheets("Update").Activate
Worksheets("Update").Range("A1:Z45").Select
ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133"
ActiveSheet.EnableSelection = 1
ActiveSheet.Protect
End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les
cellules
que j'ai Unlocked et qui devraient donc être modifiables grâce à
EnableSelection sont aussi bloquées :(
En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour,
c'est possible en VBE avec ScrollArea, propriété
Cette propriété n'ai pas sauver avec le fichier, il faut la définire
a chaque ouverture du fichier...
denis p.
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10"
End Sub
"Monsieur-Patate" <MonsieurPatate@discussions.microsoft.com> a écrit
dans le
message de
news:B96E08EA-02DB-49B1-AB58-29EDD097CDF9@microsoft.com...
Bonjour,
Je desire limiter le scroll sur une de mes feuilles jusqu'a une
certaine
ligne mais je ne sais pas comment faire.
En fait, j'aimerais que l'utilisateur de mon outil puisse
descendre
jusqu'à
une certaine ligne mais pas en dessous.
Je connais la fonction qui géle la feuille jusqu'a une certaine
ligne
empechant tout scroll mais ce n'est pas ce que je recherche.
re sélections multiple non contiguë.... par ex: Range("a2:A10,b3,c5:c10").Select Range("a2:A10,b3,c5:c10").Locked = False
denis p.
"Monsieur-Patate" a écrit dans le message de news:
Je pense qu'on doit pas être loin de la solution finale Denis :) J'aimerais juste savoir un dernier truc: Comment faire pour selectionner plusieurs cellule non-adjacentes, je m'explique j'aimerais par exemple deverouiller les cellules: R14, L19,P26,etc
et la fonction Range n'accepte pas ca. Quelle fonction prendre?
Encore merci de ton aide.
re bonjour Monsieur-Patate Les cellules à renseigner ne doivent pas êtres verrouillées Range("cellule non verrouillées").Locked = False
ActiveSheet.EnableSelection = 1 limite la sélection au cellules non verrouillées
denis p.
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select
Range("cellule non verouillées").Locked = False ActiveWindow.Zoom = True
ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
"Monsieur-Patate" a écrit dans le
message de news:
Merci Denis c'est la commande que je cherchais et je l'ai inclus comme suit:
Private Sub CommandButton7_Click() Worksheets("Update").Activate Worksheets("Update").Range("A1:Z45").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:A133" ActiveSheet.EnableSelection = 1 ActiveSheet.Protect End Sub
Ici le zoom marche bien ainsi que le Scroll area mais ensuite les cellules
que j'ai Unlocked et qui devraient donc être modifiables grâce à EnableSelection sont aussi bloquées :( En fait toute la feuille est protégée....
Savez-vous pourquoi?
Bonjour, c'est possible en VBE avec ScrollArea, propriété Cette propriété n'ai pas sauver avec le fichier, il faut la définire a chaque ouverture du fichier... denis p.
Private Sub Workbook_Open() ThisWorkbook.Sheets("Feuil1").ScrollArea = "a1:f10" End Sub
"Monsieur-Patate" a écrit dans le
message de news:
Bonjour, Je desire limiter le scroll sur une de mes feuilles jusqu'a une certaine
ligne mais je ne sais pas comment faire. En fait, j'aimerais que l'utilisateur de mon outil puisse descendre
jusqu'à
une certaine ligne mais pas en dessous. Je connais la fonction qui géle la feuille jusqu'a une certaine ligne
empechant tout scroll mais ce n'est pas ce que je recherche.
