[Résolu][Calc] Terme recherché introuvable lors d'une recherche de caractère

[doudoupf]

bonjour

jai creé une macro avec afin de remplacer les caracteres avec accents vers caractere sans accent
exemple : de é vers e , à vers a , etc

comment faire pour ne pas afficher d'erreur si le caractere nest pas trouvé dans la feuille

actuellement j'ai ce message qui apparait:
"terme recherché introuvable"

comment enlever ce message ? merci

[micmac]

Bonjour et bienvenue sur le forum,

1- Sujet posté en section Tableur déplacé ici.

2- Titre < macro recherche de caractère > modifié pour le rendre explicite du problème rencontré et ajout de la balise [Calc] au titre du sujet plus suppression du terme macro inutile car implicite.
.
3-

open office 41

Votre signature fait mention d'une version inconnue d'OpenOffice.

Connaître la version de Apache OpenOffice (AOO) ou LibreOffice (LibO) installée

Afin de profiter des dernières améliorations, pensez à être à jour de la dernière version officielle stable

Dans votre signature il est nécessaire d'indiquer :

1. la version exacte de AOO ou LibO (AOO 4.1.15, LibO 7.6.7 par exemple) ;
2. la version exacte du système d'exploitation (Windows XP SP3, Vista SP2, Windows 7 SP1, Win 8.1, Win 10, Win 11, Ubuntu 22.04, macOS (Intel, M1, M2 ou M3) 14.3.1 Sonoma par exemple).

Accès direct à votre signature pour la corriger.
.
4- Pour être aidé efficacement par les bénévoles de ce forum, veuillez :

• publier le code de la macro exposant le problème
• joindre un classeur explicatif

Cordialement

[doudoupf]

signature ok

open office 4.1.15
windows 11

aOO4115m2 build 9813 rev 5f13fa0070
2023-11-20


merci a vous

[Dolev]

Bonjour,

jai creé une macro avec afin de remplacer les caracteres avec accents vers caractere sans accent

Comment pensez-vous être aidé si vous ne fournissez rien de cette macro ?
Nous ne sommes pas devins.

[doudoupf]

Code : Tout sélectionner

