Discussion :

[Petit_Fou]

Bonjour à tous,

Malgré mes recherches sur les divers sujets existants sur le copier collé transposé, avec VBA, sur Excel je ne m'en sors pas...

Je m'explique rapidement : j'ai besoin d'effectuer un copier coller spécial (transposé), d'une colonne (de 15000 lignes), toute les 215 lignes sur 70 ligne de 215 colonnes...
Exemple : Je copie les cellules de A1 à A215 puis les colles transposées de E1 jusqu’à HK1, puis je recommence, je copie de A216 à A430 puis je colle transposé de E2 à HK2 etc...

J'ai commencé un petit code mais il ne fonctionne pas : le message d'erreur suivant s'affiche : "Erreur d'éxécution 1004 : Erreur définie par l'application ou par l'objet"

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Bouch()
 
Dim i As Integer
Dim j As Integer
 
j = 215
 
For i = 1 To 69
 
Range(Cells(1, i * j - 215), Cells(1, i * j)).Copy
Cells(i, 5).PasteSpecial Paste:=xlPasteAll, Transpose:=True
 
Next i
 
End Sub

Je précise que je suis tout à fait conscient de mon niveau médiocre en VBA, et que je ne serai pas étonné que ma faute soit très très bête...
Merci d'avance !

[Menhir]

Tu confonds lignes et colonnes dans certains Cells

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouch()
    Dim i As Long
    Dim j As Long
    Dim k As Integer
 
    k = 215
    j = 0
    For i = 1 To Cells(Rows.Count,1).End(xlUp).Row Step k
        j = j + 1    ' On pourrait l'éviter en divisant (i-1) par k mais c'est plus clair ainsi
        Range(Cells(i,1), Cells(i+k-1,1)).Copy
        Cells(j, 5).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Next i
 
End Sub