Juste pour info, est-il possible de réduire / simplifier les 2 codes
suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le
second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll
Down:=24" et simplifier les copier-coller (le code n'est pas complet, mais
c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Range("G:J,K:N").EntireColumn.Hidden = False
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168"
ActiveSheet.PageSetup.Zoom = 70
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
MichDenis
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
"géjoun" a écrit dans le message de news:
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll Down:$" et simplifier les copier-coller (le code n'est pas complet, mais c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click() ActiveSheet.Unprotect Range("G:J,K:N").EntireColumn.Hidden = False ActiveSheet.ResetAllPageBreaks ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168" ActiveSheet.PageSetup.Zoom = 70 End Sub
Voici pour la première section de ton code...
pour la seconde partie...il serait préférable que tu expliques
ce que tu tentes de faire réellement !
'----------------------
Private Sub CommandButton2_Click()
With ActiveSheet
.Unprotect
.Range("G:J,K:N").EntireColumn.Hidden = False
.ResetAllPageBreaks
.PageSetup.PrintArea = "$A$1:$M$168"
.PageSetup.Zoom = 70
'.PrintOut
'.PageSetup.PrintArea = ""
End With
End Sub
'--------------------------
"géjoun" <dam-mail2007@ifrance.com> a écrit dans le message de news:
74F2A1BB-94BC-49E5-9165-2BC7302384D6@microsoft.com...
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes
suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le
second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll
Down:$" et simplifier les copier-coller (le code n'est pas complet, mais
c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Range("G:J,K:N").EntireColumn.Hidden = False
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168"
ActiveSheet.PageSetup.Zoom = 70
End Sub
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
"géjoun" a écrit dans le message de news:
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll Down:$" et simplifier les copier-coller (le code n'est pas complet, mais c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click() ActiveSheet.Unprotect Range("G:J,K:N").EntireColumn.Hidden = False ActiveSheet.ResetAllPageBreaks ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168" ActiveSheet.PageSetup.Zoom = 70 End Sub
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
"géjoun" a écrit dans le message de news:
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll Down:$" et simplifier les copier-coller (le code n'est pas complet, mais c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click() ActiveSheet.Unprotect Range("G:J,K:N").EntireColumn.Hidden = False ActiveSheet.ResetAllPageBreaks ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168" ActiveSheet.PageSetup.Zoom = 70 End Sub
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news: OlZwuGYYHHA.448@TK2MSFTNGP04.phx.gbl...
Voici pour la première section de ton code...
pour la seconde partie...il serait préférable que tu expliques
ce que tu tentes de faire réellement !
'----------------------
Private Sub CommandButton2_Click()
With ActiveSheet
.Unprotect
.Range("G:J,K:N").EntireColumn.Hidden = False
.ResetAllPageBreaks
.PageSetup.PrintArea = "$A$1:$M$168"
.PageSetup.Zoom = 70
'.PrintOut
'.PageSetup.PrintArea = ""
End With
End Sub
'--------------------------
"géjoun" <dam-mail2007@ifrance.com> a écrit dans le message de news:
74F2A1BB-94BC-49E5-9165-2BC7302384D6@microsoft.com...
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes
suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le
second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll
Down:$" et simplifier les copier-coller (le code n'est pas complet, mais
c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Range("G:J,K:N").EntireColumn.Hidden = False
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168"
ActiveSheet.PageSetup.Zoom = 70
End Sub
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
"géjoun" a écrit dans le message de news:
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll Down:$" et simplifier les copier-coller (le code n'est pas complet, mais c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click() ActiveSheet.Unprotect Range("G:J,K:N").EntireColumn.Hidden = False ActiveSheet.ResetAllPageBreaks ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168" ActiveSheet.PageSetup.Zoom = 70 End Sub
Merci pour le 1er code, et en fait, pour le second, c'est juste un bout de code qui n'a pas vraiment d'usage mais par curiosité, je cherchais comment faire pour "regrouper" par exemple ce bout de code sur une seule ligne :
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
Bonjour,
Merci pour le 1er code, et en fait, pour le second, c'est juste un bout de
code qui n'a pas vraiment d'usage mais par curiosité, je cherchais comment
faire pour "regrouper" par exemple ce bout de code sur une seule ligne :
--
géjoun
dam-mail2007@ifrance.com
/Enlever l''année pour m''écrire.../
Voici pour la première section de ton code...
pour la seconde partie...il serait préférable que tu expliques
ce que tu tentes de faire réellement !
'----------------------
Private Sub CommandButton2_Click()
With ActiveSheet
.Unprotect
.Range("G:J,K:N").EntireColumn.Hidden = False
.ResetAllPageBreaks
.PageSetup.PrintArea = "$A$1:$M$168"
.PageSetup.Zoom = 70
'.PrintOut
'.PageSetup.PrintArea = ""
End With
End Sub
'--------------------------
Merci pour le 1er code, et en fait, pour le second, c'est juste un bout de code qui n'a pas vraiment d'usage mais par curiosité, je cherchais comment faire pour "regrouper" par exemple ce bout de code sur une seule ligne :
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
MichDenis
2 Façons de faire :
Application.Goto Sheets("Original").Range("D31") OU Application.Goto Sheets("Original").Range("D31"), True
"géjoun" a écrit dans le message de news:
Bonjour,
Merci pour le 1er code, et en fait, pour le second, c'est juste un bout de code qui n'a pas vraiment d'usage mais par curiosité, je cherchais comment faire pour "regrouper" par exemple ce bout de code sur une seule ligne :
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
2 Façons de faire :
Application.Goto Sheets("Original").Range("D31")
OU
Application.Goto Sheets("Original").Range("D31"), True
"géjoun" <dam-mail2007@ifrance.com> a écrit dans le message de news:
9859D638-2410-4C2D-8C0E-3D0E078F7561@microsoft.com...
Bonjour,
Merci pour le 1er code, et en fait, pour le second, c'est juste un bout de
code qui n'a pas vraiment d'usage mais par curiosité, je cherchais comment
faire pour "regrouper" par exemple ce bout de code sur une seule ligne :
--
géjoun
dam-mail2007@ifrance.com
/Enlever l''année pour m''écrire.../
Voici pour la première section de ton code...
pour la seconde partie...il serait préférable que tu expliques
ce que tu tentes de faire réellement !
'----------------------
Private Sub CommandButton2_Click()
With ActiveSheet
.Unprotect
.Range("G:J,K:N").EntireColumn.Hidden = False
.ResetAllPageBreaks
.PageSetup.PrintArea = "$A$1:$M$168"
.PageSetup.Zoom = 70
'.PrintOut
'.PageSetup.PrintArea = ""
End With
End Sub
'--------------------------
Application.Goto Sheets("Original").Range("D31") OU Application.Goto Sheets("Original").Range("D31"), True
"géjoun" a écrit dans le message de news:
Bonjour,
Merci pour le 1er code, et en fait, pour le second, c'est juste un bout de code qui n'a pas vraiment d'usage mais par curiosité, je cherchais comment faire pour "regrouper" par exemple ce bout de code sur une seule ligne :
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
MichDenis
.Range("G:J,K:N") Et pourquoi pas :
.Range("G:N") ou .[G:N] ?
J'ai lui trop vite pour m'arrêter à ce détail ... mais dans mon alphabet il y a entre les lettres G et N autre chose que les lettres J et K ;-))
"MichDenis" a écrit dans le message de news:
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
"géjoun" a écrit dans le message de news:
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll Down:$" et simplifier les copier-coller (le code n'est pas complet, mais c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click() ActiveSheet.Unprotect Range("G:J,K:N").EntireColumn.Hidden = False ActiveSheet.ResetAllPageBreaks ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168" ActiveSheet.PageSetup.Zoom = 70 End Sub
J'ai lui trop vite pour m'arrêter à ce détail ...
mais dans mon alphabet il y a entre les lettres G et N
autre chose que les lettres J et K
;-))
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OlZwuGYYHHA.448@TK2MSFTNGP04.phx.gbl...
Voici pour la première section de ton code...
pour la seconde partie...il serait préférable que tu expliques
ce que tu tentes de faire réellement !
'----------------------
Private Sub CommandButton2_Click()
With ActiveSheet
.Unprotect
.Range("G:J,K:N").EntireColumn.Hidden = False
.ResetAllPageBreaks
.PageSetup.PrintArea = "$A$1:$M$168"
.PageSetup.Zoom = 70
'.PrintOut
'.PageSetup.PrintArea = ""
End With
End Sub
'--------------------------
"géjoun" <dam-mail2007@ifrance.com> a écrit dans le message de news:
74F2A1BB-94BC-49E5-9165-2BC7302384D6@microsoft.com...
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes
suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le
second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll
Down:$" et simplifier les copier-coller (le code n'est pas complet, mais
c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect
Range("G:J,K:N").EntireColumn.Hidden = False
ActiveSheet.ResetAllPageBreaks
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168"
ActiveSheet.PageSetup.Zoom = 70
End Sub
J'ai lui trop vite pour m'arrêter à ce détail ... mais dans mon alphabet il y a entre les lettres G et N autre chose que les lettres J et K ;-))
"MichDenis" a écrit dans le message de news:
Voici pour la première section de ton code... pour la seconde partie...il serait préférable que tu expliques ce que tu tentes de faire réellement ! '---------------------- Private Sub CommandButton2_Click() With ActiveSheet .Unprotect .Range("G:J,K:N").EntireColumn.Hidden = False .ResetAllPageBreaks .PageSetup.PrintArea = "$A$1:$M$168" .PageSetup.Zoom = 70 '.PrintOut '.PageSetup.PrintArea = "" End With End Sub '--------------------------
"géjoun" a écrit dans le message de news:
Bonjour,
Juste pour info, est-il possible de réduire / simplifier les 2 codes suivants (surtout au niveau des 3 "Active.Sheet" pour le 1er; et pour le second, je suppose qu'on peut supprimer les "ActiveWindow.SmallScroll Down:$" et simplifier les copier-coller (le code n'est pas complet, mais c'est pour que j'essaie de faire le reste seul):
Private Sub CommandButton2_Click() ActiveSheet.Unprotect Range("G:J,K:N").EntireColumn.Hidden = False ActiveSheet.ResetAllPageBreaks ActiveSheet.PageSetup.PrintArea = "$A$1:$M$168" ActiveSheet.PageSetup.Zoom = 70 End Sub
