Simplification macro

[julien974]

Bonjour,

J'ai de nouveau besoin de votre aide amis Excelien! ^^

J'aimerai optimiser la macro suivante pour un temps d'execution plus rapide.

Sub hihi()

Sheets("Feuil2").Activate
Columns(1).ClearContents

Range("A3").Value = "DATE"
Sheets("Feuil3").Activate
Range("C2").Activate

For j = Sheets("Feuil3").Range("C2").Column To Sheets("Feuil3").Range("IV2").End(xlToLeft).Column
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Next j

End Sub

Merci de votre aide précieuse,

Juli3n974

 

[mromain]

Re : Simplification macro

bonjourjulien974,

à tester :

With Sheets("Feuil2")
    .Columns(1).ClearContents
    .Range("A3").Value = "DATE"
    For j = 3 To Sheets("Feuil3").Cells(2, Sheets("Feuil3").Columns.Count).End(xlToLeft).Column
        For i = 1 To 4
            Sheets("Feuil3").Cells(2, j).Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0)
        Next i
    Next j
End With

a+

 

[julien974]

Re : Simplification macro

Rebonjour,

J'ai fais ceci et ça va un peu plus vite...
Peut on modifier le corps de la macro (la boucle)?

Sub hihi()

Application.ScreenUpdating = False

Sheets("Feuil2").Activate
Columns(1).ClearContents

Range("A3").Value = "DATE"
Sheets("Feuil3").Activate
Range("C2").Activate

For j = Sheets("Feuil3").Range("C2").Column To Sheets("Feuil3").Range("IV2").End(xlToLeft).Column
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
    
    Sheets("Feuil3").Activate
    Cells(2, j).Copy
    Sheets("Feuil2").Activate
    Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Next j

ScreenUpdating = true
End Sub

Merci bcp

 

[vbacrumble]

Re : Simplification macro

Re


Tu as testé le code de mromain ?

 

[julien974]

Re : Simplification macro

Oui je viens de le voir,

On a du se croiser, lol!

Merci bcp,

Juli3n 974

 

[vbacrumble]

Re : Simplification macro

Re


Un suggestion avec le code de mromain

Sub macro 2()
[COLOR="Green"]'Permet de réutiliser simplement le code pour l'appliquer à d'autres feuilles
'il suffit d'adapter ce qui est en bleu[/COLOR]
Dim fs As Worksheet:        Set fs = [COLOR="Blue"]Sheets("Feuil3")[/COLOR]
Dim fd As Worksheet:        Set fd = [COLOR="Blue"]Sheets("Feuil2")[/COLOR]
Application.ScreenUpdating = False
With fd
    .Columns(1).ClearContents
    .Range("A3").Value = "DATE"
    For j = 3 To fs.Cells(2, fs.Columns.Count).End(xlToLeft).Column
        For i = 1 To 4
            fs.Cells(2, j).Copy .[A66536].End(xlUp).Offset(1)
        Next i
    Next j
End With
Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : Simplification macro

Bonjour à tous

quelque chose doit m'échapper, vois pas trop l'intérêt de la boucle :

For i = 1 To 4
    fs.Cells(2, j).Copy .[A66536].End(xlUp).Offset(1)
Next i

la variable "i" n'étant pas utilisée... c'est la même copie qui est faites..

bon après midi
@+

 

[mromain]

Re : Simplification macro

re,

Pierrot : en fait, moi non plus, je ne vois pas trop l'intéret, mais dans le "code à simplifier", il y a 4 copie de la même ligne (si j'ai bien compris)

a+

 

[Pierrot93]

Re : Simplification macro

Re

oui, merci Romain, attentons que Julien précise la chose...

@+i

 

[julien974]

Re : Simplification macro

Bonjour et merci encore pour vos réponse!

En effet, il faut copier 4 fois la même valeur...

Cordialement,

Juli3n 974

 

[vbacrumble]

Re : Simplification macro

Bonjour à tous


Désolé j'ai copié coller le code de mromain sans faire gaffe à ce que Pierrot93 a constaté.