Bonjour,

Je bloque sur un petit truc

Voilà ma macro :

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
 
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 !!!