Bonjour,

Je me trouve actuellement face à un autre pb que je n'arrive pas à résoudre.
J'ai un certain nombre de lignes et de colonnes dans un tableau, je voudrai parcourir mon tableau de lignes en lignes par ex et décaler de une cellule vers le bas chaque cellules rencontrées.

Voici mon code: il ne marche pas complètement, certaines cellules ne sont pas recopiées.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
For col = 3 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
    For Rw = 5 To ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
        If Cells(Rw, col) <> "" Then
        Cells(Rw + 1, col) = Cells(Rw, col)
        Cells(Rw, col).Clear
        Rw = Rw + 1
        Else: Rw = Rw + 1
        End If
    Next Rw
    Next col
Peut être qquun pourrait m'orienter pour me dire ce qui ne marche pas dans mon code.

Merci d'avance,

Livet