[Résolu][Calc] Reconnaitre si le texte d'une cellu est barré

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
NeedHelp
NOOuvel adepte
NOOuvel adepte
Messages : 18
Inscription : 26 oct. 2018 09:41

[Résolu][Calc] Reconnaitre si le texte d'une cellu est barré

Message par NeedHelp »

Bonjour,

Ma question me parait simple à réaliser mais je but ... :marto:

Est-il possible de reconnaitre si le texte de la cellule est barré ou non ?

Merci pour votre attention
Dernière modification par NeedHelp le 29 nov. 2018 12:35, modifié 1 fois.
LibreOffice 5.4 (par obligation) sous Windows 7
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25184
Inscription : 03 mars 2006 07:45
Localisation : 127.0.0.1

Re: [Calc] Reconnaitre si le texte d'une cellule est barré

Message par Dude »

Tu récupères le contenu de la cellule avec getText et tu interroges la propriété CharStrikeout.
NeedHelp
NOOuvel adepte
NOOuvel adepte
Messages : 18
Inscription : 26 oct. 2018 09:41

Re: [Calc] Reconnaitre si le texte d'une cellule est barré

Message par NeedHelp »

Merci pour ta réponse Dude,
Mais je pense que j'utilise mal ce que tu m'as conseillé car ça ne fonctionne pas ...

J'ai mis cette instruction dans une boucle if :

Code : Tout sélectionner

FeuilleCopy.getCellByPosition(10, j).CharStrikeout = True
Mais, le tableau m'affiche quand même les cellules où le texte est barée
Et sur le net, je ne trouve rien par rapport à cela
LibreOffice 5.4 (par obligation) sous Windows 7
Piaf
GourOOu
GourOOu
Messages : 5622
Inscription : 25 nov. 2011 18:07
Localisation : Guyane

Re: [Calc] Reconnaitre si le texte d'une cellule est barré

Message par Piaf »

Bonjour
Tu peux tester

Code : Tout sélectionner

Sub Main
Dim oDoc as Object, maFeuille as Object, macellule as Object
Dim i as Integer, txt as String
	oDoc = thisComponent
	maFeuille = oDoc.Sheets(0)
	For i = 0 To 9
		maCellule = maFeuille.getCellByPosition(0,i)
		If macellule.CharStrikeout > 0 Then
			maFeuille.copyRange(maFeuille.getCellByPosition(1,i).CellAddress, maCellule.RangeAddress)
			txt = txt & maCellule.String & Chr(13)
		End If
	 Next i
	 MsgBox txt
End Sub
A+
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
NeedHelp
NOOuvel adepte
NOOuvel adepte
Messages : 18
Inscription : 26 oct. 2018 09:41

Re: [Calc] Reconnaitre si le texte d'une cellule est barré

Message par NeedHelp »

Merci beaucoup Piaf,

C'est vrai que je viens de relire la documentation et il parle bien d'entier et pas de boolean ..
LibreOffice 5.4 (par obligation) sous Windows 7