J’ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions
geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j’ai essayé de modifer par des macros
l’affichage des feuilles par des Macros ( Nota ce fichier a au moins 50
feuilles ).
Comment écrire une macro qui pour chaque feuille affiche sur l’écran ce que
l’on voit sur la feuille en occupant tout l’écran quels que soient les
paramètres d’affichage du micro ?
1) J’ai pensé à modifier la macro de GeeDee comme suit :
Sub Zonecombinée51_QuandChangement()
FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(FeuilleChoisie)
.Visible = True
.Select
End With
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWindow.Zoom = True
Range("A2").Select
End Sub
Malheureusement lorsque le bouton Menu n’est pas dans la dernière colonne on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la
dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d’accueil j’ai fait :
Sub Auto_Open()
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E2").Select
End Sub
Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu
modifié comme suit marche ?
Sub MENU()
ActiveWindow.SelectedSheets.Visible = False
Sheets("MENU").Select
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E1").Select
End Sub
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
Youky
Salut, Je pense qu'il te faut rajouter afin de bien selectionner la bonne page en Auto-open Si celle ci doit ouvrir sur page Menu Sub Auto_Open() Sheets("MENU").Select
Youky "Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50 feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce que
l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Salut,
Je pense qu'il te faut rajouter afin de bien selectionner la bonne page en
Auto-open
Si celle ci doit ouvrir sur page Menu
Sub Auto_Open()
Sheets("MENU").Select
Youky
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 2357C87F-2EB3-4394-B420-57F2985E3D8D@microsoft.com...
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions
geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros
l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50
feuilles ).
Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce
que
l'on voit sur la feuille en occupant tout l'écran quels que soient les
paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit :
Sub Zonecombinée51_QuandChangement()
FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(FeuilleChoisie)
.Visible = True
.Select
End With
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWindow.Zoom = True
Range("A2").Select
End Sub
Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne
on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la
dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait :
Sub Auto_Open()
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E2").Select
End Sub
Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu
modifié comme suit marche ?
Sub MENU()
ActiveWindow.SelectedSheets.Visible = False
Sheets("MENU").Select
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E1").Select
End Sub
Salut, Je pense qu'il te faut rajouter afin de bien selectionner la bonne page en Auto-open Si celle ci doit ouvrir sur page Menu Sub Auto_Open() Sheets("MENU").Select
Youky "Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50 feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce que
l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Jean-Paul V
Bonjour
J'ai essayé cele ne marche pas. et pour le1) avez-vous des idées
Salut, Je pense qu'il te faut rajouter afin de bien selectionner la bonne page en Auto-open Si celle ci doit ouvrir sur page Menu Sub Auto_Open() Sheets("MENU").Select
Youky "Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50 feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce que
l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Bonjour
J'ai essayé cele ne marche pas.
et pour le1) avez-vous des idées
Salut,
Je pense qu'il te faut rajouter afin de bien selectionner la bonne page en
Auto-open
Si celle ci doit ouvrir sur page Menu
Sub Auto_Open()
Sheets("MENU").Select
Youky
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 2357C87F-2EB3-4394-B420-57F2985E3D8D@microsoft.com...
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions
geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros
l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50
feuilles ).
Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce
que
l'on voit sur la feuille en occupant tout l'écran quels que soient les
paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit :
Sub Zonecombinée51_QuandChangement()
FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(FeuilleChoisie)
.Visible = True
.Select
End With
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWindow.Zoom = True
Range("A2").Select
End Sub
Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne
on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la
dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait :
Sub Auto_Open()
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E2").Select
End Sub
Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu
modifié comme suit marche ?
Sub MENU()
ActiveWindow.SelectedSheets.Visible = False
Sheets("MENU").Select
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E1").Select
End Sub
J'ai essayé cele ne marche pas. et pour le1) avez-vous des idées
Salut, Je pense qu'il te faut rajouter afin de bien selectionner la bonne page en Auto-open Si celle ci doit ouvrir sur page Menu Sub Auto_Open() Sheets("MENU").Select
Youky "Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50 feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce que
l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Patrick BASTARD
Bonjour, *Jean-Paul V*
En supposant que la plage à afficher soit continue, et commence en A1 :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("a1").CurrentRegion.Select ActiveWindow.Zoom = True End Sub dans le ThisWorkbook te conviendrait-il?
-- Bien amicordialement, P. Bastard
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50 feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce que l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne on ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Bonjour, *Jean-Paul V*
En supposant que la plage à afficher soit continue, et commence en A1 :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("a1").CurrentRegion.Select
ActiveWindow.Zoom = True
End Sub
dans le ThisWorkbook te conviendrait-il?
--
Bien amicordialement,
P. Bastard
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les
fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros
l'affichage des feuilles par des Macros ( Nota ce fichier a au moins
50 feuilles ).
Comment écrire une macro qui pour chaque feuille affiche sur l'écran
ce que l'on voit sur la feuille en occupant tout l'écran quels que
soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit :
Sub Zonecombinée51_QuandChangement()
FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(FeuilleChoisie)
.Visible = True
.Select
End With
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWindow.Zoom = True
Range("A2").Select
End Sub
Malheureusement lorsque le bouton Menu n'est pas dans la dernière
colonne on ne le voit plus, de plus lorsque nous avons une fonction
longue sur la dernière colonne on ne voit plus la fin de la fonction
lireformule.
2 ) Pour le Menu d'accueil j'ai fait :
Sub Auto_Open()
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E2").Select
End Sub
Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu
modifié comme suit marche ?
Sub MENU()
ActiveWindow.SelectedSheets.Visible = False
Sheets("MENU").Select
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E1").Select
End Sub
En supposant que la plage à afficher soit continue, et commence en A1 :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("a1").CurrentRegion.Select ActiveWindow.Zoom = True End Sub dans le ThisWorkbook te conviendrait-il?
-- Bien amicordialement, P. Bastard
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50 feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce que l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne on ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Youky
Comme la macro proposé par Patick travailler avec ThisWorkbook offre facilement de nombreux avantages. Tu y trouveras de nombreux événements et facile à comprendre, à toi de mettre la macro à l'endroit qui te conviens. Pour le placement de tes boutons je n'ai pas de solution, par contre dans ton cas tu peux les remplacer par un menu flottant. voici un lien pour un fichier avec explications pour créer des menus flottants si tu souhaites travailler avec. (trés pratique et pro) http://www.excelabo.net/moteurs/compteclic.php?nom=bj-menuflottant Youky "Jean-Paul V" a écrit dans le message de news:
Bonjour
J'ai essayé cele ne marche pas. et pour le1) avez-vous des idées
Salut, Je pense qu'il te faut rajouter afin de bien selectionner la bonne page en
Auto-open Si celle ci doit ouvrir sur page Menu Sub Auto_Open() Sheets("MENU").Select
Youky "Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions
geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50
feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce
que
l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne
on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Comme la macro proposé par Patick travailler avec ThisWorkbook offre
facilement de nombreux avantages.
Tu y trouveras de nombreux événements et facile à comprendre, à toi de
mettre la macro à l'endroit qui te conviens.
Pour le placement de tes boutons je n'ai pas de solution, par contre dans
ton cas tu peux les remplacer par un menu flottant.
voici un lien pour un fichier avec explications pour créer des menus
flottants si tu souhaites travailler avec. (trés pratique et pro)
http://www.excelabo.net/moteurs/compteclic.php?nom=bj-menuflottant
Youky
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message
de news: 98DE96DC-8A91-41C8-9C26-6D116260ADF3@microsoft.com...
Bonjour
J'ai essayé cele ne marche pas.
et pour le1) avez-vous des idées
Salut,
Je pense qu'il te faut rajouter afin de bien selectionner la bonne page
en
Auto-open
Si celle ci doit ouvrir sur page Menu
Sub Auto_Open()
Sheets("MENU").Select
Youky
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le
message
de news: 2357C87F-2EB3-4394-B420-57F2985E3D8D@microsoft.com...
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les
fonctions
geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros
l'affichage des feuilles par des Macros ( Nota ce fichier a au moins
50
feuilles ).
Comment écrire une macro qui pour chaque feuille affiche sur l'écran
ce
que
l'on voit sur la feuille en occupant tout l'écran quels que soient les
paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit :
Sub Zonecombinée51_QuandChangement()
FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(FeuilleChoisie)
.Visible = True
.Select
End With
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWindow.Zoom = True
Range("A2").Select
End Sub
Malheureusement lorsque le bouton Menu n'est pas dans la dernière
colonne
on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la
dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait :
Sub Auto_Open()
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E2").Select
End Sub
Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu
modifié comme suit marche ?
Sub MENU()
ActiveWindow.SelectedSheets.Visible = False
Sheets("MENU").Select
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E1").Select
End Sub
Comme la macro proposé par Patick travailler avec ThisWorkbook offre facilement de nombreux avantages. Tu y trouveras de nombreux événements et facile à comprendre, à toi de mettre la macro à l'endroit qui te conviens. Pour le placement de tes boutons je n'ai pas de solution, par contre dans ton cas tu peux les remplacer par un menu flottant. voici un lien pour un fichier avec explications pour créer des menus flottants si tu souhaites travailler avec. (trés pratique et pro) http://www.excelabo.net/moteurs/compteclic.php?nom=bj-menuflottant Youky "Jean-Paul V" a écrit dans le message de news:
Bonjour
J'ai essayé cele ne marche pas. et pour le1) avez-vous des idées
Salut, Je pense qu'il te faut rajouter afin de bien selectionner la bonne page en
Auto-open Si celle ci doit ouvrir sur page Menu Sub Auto_Open() Sheets("MENU").Select
Youky "Jean-Paul V" a écrit dans le message
de news:
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions
geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50
feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce
que
l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne
on
ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Modeste
Bonsour® Jean-Paul V le classeur en question date de l'époque EXCEL 5 ;o)))
1) une simple modification comme ceci devrait suffir :
Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1:J1").Select ActiveWindow.Zoom = True Range("A2").Select End Sub
il faudrait de plus masquer les onglets .... Sub Auto_open() ActiveWindow.DisplayWorkbookTabs = False End Sub
2) ce classeur n'est pas protégè... il est possible par glisser-déplacer de modifier la position de lecture des formules
@+
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Bonsour® Jean-Paul V
le classeur en question date de l'époque EXCEL 5 ;o)))
1) une simple modification comme ceci devrait suffir :
Sub Zonecombinée51_QuandChangement()
FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(FeuilleChoisie)
.Visible = True
.Select
End With
Range("A1:J1").Select
ActiveWindow.Zoom = True
Range("A2").Select
End Sub
il faudrait de plus masquer les onglets ....
Sub Auto_open()
ActiveWindow.DisplayWorkbookTabs = False
End Sub
2) ce classeur n'est pas protégè...
il est possible par glisser-déplacer de modifier la position de lecture des
formules
@+
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
Bonsour® Jean-Paul V le classeur en question date de l'époque EXCEL 5 ;o)))
1) une simple modification comme ceci devrait suffir :
Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1:J1").Select ActiveWindow.Zoom = True Range("A2").Select End Sub
il faudrait de plus masquer les onglets .... Sub Auto_open() ActiveWindow.DisplayWorkbookTabs = False End Sub
2) ce classeur n'est pas protégè... il est possible par glisser-déplacer de modifier la position de lecture des formules
@+
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Jean-Paul V
Bonjour Modeste Ne seriez-vous pas un des créateur de ce fichier?car je crois savoir que Geedee a pour prénom Modeste ? Merci pour votre réponse cela marche partiellement 1) oui pour les différentes feuilles mais votre réponse semble vouloir dire qu'il n'y a pas de solution sans mettre des adresse de cellules 2) patiellement car bisarement la macro Auto_Open ne fonctionne pas sur ce fichier Sub Auto_Open() ActiveWindow.DisplayWorkbookTabs = False End Sub 3) En regardant plus précisément comment est fait ce fichier il semble que les créateurs ont abandonné la dernière option du menu car leur fonction affiche #VALEUR c'est la fonction =SI(ESTNUM(B9);B9;CNUM(DROITE(B9;1)&SUBSTITUE(B9;DROITE(B9;1);""))) et pourtant la fonction est correcte car si on fait F2 sur la zone de saisie et sans rien changer on fait Entrée c'est bon ( je ne comprend pas pourquoi )
Merci encore et cela n'enlève rien à la qualité de cet ancien fichier. ( C'est avec les vieux pots ...)
Bonsour® Jean-Paul V le classeur en question date de l'époque EXCEL 5 ;o)))
1) une simple modification comme ceci devrait suffir :
Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1:J1").Select ActiveWindow.Zoom = True Range("A2").Select End Sub
il faudrait de plus masquer les onglets .... Sub Auto_open() ActiveWindow.DisplayWorkbookTabs = False End Sub
2) ce classeur n'est pas protégè... il est possible par glisser-déplacer de modifier la position de lecture des formules
@+
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Bonjour Modeste
Ne seriez-vous pas un des créateur de ce fichier?car je crois savoir que
Geedee a pour prénom Modeste ?
Merci pour votre réponse cela marche partiellement
1) oui pour les différentes feuilles mais votre réponse semble vouloir dire
qu'il n'y a pas de solution sans mettre des adresse de cellules
2) patiellement car bisarement la macro Auto_Open ne fonctionne pas sur ce
fichier
Sub Auto_Open()
ActiveWindow.DisplayWorkbookTabs = False
End Sub
3) En regardant plus précisément comment est fait ce fichier il semble que
les créateurs ont abandonné la dernière option du menu car leur fonction
affiche #VALEUR c'est la fonction
=SI(ESTNUM(B9);B9;CNUM(DROITE(B9;1)&SUBSTITUE(B9;DROITE(B9;1);"")))
et pourtant la fonction est correcte car si on fait F2 sur la zone de saisie
et sans rien changer on fait Entrée c'est bon ( je ne comprend pas pourquoi )
Merci encore et cela n'enlève rien à la qualité de cet ancien fichier. (
C'est avec les vieux pots ...)
Bonsour® Jean-Paul V
le classeur en question date de l'époque EXCEL 5 ;o)))
1) une simple modification comme ceci devrait suffir :
Sub Zonecombinée51_QuandChangement()
FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(FeuilleChoisie)
.Visible = True
.Select
End With
Range("A1:J1").Select
ActiveWindow.Zoom = True
Range("A2").Select
End Sub
il faudrait de plus masquer les onglets ....
Sub Auto_open()
ActiveWindow.DisplayWorkbookTabs = False
End Sub
2) ce classeur n'est pas protégè...
il est possible par glisser-déplacer de modifier la position de lecture des
formules
@+
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042
Bonjour Modeste Ne seriez-vous pas un des créateur de ce fichier?car je crois savoir que Geedee a pour prénom Modeste ? Merci pour votre réponse cela marche partiellement 1) oui pour les différentes feuilles mais votre réponse semble vouloir dire qu'il n'y a pas de solution sans mettre des adresse de cellules 2) patiellement car bisarement la macro Auto_Open ne fonctionne pas sur ce fichier Sub Auto_Open() ActiveWindow.DisplayWorkbookTabs = False End Sub 3) En regardant plus précisément comment est fait ce fichier il semble que les créateurs ont abandonné la dernière option du menu car leur fonction affiche #VALEUR c'est la fonction =SI(ESTNUM(B9);B9;CNUM(DROITE(B9;1)&SUBSTITUE(B9;DROITE(B9;1);""))) et pourtant la fonction est correcte car si on fait F2 sur la zone de saisie et sans rien changer on fait Entrée c'est bon ( je ne comprend pas pourquoi )
Merci encore et cela n'enlève rien à la qualité de cet ancien fichier. ( C'est avec les vieux pots ...)
Bonsour® Jean-Paul V le classeur en question date de l'époque EXCEL 5 ;o)))
1) une simple modification comme ceci devrait suffir :
Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1:J1").Select ActiveWindow.Zoom = True Range("A2").Select End Sub
il faudrait de plus masquer les onglets .... Sub Auto_open() ActiveWindow.DisplayWorkbookTabs = False End Sub
2) ce classeur n'est pas protégè... il est possible par glisser-déplacer de modifier la position de lecture des formules
@+
-- n'oubliez pas les FAQ : http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr -- Feed Back http://viadresse.com/?94912042
Jean-Paul V
Bonjour Patrick
J'ai cru comprendre qu'il fallait mettre cette macro au niveau de la feuille : Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("a1").CurrentRegion.Select ActiveWindow.Zoom = True End Sub j'ai essayé ça ne marche pas.
@+
Bonjour, *Jean-Paul V*
En supposant que la plage à afficher soit continue, et commence en A1 :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("a1").CurrentRegion.Select ActiveWindow.Zoom = True End Sub dans le ThisWorkbook te conviendrait-il?
-- Bien amicordialement, P. Bastard
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50 feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce que l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne on ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
Bien Amicalement
Bonjour Patrick
J'ai cru comprendre qu'il fallait mettre cette macro au niveau de la feuille
:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("a1").CurrentRegion.Select
ActiveWindow.Zoom = True
End Sub
j'ai essayé ça ne marche pas.
@+
Bonjour, *Jean-Paul V*
En supposant que la plage à afficher soit continue, et commence en A1 :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("a1").CurrentRegion.Select
ActiveWindow.Zoom = True
End Sub
dans le ThisWorkbook te conviendrait-il?
--
Bien amicordialement,
P. Bastard
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les
fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros
l'affichage des feuilles par des Macros ( Nota ce fichier a au moins
50 feuilles ).
Comment écrire une macro qui pour chaque feuille affiche sur l'écran
ce que l'on voit sur la feuille en occupant tout l'écran quels que
soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit :
Sub Zonecombinée51_QuandChangement()
FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4)
With Sheets(FeuilleChoisie)
.Visible = True
.Select
End With
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWindow.Zoom = True
Range("A2").Select
End Sub
Malheureusement lorsque le bouton Menu n'est pas dans la dernière
colonne on ne le voit plus, de plus lorsque nous avons une fonction
longue sur la dernière colonne on ne voit plus la fin de la fonction
lireformule.
2 ) Pour le Menu d'accueil j'ai fait :
Sub Auto_Open()
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E2").Select
End Sub
Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu
modifié comme suit marche ?
Sub MENU()
ActiveWindow.SelectedSheets.Visible = False
Sheets("MENU").Select
Range("E1:E24").Select
ActiveWindow.Zoom = True
Range("E1").Select
End Sub
J'ai cru comprendre qu'il fallait mettre cette macro au niveau de la feuille : Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("a1").CurrentRegion.Select ActiveWindow.Zoom = True End Sub j'ai essayé ça ne marche pas.
@+
Bonjour, *Jean-Paul V*
En supposant que la plage à afficher soit continue, et commence en A1 :
Private Sub Workbook_SheetActivate(ByVal Sh As Object) Range("a1").CurrentRegion.Select ActiveWindow.Zoom = True End Sub dans le ThisWorkbook te conviendrait-il?
-- Bien amicordialement, P. Bastard
Bonjour à tous
J'ai trouvé dans ExcelLabo un fichier génial ! de GeeDee sur les fonctions geedee-trucs.xls (GeeDee, N°94)
Avant de le diffuser aux amis, j'ai essayé de modifer par des macros l'affichage des feuilles par des Macros ( Nota ce fichier a au moins 50 feuilles ). Comment écrire une macro qui pour chaque feuille affiche sur l'écran ce que l'on voit sur la feuille en occupant tout l'écran quels que soient les paramètres d'affichage du micro ?
1) J'ai pensé à modifier la macro de GeeDee comme suit : Sub Zonecombinée51_QuandChangement() FeuilleChoisie = Cells(Cells(1, 3).Value + 4, 4) With Sheets(FeuilleChoisie) .Visible = True .Select End With Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.Zoom = True Range("A2").Select End Sub Malheureusement lorsque le bouton Menu n'est pas dans la dernière colonne on ne le voit plus, de plus lorsque nous avons une fonction longue sur la dernière colonne on ne voit plus la fin de la fonction lireformule.
2 ) Pour le Menu d'accueil j'ai fait : Sub Auto_Open() Range("E1:E24").Select ActiveWindow.Zoom = True Range("E2").Select End Sub Pourquoi cela ne marche pas sur ce fichier,alors que le retour au menu modifié comme suit marche ? Sub MENU() ActiveWindow.SelectedSheets.Visible = False Sheets("MENU").Select Range("E1:E24").Select ActiveWindow.Zoom = True Range("E1").Select End Sub
