[Résolu][Calc] extraire des lignes contenant un mot

[dominique F]

bonjour je voudrai extraire de 2 colonnes des lignes contenant un mot particulier

[Churay]

Bonjour,

Il manque :
- plus de précisions
- un fichier exemple des colonnes et de ce qu'on doit faire des résultats

[micmac]

Bonjour et bienvenue,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : https://forum.openoffice.org/fr/forum/s ... html#27295

N'oubliez pas que les termes "Macro" ou "OpenOffice" ne doivent pas être employés car il sont implicites. Essayez de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même au risque de voir votre sujet verrouillé.
Le titre a également été écourté.

Merci de votre collaboration.

[dominique F]

Bonjour
pour être plus précis et plus simple je voudrai extraire toute les lignes ayant un mot particulier pour les copier sur un autre fichier ou feuille
merci

[tintin]

Bonjour,

Il manque :
- plus de précisions
- un fichier exemple des colonnes et de ce qu'on doit faire des résultats

Comment joindre un fichier
Comment dépersonnaliser un document

Dans l'attente...

[dominique F]

Je voudrais copier les lignes comportant le mot vert sur une nouvelle feuille (voir fichier ods )

[rollmops]

Bonjour,

Tu n'as pas besoin de macro pour faire ça.
Utilise le menu Données > Filtre standard.
Il y a une option qui permet de coller le résultat sur une autre feuille.

[micmac]

La solution de votre problème ne nécessite de macros.
Sauf désir impératif d'y avoir recours, veuillez clôturer ce sujet et poursuivre en section tableur à la suite des réponses faites dans le sujet que vous y avez ouvert : https://forum.openoffice.org/fr/forum/v ... =4&t=58267

Comment clore un sujet correctement

[dominique F]

Sa ne fonctionne pas car les phrases sont parfois sur 2 colonne et le mot rechercher et parmi d'autre mots

[rollmops]

Sa ne fonctionne pas car les phrases sont parfois sur 2 colonne et le mot rechercher et parmi d'autre mots

As-tu testé ce que te propose OOotremer dans ton autre fil ?
Tu as un item "contient" qui permet de faire ça.

Si cela ne marche pas, merci de fournir un nouveau document implicant ce cas de figure.
Car ce que tu as joins ne correspond pas à ce que tu décris comme problème.

[luky-luke]

Bonjour
Un exemple à tester

Code : Tout sélectionner

Option Explicit

Sub Main
Dim oDoc As Object, Feuilles As Object, F1 As Object, F2 As Object
Dim Zone As Object, Cherche As Object, Trouve As Object
Dim Mot As String, Ligne As Integer, i As Integer

oDoc = ThisComponent
Feuilles = oDoc.Sheets
F1 = Feuilles.GetByName("Feuille1")
F2 = Feuilles.GetByName("Feuille2")
Zone = F1.GetCellRangeByName("A1:B10")
	Cherche = Zone.createSearchDescriptor
	Mot = inputBox("Quel mot je cherche ?")
		With Cherche
			.SearchString = Mot
			.SearchWords = False
		End With
	Trouve = Zone.FindFirst(Cherche)
	i = 0
	Do until isnull(Trouve)
		Ligne = Trouve.RangeAddress.EndRow
		F2.GetCellRangeByPosition(0,i,2,i).DataArray = F1.GetCellRangeByPosition(0,Ligne,2,Ligne).DataArray
		Trouve = Zone.FindNext(Trouve,Cherche)
		i = i +1
	Loop
End Sub

Si cela ne marche pas, merci de fournir un nouveau document implicant ce cas de figure.
Car ce que tu as joins ne correspond pas à ce que tu décris comme problème.

Cordialement
Luke

[dominique F]

Voici un extrais du fichier l'originale fait 3mo, je voudrai classer par thème, grotte, gouffre, cluseau ect, tout en gardent la ligne entière référence commune et autre merci

[tintin]

l'originale fait 3mo

Un peu hors sujet mais que contient-il pour être aussi lourd, des images ?

[dominique F]

non des donnes de position et référence plus de 1500 lignes à trier

[zeguedon]

Monsieur DominiqueF vous avez ouvert deux sujets à différents endroit de ce forum. Des volontaires vous apportent des réponses pertinentes dans celui ouvert en section Tableur ici : https://forum.openoffice.org/fr/forum/v ... 39#p314815 avec fichier en exemple.
Vous pourriez vous donner la peine de regarder ce qui vous est proposé et y donner suite si ce n'est pas trop vous demander.

Bonne fin de journée

[luky-luke]

Re
Madame Irma n'étant pas encore à la retraite... après consultation elle me souffle que la recherche doit certainement s’effectuer sur les colonnes D et E. Donc une solution possible adapté de la précédente déjà communiquée.

Code : Tout sélectionner

Option Explicit

Sub Main
Dim oDoc As Object, Feuilles As Object, F1 As Object, F2 As Object
Dim CopyFeuille As String
Dim Zone As Object, Cherche As Object, Trouve As Object
Dim Mot As String, Ligne As Integer, i As Integer

oDoc = ThisComponent
Feuilles = oDoc.Sheets
F1 = Feuilles.GetByName("Feuille1")
'F2 = Feuilles.GetByName("Feuille2")
Zone = F1.GetCellRangeByName("D2:E1000")
	Cherche = Zone.createSearchDescriptor
	Mot = inputBox("Quel mot je cherche ?")
	NouveauNom:
	CopyFeuille = inputBox("Sur quelle feuille je copie ?")
	If Feuilles.HasByName(CopyFeuille) Then
		F2 = Feuilles.GetByName(CopyFeuille)
	Else 
		MsgBox("La feuille : " & CopyFeuille & " n'éxiste pas" )
		Goto NouveauNom
	End if
			With Cherche
				.SearchString = Mot
				.SearchWords = False
			End With
		Trouve = Zone.FindFirst(Cherche)
			If isnull(Trouve) Then MsgBox("Le mot " & Mot & " n'as pas été trouvé" )
		i = 0
		Do until isnull(Trouve)
			Ligne = Trouve.RangeAddress.EndRow
			F2.GetCellRangeByPosition(0,i,13,i).DataArray = F1.GetCellRangeByPosition(0,Ligne,13,Ligne).DataArray
			Trouve = Zone.FindNext(Trouve,Cherche)
			i = i +1
		Loop
End Sub

vous avez ouvert deux sujets à différents endroit de ce forum. Des volontaires vous apportent des réponses pertinentes dans celui ouvert en section Tableur [...] Vous pourriez vous donner la peine de regarder ce qui vous est proposé et y donner suite si ce n'est pas trop vous demander.

+1

Cordialement
Luke

[Bidouille]

Vous pourriez vous donner la peine de regarder ce qui vous est proposé et y donner suite si ce n'est pas trop vous demander.

A priori, l'auteur ne reviendra sans doute jamais :

Dernière visite le : 28 Juin 2018 18:58

Un bel exemple de "je-viens-faire-mon-marché" et d'impolitesse.

Fil fermé et classé [Résolu]