Discussion :

[Livet]

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

[lucfrfr]

Tu devrais peut-être commencer par la fin car tu éffaces des informations avec t'as façon.
Adapte ton code par la fin.

Code :

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

1
2
For col = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column To 3
For Rw = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 5

[Oh!Tofocus]

Salut.
Je pense que lucfrfr n'a pas tort

mais en plus je ne comprends pas ton code:

Code :

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

Rw = Rw + 1

Tu n'as pas besoin d'incrementer Rw puisque cela est fait par le FOR ... NEXT
à moins que tu veuilles sauter une ligne a chaques passages ?
mais si tu ne le fait pas tu retombe sur ta valeur déplacée....

Conclusion lucfrfr n'a VRAIMENT pas tort

essaye ce code avec des step -1

Code :

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

1
2
3
4
5
6
7
8
9
 
For col = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column To 3 Step -1
    For Rw = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 5 Step -1
        If Cells(Rw, col) <> "" Then
        Cells(Rw + 1, col) = Cells(Rw, col)
        Cells(Rw, col).Clear
        End If
    Next Rw
Next col