Deplacer le contenu de cellules

[ColdFusion]

Bonjour,

J'ai une feuille de calcul conteant le tableau suivant :
......A..B..C..D..E.........K..L..M..N..O..P..Q..R..S...T...U...V...W
...............................1..2..3...4...5..6..7..8..9..10..11..12..13
1....2..5...7..8..10
2....7..10.11.12.13
...
20...1..3...8..11..9

et je souhaite obtenir le resultat suivant avec une macro :

......A..B..C..D..E.........K..L..M..N..O..P..Q..R..S...T...U...V...W
...............................1..2..3...4...5..6..7..8..9..10..11..12..13
1....2..5...7..8..10..........X...........X......X..X......X
2....7..10.11.12.13..............................X..........X...X...X...X
....
20...1..3...8..11..9.......X.....X..................X..X........X

quelqu'un pourrait-il m'aider?

Merci d'avance

 

[Robert]

Re : Deplacer le contenu de cellules

Bonjour ColdFusion, bonjour le forum,

Bienvenu sur le forum.
Essaie comme ça :

Sub Macro1()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Value = "x"
End Sub

Édition :

C'était plus clair avant ta modif...