Bonjour à tous,
Je suis débutant sur VBA et je dois faire quelque chose qui me parait compliqué.
Je dois faire passer l'information d'une feuille excel à une autre mais en changeant le format.
Par exemple je dois faire apparaitre les informations de 50 colonnes sur une seule colonne dans la nouvelle feuille. J'arrive à faire apparaitre la premiere colonne mais je n'arrive pas à trouver le code afin que l'information dela colonne suivante aille à la suite de la premiere. Je ne trouve pas non plus comment faire une boucle pour importer les informations des 50 colonnes.
Voici mon code :
Dim i As Integer
Dim j As Integer
j = 7
For i = 12 To 133 'i parcours les lignes
Sheets(15).Range("V" & j).Value = Sheets(7).Range("I" & i).Value 'I debut de la colonne
j = j
Sheets(15).Range("U" & j).Value = Sheets(8).Range("I" & i).Value 'I debut de la colonne
j = j + 1
J'ai mis en copie le fichier excel en question :
les information doivent aller de la feuille VAr FTE à LA feuille 1
- les colonnes I à GB et de la ligne 12 à 133 doivent etre collees sur une seule colonne de la feuille 1 (colonne V)
- Les colonnes C et D doivent etre collees en colonnes W et Y et se repeter 51 fois car 51 colonnes
- La cellule I 8 doit etre colles en cellule C7 et etre repete 121 fois X par les 51 colonnes
Voila une partie de mon probleme j'espere que mon mail n'est pas trop long et que ca va pas vous decourager sachant que ma priorité est le point numero un.
Merci d'avance pour votre aide
A plus
Yannick
Je suis débutant sur VBA et je dois faire quelque chose qui me parait compliqué.
Je dois faire passer l'information d'une feuille excel à une autre mais en changeant le format.
Par exemple je dois faire apparaitre les informations de 50 colonnes sur une seule colonne dans la nouvelle feuille. J'arrive à faire apparaitre la premiere colonne mais je n'arrive pas à trouver le code afin que l'information dela colonne suivante aille à la suite de la premiere. Je ne trouve pas non plus comment faire une boucle pour importer les informations des 50 colonnes.
Voici mon code :
Dim i As Integer
Dim j As Integer
j = 7
For i = 12 To 133 'i parcours les lignes
Sheets(15).Range("V" & j).Value = Sheets(7).Range("I" & i).Value 'I debut de la colonne
j = j
Sheets(15).Range("U" & j).Value = Sheets(8).Range("I" & i).Value 'I debut de la colonne
j = j + 1
J'ai mis en copie le fichier excel en question :
les information doivent aller de la feuille VAr FTE à LA feuille 1
- les colonnes I à GB et de la ligne 12 à 133 doivent etre collees sur une seule colonne de la feuille 1 (colonne V)
- Les colonnes C et D doivent etre collees en colonnes W et Y et se repeter 51 fois car 51 colonnes
- La cellule I 8 doit etre colles en cellule C7 et etre repete 121 fois X par les 51 colonnes
Voila une partie de mon probleme j'espere que mon mail n'est pas trop long et que ca va pas vous decourager sachant que ma priorité est le point numero un.
Merci d'avance pour votre aide
A plus
Yannick