Comment simplifier

[David59]

Bonsoir le forum 🙂

Dans mon Projet je dois prendre des données sur une page pour les mettes sur une autre page mais je ne peux pas faire un copier coller
J’ai donc créé ça

R = "1"
TextBox1 = Sheets("donnée2").Range("a" & R)
Sheets("donnée").Range("m" & R) = TextBox1
R = "2"
TextBox1 = Sheets("donnée2").Range("a" & R)
Sheets("donnée").Range("m" & R) = TextBox1
R = "3"
TextBox1 = Sheets("donnée2").Range("a" & R)
Sheets("donnée").Range("m" & R) = TextBox1
R = "4"
TextBox1 = Sheets("donnée2").Range("a" & R)
Sheets("donnée").Range("m" & R) = TextBox1
R = "5"
TextBox1 = Sheets("donnée2").Range("a" & R)
Sheets("donnée").Range("m" & R) = TextBox1

Ça fonction très bien, mes j'ai 100 lignes. Je me demande si on peut faire plus simple😕
Merci d'avance david @+

 

[jp14]

Re : Comment simplifier

Bonsoir

avec un code comme ceci
i=1
Sheets("donnée").Range("m" & i)= Sheets("donnée2").Range("a" & i)
i= i +1
Sheets("donnée").Range("m" & i)= Sheets("donnée2").Range("a" & i)

.................................
ou
for i = 1 to 100 ' pour i =1 jusqu'a 100
Sheets("donnée").Range("m" & i)= Sheets("donnée2").Range("a" & i)
next i


JP