[Résolu][Calc] couper coller texte barré

[critoune]

bonjour,

j'ai récupéré un fichier de boulot (1750 lignes) dans lequel je dois extraire d'une colonne, le texte barré (présent dans certaines lignes), pour le copier dans une autre colonne.

je poste un fichier modèle.

je n'ai pas trouvé de sujet correspondant.

avec quel fonction pourrait on différencier le texte barré?

merci d'avance

[zeguedon]

Bonjour,

Il n'existe pas de fonction native permettant un tel exercice. Il faudra passer par une macro pour repérer les textes barré afin de les extraire vers une autre colonne.

@+

[critoune]

Ah ok, bon je vais chercher du côté des macros lundi prochain.
Merci bien
Bonnes fêtes de fin d'année

[Jurassic Pork]

Hello,

Ah ok, bon je vais chercher du côté des macros lundi prochain.

Cela risque de ne pas être si facile que cela car dans calc je crois que l'on ne peut pas rechercher quelque chose par attribut.
Peut-être une piste :
Copier la cellule dans le presse-papier.
Coller dans un document writer vierge (les attributs sont présents).
Faire une recherche sur l'attribut barré.
Récupérer ce qui est trouvé. Le copier dans le presse-papier.
Effacer le document writer vierge.
Coller le presse-papier dans la cellule désirée du document calc.

Ami calmant, J.P

[Michel JANZEF]

Bonjour,
Je n'ai pas les connaissances suffisantes pour vous aider dans ce domaine, mais vous trouverez ici une solution de Piaf sur la recherche de caractères barrés dans un fichier Calc mais qui concerne des cellules entières.

[zeguedon]

Bonjour,
Sujet à déplacer en section macro. Merci

Cela risque de ne pas être si facile que cela car dans calc je crois que l'on ne peut pas rechercher quelque chose par attribut.

L'objet curseur (maCellule.createTextCursor) dispose d'une propriété CharCrossedOut. Du coup :

à peaufiner pour gérer plusieurs occurrences de texte barré dans la même cellule

Ajout : Code optimisé pour gérer plusieurs occurrences de texte barré dans la même cellule (plus compact que le précédent que j'ai volontairement supprimé)

Code : Tout sélectionner

Sub Main
x = 1
oSheet = Thiscomponent.Sheets(0)
cell = oSheet.GetCellByPosition(0,x)
While cell.String <> ""
bavard = ""
otc = cell.createTextCursor
otc.gotoStart(False)	
Do While otc.goRight(1,False)
	if otc.CharCrossedOut then
		otc.goLeft(1,False) : otc.goRight(1,True)
		Do While otc.CharCrossedOut	
			if not otc.goRight(1,True) then 
				otc.goRight(1,True)
				exit do
			end if
		Loop
		bavard = bavard & otc.string
		otc.string = ""
	end if
loop
oSheet.GetCellByPosition(1,x).SetString(bavard)
x = x + 1
cell = oSheet.GetCellByPosition(0,x)
Wend
msgBox("Terminé !")
End Sub

Avant.png

Après.png

@+

[critoune]

Bonjour,

après réglage du niveau de sécurité pour pouvoir lancer la macro, la proposition de zeguedon me donne complète satisfaction.

merci zeguedon

merci aussi à michel janef et jurassic pork pour votre implication

voici une année qui commence magnifiquement avec ce dépannage.

bonne et heureuse année à vous.