Copier colonne
Vins59
-
melanie1324 Messages postés 1561 Statut Membre -
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.
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:
- Copier colonne
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
1 réponse
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
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