Discussion :

[Liloo14]

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 :

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")

et comme celà jusque 10000.
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

[Jean-Philippe André]

salut,

tu as plusieurs possibilités, mais la plus simple sera l'utilisation d'une boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To 10000
Sheets("Feuil1").Range("E" & i) = Sheets("Feuil1").Range("D" & i)
Next i

[Liloo14]

Merci beaucoup pour ta réponse jpcheck.
J'ai utiliser ce que tu m'as donné de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Recopier_Num_Activation()
For i = 1 To 10000
Sheets("Feuil1").Range("E" & i) = Sheets("Feuil1").Range("D" & i)
Next i
End Sub

J'obtiens un message d'erreur qui me dit qu'il y a une erreur de compilation avec une variable non définie.
Que puis-je y faire stp ?

Merci encore

[Philippe Tulliez]

Bonjour,
Une autre solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Copie()
 With ThisWorkbook.Worksheets("Feuil1")
 .Range("E2:E10000").Value = .Range("D2:D10000").Value
 End With
End Sub

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .Range("E2:E10000").Formula = .Range("D2:D10000").Formula

Si l'on souhaite garder les formules

[Liloo14]

Merci à jpcheck et à Philippe, j'ai trouvé.

En fait déclarer la variable est simple.
Pour ceux qui suivent le poste, voilà la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Recopier_Num_Activation()
Dim i As Long
For i = 1 To 10000
Sheets("Feuil1").Range("E" & i) = Sheets("Feuil1").Range("D" & i)
Next i
End Sub

Laurent