macro pour déplacer le contenu de cellules

[toony.m]

Bonjour à tous!🙂

Ptite question macro...:

J'ai un tableau à 4 colonnes (A, B, C, D).
Je cherche à couper la 1ère cellule (A) de toutes les lignes impaires pour la copier vers la dernière colonne (D) de la ligne précédente.

Comment faire ça avec une macro ?
😕

 

[Pierrot93]

Re : macro pour déplacer le contenu de cellules

Bonjour Tony

essaye peut être ainsi, s'applique à la feuille active :

Option Explicit
Sub test()
Dim i As Integer
For i = 3 To Range("A65536").End(xlUp).Row Step 2
    Cells(i, 1).Cut Cells(i - 1, 4)
Next i
End Sub

bonne fin d'après midi
@+

 

[toony.m]

Re : macro pour déplacer le contenu de cellules

Superbe!

Merci beaucoup!

🙂🙂🙂