Optimisation ecriture,

[Mattharm]

Bonjour à tous,

J'écris dans une feuille excel via une macro vba :

Cells(1,1).value = Arg1
Cells(1,2).value = Arg2
Cells(1,3).value = Arg3
Cells(1,4).value = Arg4

N'y aurait il pas un moyen de faire plus simple ?
Une espece de commande ou l'on donne la ligne et il incrémente tout seul les colonnes pour entrer les ArgX

Merci,
M.

 

[phlaurent55]

Re : Optimisation ecriture,

Bonjour Mattharm


essaie ceci

For i = 1 to 4
Cells(1,i).value = Arg&i
Next i

 

[Mattharm]

Re : Optimisation ecriture,

Bonjour phlaurent55,

Je cherche plus quelque chose d'existant. J'imagine qu'avec une boucle for je peux arriver à mes fins.

Merci quand même

 

[ROGER2327]

Re : Optimisation ecriture,

Bonjour Mattharm, phlaurent55

Liste = Array(Arg1, Arg2, Arg3, Arg4)
RANGE("A1:D1").Value = Liste

peut-être ?​

ROGER2327

 

[pierrejean]

Re : Optimisation ecriture,

bonjour Mattharm
Salut phlaurent55
Salut Roger

Une variante du code de Roger qui permet d'allonger ou raccourcir la Liste sans devoir modifier la 2eme ligne

Liste = Array(Arg1, Arg2, Arg3, Arg4)
Range("A1").Resize(, UBound(Liste) + 1) = Liste

 

[Mattharm]

Re : Optimisation ecriture,

Génialissime !

Je pensais le faire comme Roger, mais merci à PierreJean pour l'automatisation de la deuxième ligne !

Merci à tous.
Mattharm