1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Sub Test() Dim monDocument As Object
Dim lesFeuilles as Object
Dim maFeuille As Object
Dim maCellule As Object
Dim maPosition As Object
Dim ValCellile as string
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
maFeuille = lesFeuilles.getByName("Feuille1")
maPosition = maFeuille.createCursor
maPosition.gotoEndOfUsedArea(False)
DerniereLig = maPosition.RangeAddress.EndRow
For i = 2 to DerniereLig
maCellule = maFeuille.getCellRangeByName("C" & i)
ValCellule = maCellule.String
if ValCellule <> "#N/D" then
maCellule = maFeuille.getCellRangeByName("B" & i)
maCellule.Value = ValCellule
end if
Next
End sub |
Partager