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.

1 réponse

  1.
    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