Next cellule "+ 4"

Bonjour,

Je bloque sur un petit truc

Voilà ma macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Mise_en_forme() Dim sh1 As Worksheet, sh2 As Worksheet Dim lig As Long, a As Variant, b As Variant, c As Variant, d As Variant Set sh1 = Worksheets(1) Set sh2 = Worksheets(2) For Each cellule In Range("A11:A1000") a = sh1.Cells(cellule.Row, 1).Value b = sh1.Cells(cellule.Row + 1, 1).Value c = sh1.Cells(cellule.Row + 2, 1).Value d = sh1.Cells(cellule.Row + 3, 1).Value lig = sh2.[A65536].End(xlUp).Row + 1 sh2.Cells(lig, 1) = a sh2.Cells(lig, 2) = b sh2.Cells(lig, 3) = c sh2.Cells(lig, 4) = d Next cellule End Sub

---

Dans la colonne A de la feuille 1 j'ai des textes du genre :

aaaaaaaaaaaa
bbbbbbbbb
cccccc
ddd
eeeeeeeeeeee
fffffffff
gggggg
hhh

etc...

J'ai fait cette macro pour copier/coller les :

"aaa..." = colonne A de la feuille 2
"bbb..." = colonne B de la feuille 2
"ccc..." = colonne C de la feuille 2
"ddd..." = colonne D de la feuille 2

ensuite on passe aux "eee...", et à la ligne suivante de la feuille 2 :

"eee..." = colonne A de la feuille 2
"fff..." = colonne B de la feuille 2
"ggg..." = colonne C de la feuille 2
"hhh..." = colonne D de la feuille 2


Mais le soucis c'est que je n'arrive pas à lui dire de passer aux "eee..."

Pour lui "Next cellule" ça veut dire les "bbb..."

Donc comment je pourrais lui dire que "Next cellule" = "cellule + 4"

Comme ça il comprendra qu'il faut aller à "eee..."


Merci par avance !!!

Slt, wyzer
j'ai favorisé une boucle for to qui me semblait plus approprié qu'une boucle for each, en partant de la ligne 11 jusque la dernière cellule de la colonne A utilisée:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim sh1 As Worksheet, sh2 As Worksheet Dim lig As Long, i As Long Set sh1 = Worksheets(1) Set sh2 = Worksheets(2) For i = 11 To sh1.Range("A65536").End(xlUp).Row Step 4 lig = sh2.[A65536].End(xlUp).Row + 1 sh2.Cells(lig, 1) = sh1.Cells(i, 1).Value sh2.Cells(lig, 2) = sh1.Cells(i + 1, 1).Value sh2.Cells(lig, 3) = sh1.Cells(i + 2, 1).Value sh2.Cells(lig, 4) = sh1.Cells(i + 3, 1).Value Next i

---

Dis nous ce que tu en penses
@+

Excellent !!!!!!!!!!!!


Merci !!!!!!!! :ccool:

De rien, n'oublie :resolu: si cela te convient.
;)