Simplification de code VBA (copié/collage spécial)

[rounil09]

Bonjour la liste,

Ce code VBA fonctionne.

Sheets("Liste_EP").Select

Sheets("Liste_EP").Range("B" & Rows.Count).End(xlUp).Copy
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Activate
ActiveCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone

Sheets("Liste_EP").Range("D" & Rows.Count).End(xlUp).Copy
Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Activate
ActiveCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone

Sheets("Liste_EP").Range("E" & Rows.Count).End(xlUp).Copy
Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Activate
ActiveCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone


Il y a sans nul doute une écriture condensée bien plus simple (et donc plus rapide).
Il y a un bon moment que j'insiste pour en venir à bout, mais j'y perd le latin que je n'ai jamais eu…
Bref. Un petit coup de pouce serait le bienvenu…

 

[Gorfael]

Re : Simplification de code VBA (copié/collage spécial)

Salut rounil09 et le forum
Utilise les balises !

Sheets("Liste_EP").Select

Range("B" & Rows.Count).End(xlUp).Copy
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone
        
Range("D" & Rows.Count).End(xlUp).Copy
Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone

Range("E" & Rows.Count).End(xlUp).Copy
Range("E" & Rows.Count).End(xlUp).Offset(1, 0)..PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone

J'ai juste sélectionné la feuille, mais on peut le faire sans sélection avec un With et un point devant chaque instruction pour lui lier les range
A+

 

[rounil09]

Re : Simplification de code VBA (copié/collage spécial)

Merci Gorfael,
Je vais faire avec un with.
Je pensais, à priori a tort, qu'on pouvait regrouper la copie des 3 cellules dans une ligne

Quelque chose du style.
Range("B, D, E" & Rows.Count).End(xlUp).Copy

 

[Gorfael]

Re : Simplification de code VBA (copié/collage spécial)

Salut rounil09 et le forum
Petit rappel : il n'y a ni télépathe ni devin parmi ceux qui essaient de répondre !
Le code fourni nous donne la copie des formules des dernières cellules non vides des colonnes B, D et E à la ligne suivante, sans aucune autre information, sans savoir à quoi ça sert, ni si les colonnes sont d'égales longueurs, ni si le fait de copier C serait néfaste => tu as donc une réponse qui correspond à la question posée et pas à celle que tu as imaginée 😡 !
On peut envisager un bout de code du genre :

Dim X as Long
...
X=cells(Rows.count,"B").end(xlup).row
range(cells(x,"B"),cells(x,"E")).copy
Range("B" & x+1).PasteSpecial Paste:=xlPasteFormulas
range(x+1,"C").clearcontent

Je ne l'ai pas testée.
De plus, si B est vide, on risque la perte des données en C, D et E
A+