Aide macro

[desatan]

Bonjour,

Je viens de créer une macro en passant par enregistrer.
Je sais qu'il y a moyen de l'écrire de façon plus simple et plus petite mais je ne sais pas le faire.
Quelqu'un peut m'aider ?
Je vous copie-colle ma macro actuelle. Dans cette macro, je fais du copier-collage spécial valeur de la feuille2 à la feuille1
Merci par avance

Sub JANVIER()
'
' JANVIER Macro
'

'
Sheets("Feuil2").Select
ActiveWindow.SmallScroll Down:=-21
Range("D2:I2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("D2:I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
Range("D6:I25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
Range("D27:I53").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("D27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
End Sub

 

[jp14]

Re : Aide macro

Bonjour

Pour simplifier la procédure, il faut supprimer le couple "select selection"
Sheets("Feuil1").Select
Range("D6").Select
Selection.Paste

Sheets("Feuil1").Range("D6").Paste.....

ActiveWindow.SmallScroll Down:=-21 cette ligne est à supprimer, elle correspond au déplacement du curseur.

Auparavant il faut faire une copie du fichier et tester au fur et à mesure des suppressions

JP

 

[Guest]

Re : Aide macro

Bonjour,

tout comme JP14 (que je salue😀) ou

 Sheets("Feuil1").Range("D2:I2").Value = Sheets("Feuil2").Range("D2:I2").Value

Où PlageDestination.Value = PlageSource.Value

A+

 

[desatan]

Re : Aide macro

Merci pour vos réponses mais je ne suis pas doué et je n'ai pas compris 🙁

 

[jp14]

Re : Aide macro

Bonjour

Salut Hasco

La procédure simplifiée

Sub JANVIER()
'
' JANVIER Macro
'

'
Sheets("Feuil2").Range("D2:I2").Copy
Sheets("Feuil1").Range("D2:I2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuil2").Range("D6:I25").Copy
Sheets("Feuil1").Range("D6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuil2").Range("D27:I53").Copy
Sheets("Feuil1").Range("D27").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
End Sub

JP

 

[desatan]

Re : Aide macro

ok merci je teste 🙂