Bonjour à tous,
Mon soucis est le suivant :
Dans la colonne D de la feuille1, chaque cellule comporte des données.
J'aimerais recopier les données de la cellule D2 dans E2, D3 dans E3, etc... jusque D10000 dans E10000.
Pour l'instant j'utilise :
et comme celà jusque 10000.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sheets("Feuil1").Range("E2") = Sheets("Feuil1").Range("D2") Sheets("Feuil1").Range("E3") = Sheets("Feuil1").Range("D3") Sheets("Feuil1").Range("E4") = Sheets("Feuil1").Range("D4") Sheets("Feuil1").Range("E5") = Sheets("Feuil1").Range("D5") Sheets("Feuil1").Range("E6") = Sheets("Feuil1").Range("D6") Sheets("Feuil1").Range("E7") = Sheets("Feuil1").Range("D7") Sheets("Feuil1").Range("E8") = Sheets("Feuil1").Range("D8") Sheets("Feuil1").Range("E9") = Sheets("Feuil1").Range("D9") Sheets("Feuil1").Range("E10") = Sheets("Feuil1").Range("D10")
J'aimerais trouver un code qui soit nettement plus léger et moins long pour que chaque cellule de la colonne E recoive les données de la celulle qui lui correspond dans la colonne D.
Quelqu'un pourrait-il m'aiguiller ?
Merci par avance.
Laurent
Partager