Discussion :

[Vbamateur]

Bonjour à tous,

Je sollicite aujourd'hui votre aide afin de pouvoir comprendre l'articulation d'une macro que je souhaite réaliser.
En effet, ma macro est supposée réarranger des lignes en colonnes en respectant un certain ordre. Du coup, elle doit de temps en temps sauter une ligne et préserver certains numéros de colonnes.
Je m'excuse pour mon explication assez floue. De fait, je vous joins mon début de code que je souhaiterais réaliser sur bien plus de lignes.

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
16
17
18
19
20
21
22
23
24
25
26
Sub rearangementcolonne()
Dim i, j As Integer
j = 6
    For i = 4 To 8
        Cells(i, 3).Value = Cells(3, j).Value
        Cells(i, 4).Value = Cells(3, j + 1).Value
        Cells(i, 5).Value = Cells(3, j + 2).Value
        j = j + 3
    Next i
i = i + 2
j = 6
    For i = 10 To 14
        Cells(i, 3).Value = Cells(9, j).Value
        Cells(i, 4).Value = Cells(9, j + 1).Value
        Cells(i, 5).Value = Cells(9, j + 2).Value
        j = j + 3
    Next i
i = i + 2
j = 6
     For i = 16 To 20
        Cells(i, 3).Value = Cells(15, j).Value
        Cells(i, 4).Value = Cells(15, j + 1).Value
        Cells(i, 5).Value = Cells(15, j + 2).Value
        j = j + 3
    Next i
End Sub

[Minise]

tu peux faire un copier/coller en transposé par exemple un truc dans ce genre là

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 testititoto()
Dim i As Long
Dim j As Long
 
i = 4
j = 3
    For i = 4 To Range("C4").End(xlDown).Row Step 6
    Range(Cells(i, j), Cells(i + 4, j + 2)).Copy
    Cells(i - 1, j + 3).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Next i
 
 
 
End Sub

Apres selon ton code t'as l'air d'avoir un nombre fixe de ligne, faut aussi voir comment tu l'arretes

[Docmarti]

Bonjour.

Pour mettre les données d'une ligne sur 3 colonnes:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub tt()
 
Set f = ActiveSheet
 
Set orig = f.Range("$F$3:$T$15")
 
Set dest = f.Range("C4")
 
orig.Select
 
coldest = dest.Column: lignedest = dest.Row
 
NbrColonnesDestination = 3
 
For ligne = 1 To orig.Rows.Count Step 6
 nbr = 0
 ok = fale
 
 For col = 1 To orig.Columns.Count
  orig.Cells(ligne, col).Select
 
  f.Cells(lignedest, coldest + nbr).Select
 
   f.Cells(lignedest, coldest + nbr).Value = orig.Cells(ligne, col).Value
 
   nbr = nbr + 1
 
   If nbr = NbrColonnesDestination Then
    nbr = 0
    lignedest = lignedest + 1
   End If
 
 Next
 lignedest = lignedest + 1
 
Next
 
End Sub

[Vbamateur]

Tout d'abord merci à vous deux pour votre réponse aussi rapide. J'avoue que j'ai une légère préférence pour le code de Docmarti même si le tiens Minise m'avait donné une bonne piste! De fait, il ne me reste qu'une seule question avant que cette discussion soit résolue. En effet, je ne comprends pas comment pousser le code à répéter l'opération jusqu'à la ligne 556. Pourrais-je avoir une explication? Il me semble qu'il faille modifier la deuxième coordonnée du range appelé "orig" mais est-ce tout?

Merci encore,

Bien cordialement,
Vbamateur.