Discussion :

[hipokamp]

Bonjour,

Savez vous comment insérer un retour chariot après tous les signes " ; " de toutes les cellules d'un document CALC.ods ?

Merci bcp.

[njhub]

Bonjour hipokamp,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

&CAR(10)&

fonctionne dans les fonctions 'CONCATENER()' et 'CONCAT()'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CONCATENER("assemble plusieurs textes"&CAR(10)&"pour n'en faire qu'un seul")

Savez vous comment insérer un retour chariot après tous les signes " ; " de toutes les cellules d'un document CALC.ods ?

Pour obtenir :


Utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CONCATENER("Savez vous comment ;"&CAR(10)&"insérer un retour ;"&CAR(10)&"chariot après tous ;"&CAR(10)&"les signes ;" &CAR(10)& " de toutes les cellules ;"&CAR(10)&"d'un document ;"&CAR(10)&"CALC.ods ? ")

ne tenez pas compte des astérisques (que je viens d'éliminer manuellement) qui ont remplacé l'espace avant les points virgule

[hipokamp]

Bonjour njhud,

Merci pour votre réponse.

Je ne sais pas si l'on s'est bien compris.
Je souhaite appliquer un retour chariot après tout les " ; " existant dans ma liste.
Comme à la première ligne de la liste ci dessous que j'ai fait manuellement.
Tandis que lorsqu'il n'y a pas de suite de mots séparés par le signe " ; " ( comme à la ligne 476: Uncle > Oncle ), alors la cellule est ignoré.



Je ne comprends pas la fonction concatener de cette manière. Ai-je mal compris ?

[njhub]

Bonsoir hipokamp,

si votre texte est en A3, coller cette formule sur la même ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTERREUR(TROUVE(CAR(59);A3));A3;REMPLACER(A3;TROUVE(CAR(59);A3);2;CAR(59)&CAR(10)))

si votre texte n'est pas en A3, ça le fait quand même en remplaçant dans la formule ci-dessous "adresse de la cellule contenant le texte à modifier type: A1" par l'adresse de la cellule contenant le texte à modifier type: A1 non pas R1C1, c'est plus simple en remplaçant A3 dans la formule ci-dessus...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ESTERREUR(TROUVE(CAR(59);adresse de la cellule contenant le texte à modifier type: A1));adresse de la cellule contenant le texte à modifier type: A1;REMPLACER(adresse de la cellule contenant le texte à modifier type: A1;TROUVE(CAR(59);adresse de la cellule contenant le texte à modifier type: A1);2;CAR(59)&CAR(10)))

))

Cordialement

[hipokamp]

Oui mais alors c'est fastidieux.
Je dois modifier la formule pour chaque cellule c'est infernal.

J'aimerai autant faire un "chercher remplacer" qui me permettre de faire suivre un retour chariot après tous les ";".
Seulement il est impossible d'entrer un retour chariot dans le champ " remplacer par ".

Je ne sais donc quelle méthode me sauvra ?

[njhub]

Bonjour,

Oui mais alors c'est fastidieux.
Je dois modifier la formule pour chaque cellule c'est infernal.

pour éviter un travail infernal et fastidieux de recopie incrémentée de la formule

vous collez la formule dans la première ligne de la colonne,
vous sélectionnez les lignes utiles de cette colonne,
y compris celle dans laquelle vous avez collé la formule
une fois que tout celà est en surbrillance, vous passez
par > Edition > Remplir > Vers le bas
et le tour est joué

[hipokamp]

mhumm... d'accord, pas sûr d'avoir tout compris comment appliquer votre solution mais je vais m'y pencher dès la semaine prochaine. Pas le temps tout de suite.
Je vous tiens au courant. Merci pour votre attention.

[hipokamp]

Re, Njhub.

J'ai tenté ce que vous me proposez, mais je dois très certainenement le faire mal car rien ne se produit.
Aussi pour faire simple voici une capture du début de ma liste.
Pouvez-vous me formulez la formule à la virgule près, afin d'agir sur toutes les cellules de la colonne B ?
Je suis navré, ce genre de script est du chinois pour moi, mais si cela fonctionne te tenterais dans comprendre la logique de votre formule pour l'avenir.
Je crois d'ailleurs devoir selectionner la case B1, puis appliquer la formule dans le champs ( au dessus ) " fonction " non ?





De plus, je n'ai pas la fonction "REMPLIR" dans le menu édition ?



Merci de votre retour

[njhub]

Bonjour,

comme la fonction "concatener" ne vous inspire pas essayez en C1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SUBSTITUE(B1;"; ";";"&CAR(10))

[jurassic pork]

hello,

Oui mais alors c'est fastidieux.
Je dois modifier la formule pour chaque cellule c'est infernal.

J'aimerai autant faire un "chercher remplacer" qui me permettre de faire suivre un retour chariot après tous les ";".
Seulement il est impossible d'entrer un retour chariot dans le champ " remplacer par ".

Je ne sais donc quelle méthode me sauvra ?

