Discussion :

[ro31hg]

Bonjour à tous,

Je suis nouveau sur ce forum et aussi sur VBA, et j'ai deja un petit problème.
J'ai conssulter les différent article sur le forum pour le résoudre mais sans succé.
Voila je cherche a faire un truc qui doit vous paraitre tout bête, je cherche à créer un code afin de séléctionner et couper une cellule sur trois dans la même colonne (par exemple la A1, A4 etc...) et les copier dans la colonne d'aprés en suivant (cellule A1 en B1, cellules A4 en B2 etc...)
Voici le code que j'ai esquissé mais il ne marche pas si quelqu'un a un solution..

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
Sub Macro1()
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
 
i = 1
k = 1
 
For j = k * 4 To 1000
 
    Cells(j, i).Select
 
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 
Application.CutCopyMode = False
 
Next
 
End Sub

Merci par avance

[Gorfael]

Salut ro31hg et forum
Bienvenue
Quelques remarques : Utilises les balises de code (#) pour mettre du code.
Le code donné ne correspond pas à la description du problème (.Copy = copier et non couper)
Une proposition

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
Dim X As Long
For X = 1 To Range("A" & Rows.Count).Row Step 3
    Range("A" & X).Copy 'copier
    'Range("A" & X).Cut  'Couper
    Range("C" & Rows.Count).End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
Next X
Application.CutCopyMode = False
End Sub

Le code étant simple, je n'ai pas testé
A+

[laetitia]

bonsoir ro31hg l'ami Gorfael je comprends un peu differament je peus me tromper ???

Code :

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

1
2
3
4
5
6
7
Sub es()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 4
If i = 1 Then Cells(i, 2) = Cells(i, 1)
If i > 1 Then Range("b" & Rows.Count).End(xlUp)(2) = Cells(i - 1, 1)
Next i
End Sub