Copier colonne

Vins59 -  
melanie1324 Messages postés 1561 Statut Membre -
Bonjour à tous et à toutes,

Jeune programmateur en VBA, j'ai besoin de vos lumières.
Voici mon problème:
Je souhaite copier la colonne U et R de ma première feuille excel sur la colonne A et B de la seconde feuille... vous allez me dire ... mais il est naze ce type !!!! ^^ sauf que voilà les données calculées en U et en R sont dans une boucle et je veux prendre à chaque boucle leurs valeurs pour les mettres en A et B (boucle 1) puis C et D (boucle 2) puis E et F etc.
En fin d'opération je souhaite les derniéres données calculées sur les colonnes U et R sur ma 1ére feuille et sur la seconde en A-B les valeurs de U-R après 1ére boucle, en C-D le svaleurs de U-R après la seconde boucle ...

J'ai essayé de faire quelque chose du style:
Sub appel()
Dim z As Chart
Dim j As Integer
For j = 1 To 3 'Mes 3 boucles
Call NR 'Fonction qui permet calcul données
Call Sigma 'Seconde fonction qui permet calcul données
z = Chr(64 + j)
Sheets("calculs").Select
Columns("U:U").Select
Selection.Copy
Sheets("Stockage").Select
Columns("z:z").Select
ActiveSheet.Paste
Next
End Sub

Je sais pas si le "Chart" est correct déja ...

Merci d'avance.

A voir également:

1 réponse

melanie1324 Messages postés 1561 Statut Membre 156
 
Bonjour,
il suffit de modifier ton code comme suit :
Sub appel()
Dim z As Chart

j=1
i=1
do while j <=3
Call NR 'Fonction qui permet calcul données
Call Sigma 'Seconde fonction qui permet calcul données
z = Chr(64 + j)
Sheets("calculs").Select
Columns("U:V").Copy
Sheets("Stockage").Select
cells(i,1).select
ActiveSheet.Paste
i=i+2
j=j+1
loop
End Sub
0