Code VBA pour macro de recopie

Résolu/Fermé

Fafa m - 22 avril 2013 à 16:06
Fafa m - 23 avril 2013 à 08:52

Bonjour,
J'ai un nombre variable de lignes avec des données sur 4 colonnes (A,B,C,D). La valeur en E1 doit se recopier de E2 à E "dernière ligne du fichier" Je procède en 2 temps :
1- je détermine la dernière cellule active de la colonne E :
Columns("E:E").Select
ActiveCell.SpecialCells(xlLastCell).Select
wlastcell = ActiveCell.Select

2- je copie la valeur de E1 dans la zone de E2 à wlastcell :
Range("E1").Select
Selection.Copy
Range("E2", wlastcell).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Mais le Range ("E2",wlastcell) n'est pas correct et la macro de recopie ne fonctionne pas.
SVP, quelqu'un peut-il m'aider.
Merci

A voir également:

Code VBA pour macro de recopie
Code asci - Guide
Code puk bloqué - Guide
Code de déverrouillage oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

2 réponses

Réponse 1 / 2

Fafa m
22 avril 2013 à 16:36

J'ai omis de préciser qu'il s'agit d'un fichier et d'une macro Excel.

Réponse 2 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
22 avril 2013 à 19:04

Bonjour,

avec vos instructions excel:

Sub test()
    wlastcell = Columns("E:E").SpecialCells(xlLastCell).Address
    Range("E1").Select
    Selection.Copy
    Range("E2:" & wlastcell).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Fafa m
23 avril 2013 à 08:52

Merci beaucoup pour la solution !

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Codes bateaux et avion GTA vice city Stories

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Discussions similaires

Newsletters