[Calc] Tester la propriété d'une cellule

[jaymzwise]

Salut,


Je débute sous OpenOffice niveau fonction.
Je cherche à tester si une cellule est en italic ou pas.
Je me suis tourné vers les macros mais j'ai vraiment du mal...

[lucquiluc]

Bonjour,
la propriété à tester est CharPosture. Elle retourne un nombre > 0 si la cellule est en italique, 0 sinon.

Voici un exemple de code :

Dim lesFeuilles, feuille, selection, cellule As Object
Dim isItalique as Boolean
	
lesFeuilles = ThisComponent.Sheets	
feuille = lesFeuilles.getByName("Feuille1")

'Récupérer la cellule sélectionnée
selection = thisComponent.currentSelection

if (selection.supportsService("com.sun.star.table.Cell")) then	
	'Ici on sait que selection pointe sur une cellule sélectionnée

	if selection.CharPosture > 0 then
		isItalique = true
		MsgBox "en italique"
	else
		isItalique = false
		MsgBox "Pas en italique"
	end if
else
	MsgBox("Plus d'une cellule sélectionnée", 48, "titre")		
end if

Voici d'autres propriétés de cellule :
CharWeight => (Integer) pour savoir si une cellule est en gras
CharUnderLine => (Integer) pour savoir si une cellule est soulignée
CharHeight => (Integer) pour connaître la taille de la police d'une cellule
CharCrossedOut => (Boolean) pour savoir si le texte d'une cellule est barré