Discussion :

[Daniela]

Bonjour a tous, j'ai un probleme avec la creation d'une macro sur une feuille de calcul en open office.

moi je suis arrivée a creer cette macro sur excel, mais j'arrive pas à la convertir sur open office.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
Dim NewLig As Long
 
With Worksheets("DATI")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    .Range("A" & NewLig).Value = Worksheets("SCHEDA").Range("B4").Value
End With
 
 
Worksheets("SCHEDA").Range("B4").ClearContents
 
 
End Sub

merci beaucoup.

[zoom61]

Salut,

Avec quelque chose comme cela tu devrais y arriver :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim monDocument As Object, lesFeuilles As Object
Dim maFeuille1 As Object, maFeuille2 As Object, maCellule As Object
Dim ligneFin As Integer
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
maFeuille1 = lesFeuilles.getByName("DATI")
maFeuille2 = lesFeuilles.getByName("SCHEDA")
 
'Récupère la dernière position de la feuille
positionFin = maFeuille1.createCursor 
positionFin.gotoEndOfUsedArea( False )
ligneFin = ligneFin + positionFin.RangeAddress.EndRow + 2
 
'Ajoute la donnée
maFeuille1.getCellRangeByName("A" & ligneFin ).value = maFeuille2.getCellRangeByName("B4").value
 
'Efface le contenu de la cellule
maCellule = maFeuille2.getCellRangeByName("B4")
contenu = com.sun.star.sheet.CellFlags.VALUE + com.sun.star.sheet.CellFlags.STRING 
maCellule.clearContents(contenu)

@+.

[Daniela]

Marche tres bien.... merci beaucoup

Salut,

Avec quelque chose comme cela tu devrais y arriver :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim monDocument As Object, lesFeuilles As Object
Dim maFeuille1 As Object, maFeuille2 As Object, maCellule As Object
Dim ligneFin As Integer
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
maFeuille1 = lesFeuilles.getByName("DATI")
maFeuille2 = lesFeuilles.getByName("SCHEDA")
 
'Récupère la dernière position de la feuille
positionFin = maFeuille1.createCursor 
positionFin.gotoEndOfUsedArea( False )
ligneFin = ligneFin + positionFin.RangeAddress.EndRow + 2
 
'Ajoute la donnée
maFeuille1.getCellRangeByName("A" & ligneFin ).value = maFeuille2.getCellRangeByName("B4").value
 
'Efface le contenu de la cellule
maCellule = maFeuille2.getCellRangeByName("B4")
contenu = com.sun.star.sheet.CellFlags.VALUE + com.sun.star.sheet.CellFlags.STRING 
maCellule.clearContents(contenu)

@+.