Simplifier 2 codes vba...

Le
géjoun
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


ActiveWindow.SmallScroll Down:$
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:=9
Range("K29").Select
Sheets("Original").Select
ActiveWindow.SmallScroll Down:=-27
Range("D31").Select
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:
Sheets("Original").Select
ActiveWindow.SmallScroll Down:!
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:=-6
Sheets("Original").Select
ActiveWindow.SmallScroll Down:=3
Range("A51:N51").Select
Range("N51").Activate
Selection.Copy
Selection.Insert Shift:=xlDown
Range("A52:N52").Select
Range("N52").Activate
Application.CutCopyMode = False

Merci!

--
géjoun
dam-mail2007@ifrance.com
/Enlever l''année pour m''écrire/
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4354661
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"
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

------------------------------------------------------------------
ActiveWindow.SmallScroll Down:$
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:=9
Range("K29").Select
Sheets("Original").Select
ActiveWindow.SmallScroll Down:=-27
Range("D31").Select
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:
Sheets("Original").Select
ActiveWindow.SmallScroll Down:!
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:=-6
Sheets("Original").Select
ActiveWindow.SmallScroll Down:=3
Range("A51:N51").Select
Range("N51").Activate
Selection.Copy
Selection.Insert Shift:=xlDown
Range("A52:N52").Select
Range("N52").Activate
Application.CutCopyMode = False

Merci!

--
géjoun

/Enlever l''année pour m''écrire.../
garnote
Le #4354621
Salut Denis,

.Range("G:J,K:N")
Et pourquoi pas :

.Range("G:N") ou .[G:N] ?

Serge



"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"
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

------------------------------------------------------------------
ActiveWindow.SmallScroll Down:$
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:=9
Range("K29").Select
Sheets("Original").Select
ActiveWindow.SmallScroll Down:=-27
Range("D31").Select
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:
Sheets("Original").Select
ActiveWindow.SmallScroll Down:!
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:=-6
Sheets("Original").Select
ActiveWindow.SmallScroll Down:=3
Range("A51:N51").Select
Range("N51").Activate
Selection.Copy
Selection.Insert Shift:=xlDown
Range("A52:N52").Select
Range("N52").Activate
Application.CutCopyMode = False

Merci!

--
géjoun

/Enlever l''année pour m''écrire.../




géjoun
Le #4354601
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 :

Sheets("Original").Select
ActiveWindow.SmallScroll Down:=-27
Range("D31").Select

au lieu d'en avoir 3 (si c'est faisable).

Merci!

--
géjoun

/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
'--------------------------


MichDenis
Le #4354581
2 Façons de faire :

Application.Goto Sheets("Original").Range("D31")
OU
Application.Goto Sheets("Original").Range("D31"), True

"géjoun"
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 :

Sheets("Original").Select
ActiveWindow.SmallScroll Down:=-27
Range("D31").Select

au lieu d'en avoir 3 (si c'est faisable).

Merci!

--
géjoun

/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
'--------------------------


MichDenis
Le #4354561
.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"
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"
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

------------------------------------------------------------------
ActiveWindow.SmallScroll Down:$
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:=9
Range("K29").Select
Sheets("Original").Select
ActiveWindow.SmallScroll Down:=-27
Range("D31").Select
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:
Sheets("Original").Select
ActiveWindow.SmallScroll Down:!
Sheets("Produit001").Select
ActiveWindow.SmallScroll Down:=-6
Sheets("Original").Select
ActiveWindow.SmallScroll Down:=3
Range("A51:N51").Select
Range("N51").Activate
Selection.Copy
Selection.Insert Shift:=xlDown
Range("A52:N52").Select
Range("N52").Activate
Application.CutCopyMode = False

Merci!

--
géjoun

/Enlever l''année pour m''écrire.../




géjoun
Le #4332241
MichDenis nous expliquait :

2 Façons de faire :

Application.Goto Sheets("Original").Range("D31")
OU
Application.Goto Sheets("Original").Range("D31"), True



Ok, cette fois-ci, j'ai toutes mes réponses!
Merci!
--
géjoun

/Enlever l'année pour répondre.../

Publicité
Poster une réponse
Anonyme