Copier colonne, coller par lot de 4 en ligne

Bonjour à tous,

J'ai des données dans la colonne C sur la feuille1 et souhaite les copier et les coller dans la feuilles2 par lots de 4.... je m'explique

les 4 premières cellules (C1, C2, C3 et C4) de la colonne C (feuille1) devraient être collées dans les cellules C1, D1, E1 et F1 (feuille2)

les 4 suivantes (C5, C6, C7 et C8) de la colonne C (feuille1) devraient être collées dans les cellules C2, D2, E2 et F2 (feuille2)

etc...

Il est facile de le faire avec collage spécial / transposer, mais j'ai beaucoup de données et ne connais pas bien VB. Je commence à voir cela.. si quelqu'un pouvait m'aider!

Merci à tous!

Bonjour

voici une macro faite sur le pouce

sur 2 feuille pour pas écraser les données de la colonne C

Sub copie()
      dim i as long, j as byte, ligne as long
      ligne = 0
      for i = 1 to range("C65536").end(xlup).row step 4 ' boucle sur toute les lignes en sautant 4 lignes
             ligne = ligne + 1
             for j = 1 to 4 ' boucle sur les 4 valeurs
                   Sheets("Feuil2").cells(ligne,j + 2) = cells(j+i-1)
             next j
      next i
end sub 

Merci pour votre réponse, vais essayer le code et vous tiens informé!

Merci!

Salut le forum

Juste une petite erreur dans le code de Wilfred

Sub copie()
      Dim i As Long, j As Byte, ligne As Long
      ligne = 0
      For i = 1 To Range("C65536").End(xlUp).Row Step 4 ' boucle sur toute les lignes en sautant 4 lignes
             ligne = ligne + 1
             For j = 1 To 4 ' boucle sur les 4 valeurs
                   Sheets("Feuil2").Cells(ligne, j + 2) = Cells(j + i - 1, 3)
             Next j
      Next i
End Sub

La correction :

• Sheets("Feuil2").Cells(ligne, j + 2) = Cells(j + i - 1, 3)

Mytå

[color=blue]Edit Amadéus: Bonjour Mytå.

Mais non, demande à Sébastien, il a bien remis le mien à 0.

Merci, cela fonctionne avec ma page test.... je n'aurais jamais trouvé cela tout seul sans passer des heures à apprendre les bases. Je n'ai pas envie d'ingurgiter une tonne de syntaxes, j'aimerais bien apprendre à l'aide d'exemples concrets... avez vs des références qui vous viennent à l'esprit?

En tous les cas, j'apprécie votre aide et ai encore d'autres questions. Mais je vais d'abord essayer par moi même!

Encore merci à wilfried et à Myta (sans le °)

Re le forum

Code modifiable à lancer depuis la feuille 2 pour le saut de ligne

Sub Transposition()
Dim F_Org As Object
Dim F_Dest As Object
Dim Ligne_Org As Long
Dim Ligne_Dest As Long
Dim Saut As Byte

Set F_Org = Sheets("Feuil1")
Set F_Dest = Sheets("Feuil2")
Saut = 4

F_Dest.Cells.Delete

For Ligne_Org = 1 To F_Org.Range("C65536").End(xlUp).Row Step Saut
Ligne_Dest = Ligne_Dest + 1

With F_Org
    F_Dest.Range(Cells(Ligne_Dest, 3), Cells(Ligne_Dest, Saut + 2)) = _
        WorksheetFunction.Transpose(.Range(.Cells(Ligne_Org, 3), .Cells(Ligne_Org + Saut - 1, 3)))
End With

Next Ligne_Org

Set F_Org = Nothing
Set F_Dest = Nothing

End Sub

On peut rajouter plein de choses avec des InputBox, le Nbre de ligne, la colonne de destination.....

Mytå

Bonjour les Amis et le Forum,

Actuellement la macro écrit les infos de la colonne C en feuil1 sur la feuil2 de C à F

A B C D en C1 à F1

E F G H de C2 à F2

etc ...

Est-il possible d'adjoindre les infos suivantes à la feuil2 sans écraser les infos ci-dessus ?

UN DEUX TROIS QUATRE en G1 à J1

CINQ SIX SEPT HUIT de G2 à J2

etc ...

Pour obtenir au final soit en une macro ou en passnt par deux macros ce résultat :

A B C D UN DEUX TROIS QUATRE en C1 à J1

E F G H CINQ SIX SEPT HUIT de C2 à J2

etc ...

https://www.excel-pratique.com/~files/doc2/GwGEHClasseur1.xls

A bientôt