[VBA] répétition codes

[swan]

Bonjour,

je voudrais écrire une macro (boucle?) qui répète les codes du type:

Cells(1, 1) = Cells(1, 1) & Cells(1, 2) & Cells(1, 3)
Cells(2, 1) = Cells(2, 1) & Cells(2, 2) & Cells(2, 3)
Cells(3, 1) = Cells(3, 1) & Cells(3, 2) & Cells(3, 3)
Cells(4, 1) = Cells(4, 1) & Cells(4, 2) & Cells(4, 3)
etc...

soit

Cells(n, 1) = Cells(n, 1) & Cells(n, 2) & Cells(n, 3)

où n est un nombre quelconque de lignes

 

[PascalXLD]

Re : [VBA] répétition codes

Bonjour

essaies

for x = 1 to n
Cells(x, 1) = Cells(x, 1) & Cells(x, 2) & Cells(x, 3)
Next

 

[SergiO]

Re : [VBA] répétition codes

Bonjour swan,

Un exemple :

For n = 1 To 4
Cells(n, 1) = Cells(n, 1) & Cells(n, 2) & Cells(n, 3)
Next n

@+

 

[swan]

Re : [VBA] répétition codes

Merci beaucoup!

mais si je connais pas le nombre de lignes, vu que je manipule plusieurs fichiers où le nombre d'entrées est variables. donc je voudrais un code automatique du genre:

For n = 1 To p

 

[PascalXLD]

Re : [VBA] répétition codes

re

Dans ce cas là tu peux faire par exemple

n= range("A65536").end(Xlup).row
for x = 1 to n
Cells(x, 1) = Cells(x, 1) & Cells(x, 2) & Cells(x, 3)
Next

Cela te calculera la dernière ligne de la colonne A et ensuite bouclera de la ligne 1 à la ligne n

 

[swan]

Re : [VBA] répétition codes

Ok!

je t'en remercie.

a++