sub test
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(17) as new com.sun.star.beans.PropertyValue
args2(0).Name = "SearchItem.StyleFamily"
args2(0).Value = 2
args2(1).Name = "SearchItem.CellType"
args2(1).Value = 0
args2(2).Name = "SearchItem.RowDirection"
args2(2).Value = true
args2(3).Name = "SearchItem.AllTables"
args2(3).Value = false
args2(4).Name = "SearchItem.Backward"
args2(4).Value = false
args2(5).Name = "SearchItem.Pattern"
args2(5).Value = false
args2(6).Name = "SearchItem.Content"
args2(6).Value = false
args2(7).Name = "SearchItem.AsianOptions"
args2(7).Value = false
args2(8).Name = "SearchItem.AlgorithmType"
args2(8).Value = 0
args2(9).Name = "SearchItem.SearchFlags"
args2(9).Value = 65536
args2(10).Name = "SearchItem.SearchString"
args2(10).Value = "é"
args2(11).Name = "SearchItem.ReplaceString"
args2(11).Value = "e"
args2(12).Name = "SearchItem.Locale"
args2(12).Value = 255
args2(13).Name = "SearchItem.ChangedChars"
args2(13).Value = 2
args2(14).Name = "SearchItem.DeletedChars"
args2(14).Value = 2
args2(15).Name = "SearchItem.InsertedChars"
args2(15).Value = 2
args2(16).Name = "SearchItem.TransliterateFlags"
args2(16).Value = 1280
args2(17).Name = "SearchItem.Command"
args2(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(17) as new com.sun.star.beans.PropertyValue
args3(0).Name = "SearchItem.StyleFamily"
args3(0).Value = 2
args3(1).Name = "SearchItem.CellType"
args3(1).Value = 0
args3(2).Name = "SearchItem.RowDirection"
args3(2).Value = true
args3(3).Name = "SearchItem.AllTables"
args3(3).Value = false
args3(4).Name = "SearchItem.Backward"
args3(4).Value = false
args3(5).Name = "SearchItem.Pattern"
args3(5).Value = false
args3(6).Name = "SearchItem.Content"
args3(6).Value = false
args3(7).Name = "SearchItem.AsianOptions"
args3(7).Value = false
args3(8).Name = "SearchItem.AlgorithmType"
args3(8).Value = 0
args3(9).Name = "SearchItem.SearchFlags"
args3(9).Value = 65536
args3(10).Name = "SearchItem.SearchString"
args3(10).Value = "ê"
args3(11).Name = "SearchItem.ReplaceString"
args3(11).Value = "e"
args3(12).Name = "SearchItem.Locale"
args3(12).Value = 255
args3(13).Name = "SearchItem.ChangedChars"
args3(13).Value = 2
args3(14).Name = "SearchItem.DeletedChars"
args3(14).Value = 2
args3(15).Name = "SearchItem.InsertedChars"
args3(15).Value = 2
args3(16).Name = "SearchItem.TransliterateFlags"
args3(16).Value = 1280
args3(17).Name = "SearchItem.Command"
args3(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(17) as new com.sun.star.beans.PropertyValue
args4(0).Name = "SearchItem.StyleFamily"
args4(0).Value = 2
args4(1).Name = "SearchItem.CellType"
args4(1).Value = 0
args4(2).Name = "SearchItem.RowDirection"
args4(2).Value = true
args4(3).Name = "SearchItem.AllTables"
args4(3).Value = false
args4(4).Name = "SearchItem.Backward"
args4(4).Value = false
args4(5).Name = "SearchItem.Pattern"
args4(5).Value = false
args4(6).Name = "SearchItem.Content"
args4(6).Value = false
args4(7).Name = "SearchItem.AsianOptions"
args4(7).Value = false
args4(8).Name = "SearchItem.AlgorithmType"
args4(8).Value = 0
args4(9).Name = "SearchItem.SearchFlags"
args4(9).Value = 65536
args4(10).Name = "SearchItem.SearchString"
args4(10).Value = "è"
args4(11).Name = "SearchItem.ReplaceString"
args4(11).Value = "e"
args4(12).Name = "SearchItem.Locale"
args4(12).Value = 255
args4(13).Name = "SearchItem.ChangedChars"
args4(13).Value = 2
args4(14).Name = "SearchItem.DeletedChars"
args4(14).Value = 2
args4(15).Name = "SearchItem.InsertedChars"
args4(15).Value = 2
args4(16).Name = "SearchItem.TransliterateFlags"
args4(16).Value = 1280
args4(17).Name = "SearchItem.Command"
args4(17).Value = 3

dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args4())


end sub

[Dolev]

Vous utilisez l'enregistreur de macro qui n'est pas fait pour la gestion d'erreur.
Le mieux est d'utiliser directement l'API.
Ce sujet montre un exemple de fonction supprimant les caractères accentués : viewtopic.php?f=8&t=10320&hilit=accent%2A

[doudoupf]

oui sauf que via ma macro, je remplace tous les caracteres qui posent probleme , via mon message j'en ai refait une , mais dans la macro dont je me met il y a 36 changements..
a, e, i , u , o, n , y , et ponctuation

impossible de ne pas afficher ce message? pas telement envie de repartir de zero sur ma macro. sinon tampi je resterai appuyer sur echap

[Dude]

Salut,

impossible de ne pas afficher ce message?

Non, Dolev t'a déjà répondu sur ce point.
Tu fais appel au dispatcher et donc ta macro ne fait rien de plus que ce que tu réalises manuellement.

pas telement envie de repartir de zero sur ma macro

Effectivement, l'API nécessite un minimum d'investissement.
Si tu es débutant, zBasic te permet de gommer cette complexité.

sinon tampi je resterai appuyer sur echap

Il te reste donc à ajouter [Résolu]

[doudoupf]

ok merci a vous