comme ce n'est pas possible d'utiliser le chercher remplacer de Libreoffice pour remplacer par un retour ligne, l'astuce consiste à enregister la macro correspondante et à mettre chr(10) dans la chaîne qui remplace (argument 12) comme ceci par exemple :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
sub RemplacerPtVirgule
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
rem ----------------------------------------------------------------------
dim args3(20) as new com.sun.star.beans.PropertyValue
args3(0).Name = "SearchItem.StyleFamily"
args3(0).Value = 2
args3(1).Name = "SearchItem.CellType"
args3(1).Value = 1
args3(2).Name = "SearchItem.RowDirection"
args3(2).Value = true
args3(3).Name = "SearchItem.AllTables"
args3(3).Value = false
args3(4).Name = "SearchItem.SearchFiltered"
args3(4).Value = false
args3(5).Name = "SearchItem.Backward"
args3(5).Value = false
args3(6).Name = "SearchItem.Pattern"
args3(6).Value = false
args3(7).Name = "SearchItem.Content"
args3(7).Value = false
args3(8).Name = "SearchItem.AsianOptions"
args3(8).Value = false
args3(9).Name = "SearchItem.AlgorithmType"
args3(9).Value = 1
args3(10).Name = "SearchItem.SearchFlags"
args3(10).Value = 65536
args3(11).Name = "SearchItem.SearchString"
args3(11).Value = ";"
args3(12).Name = "SearchItem.ReplaceString"
args3(12).Value = chr(10)
args3(13).Name = "SearchItem.Locale"
args3(13).Value = 255
args3(14).Name = "SearchItem.ChangedChars"
args3(14).Value = 2
args3(15).Name = "SearchItem.DeletedChars"
args3(15).Value = 2
args3(16).Name = "SearchItem.InsertedChars"
args3(16).Value = 2
args3(17).Name = "SearchItem.TransliterateFlags"
args3(17).Value = 1280
args3(18).Name = "SearchItem.Command"
args3(18).Value = 3
args3(19).Name = "SearchItem.SearchFormatted"
args3(19).Value = false
args3(20).Name = "SearchItem.AlgorithmType2"
args3(20).Value = 2
 
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args3())

Ami calmant, J.P

[hipokamp]

@Njhub

Bonjour,

comme la fonction "concatener" ne vous inspire pas essayez en C1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SUBSTITUE(B1;"; ";";"&CAR(10))

Wouaahoo ! Super ça marche Merci Njhub.

Je n'ai pas trouvé la fonction remplir mais en étirant la fenêtre de sélection vers le bas de la colonne C le script agit sur toutes les cellules qu'il englobe, et au bonheur par incrémentation. C'est formidable.
Je n'ai plus qu'a récupérer le résultat de la liste en colonne C pour la subtituer à la colonne B d'origine. Le tour est joué.
Merci beaucoup vous m'avez sorti une belle épine du pied. .

Oserais-je une dernière question en vous demandant au hazard un lien TUTO débutant pour se former au principes de base des formules CALC dont vous m'avez fait la démonstration ?
Je sais que j'en trouverais à la pelle sur la toile, mais peut-être me feriez vous encore gagner du temps en m'indiquant une bonne adresse.

Merci encore Njhub.

_________________________________________________________________________

@Jurassic Pork

Merci Jurassic,

Ca à l'air intéressant ce que vous me proposez, mais un peu compliqué pour mes modestes notions en CALC.
Et si vous vous êtes donné autant de peine pour m'écrire ce script qui à l'air extrèmement long et complet, je ne peux que doublement vous remercier.
Mais je vais m'en tenir à la simplicité bien plus à ma portée du script de Njuhb qui au final me fait succès.

Merci Jurassic Pork, 2x

[njhub]

Bonjour hipokamp,

Oserais-je une dernière question en vous demandant au hazard un lien TUTO débutant pour se former au principes de base des formules CALC dont vous m'avez fait la démonstration ?
Je sais que j'en trouverais à la pelle sur la toile, mais peut-être me feriez vous encore gagner du temps en m'indiquant une bonne adresse

Ce document présente l'utilisation des fonctions dans le tableur d'Open Office - Calc.
Les fonctions sont classées par catégorie:
Texte, Statistiques, Math et Trigo, Scientifique, Les Dates et les Heures, Recherche et matrices, Informations, Logique.


FonctionsCalcOpenOffice/

PiloterOpenOffice/FonctionsCalcOpenOffice.pdf

[TpF45]

Bjour,

Un site qui n'est plus mis à jour bien qu'il le mériterait mais qui reste efficace malgré les années
C'est un de mes favoris, que son auteur soit ici remercié du précieux travail . . .
http://christianwtd.free.fr/index.php?rubrique=Accueil

[hipokamp]

@ Njhub

Merci c'est un parfait memo.
Le 2ème lien est mort, mais pas grave le 1er m'arrange parfaitement.

++
_______________________________________________

@TpF45

Excellent site, effectivement, que son auteur soit sanctifié !


Merci.