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.
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.
Bonjour hipokamp,
fonctionne dans les fonctions 'CONCATENER()' et 'CONCAT()'
Code : Sélectionner tout - Visualiser dans une fenêtre à part &CAR(10)&
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 :
ne tenez pas compte des astérisques (que je viens d'éliminer manuellement) qui ont remplacé l'espace avant les points virgule
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 ? ")
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 ?
Bonsoir hipokamp,
si votre texte est en A3, coller cette formule sur la même ligne
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);A3));A3;REMPLACER(A3;TROUVE(CAR(59);A3);2;CAR(59)&CAR(10)))
))
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
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 ?
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é
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.
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
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))
hello,
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 :
Ami calmant, J.P
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())
@Njhub
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
Bonjour hipokamp,
Ce document présente l'utilisation des fonctions dans le tableur d'Open Office - Calc.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
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
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
@ 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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager