Discussion :

[Glaeken]

Salut tous,
j'ai une petite difficulté avec une macro :
j'ai un tableau 8*8 contenant divers lettre ou chiffre, une phrase y est cachée sous le principe de cryptage dit de la marche du cavalier.
pour me simplifier l'existence (enfin un peu) j'ai décidé de créer une macro coloriant les différentes solutions pour le caractère suivant le caractère sélectionné.
mon problème est que je n'arrive pas à récupérer les coordonnées de la cellule active alors que je suis les conseils de la FAQ.

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
 
Dim CelluleActive As Object
Dim oDoc As Object , Feuille As Object
Dim Cellule As Object
 
Sub Main
	oDoc = ThisComponent
	Feuille = oDoc.getSheets.getByName("Feuille2")
 
	CelluleActive = ThisComponent.getCurrentSelection
 
	msgbox (CelluleActive.CellAddress.row, vbokonly, "Ligne")
	msgbox (CelluleActive.CellAddress.column, vbokonly, "Colonne")
 
	Cellule = Feuille.getCellByPosition(CelluleActive.CellAddress.row - 1, CelluleActive.CellAddress.column - 2)
	Cellule.CharColor = RGB(255,0,0)
	Cellule = Feuille.getCellByPosition(CelluleActive.CellAddress.row + 1, CelluleActive.CellAddress.column - 2)
	Cellule.CharColor = RGB(255,0,0)
End Sub

J'ai besoin d'un peu d'aide.
En attendant je continue de chercher.
Merci d'avance,
Glaeken.

P.S. : j'utilise OOo 3.1.0

[Patbart]

Bonjour,
Essayes cela,

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
 
Dim oDoc As Object , Feuille As Object
Dim Cellule As Object
dim ligne as integer, colonne as integer
 
Sub Main
	oDoc = ThisComponent
	Feuille = oDoc.getSheets.getByName("Feuille1")
 
	CelluleActive = ThisComponent.getCurrentSelection
 
	Ligne =CelluleActive.CellAddress.row
	Colonne =CelluleActive.CellAddress.column
 
	Cellule = Feuille.getCellByPosition(colonne - 1, ligne - 2)
	Cellule.cellbackcolor= 16711680
	Cellule = Feuille.getCellByPosition(colonne + 1, ligne - 2)
	Cellule.cellbackcolor= 16711680
End Sub

@+ Patbart