Discussion :

[balawoo]

Bonjour

Dans le cadre d'un projet de recette, je dois intégrer les BBP métier dans l'outil de test (Testlink)

Je suis donc entrain de réfléchir aux différentes problématiques que je rencontre. Pour l'une d'elles, je n'ai pas trouvé de solution:
- Transformation du texte contenant des accents et caractères variés en un texte au format sans accent

Une solution pourrait être de sauvegarder le document, mais je ne trouve pas quel msoencoding il faut utiliser, mais je voudrais savoir s'il n'existe pas d'autre méthode ?

Merci

Bala

[Heureux-oli]

Salut,

Je ne vois qu'un remplacement des lettres accentuées par des lettres normales.

[78chris]

Bonjour

Si la casse n'a pas d'importance tu peux sélectionner tout, et utiliser shift F3 pour basculer tout en majuscules puis en minuscules : si l'option majuscules accentuées n'est pas activée, cela effacera les accents.

[carden752]

Bonjour,

Bonjour

Si la casse n'a pas d'importance tu peux sélectionner tout, et utiliser shift F3 pour basculer tout en majuscules puis en minuscules : si l'option majuscules accentuées n'est pas activée, cela effacera les accents.

Je crois bien que cela ne marchera pas, seuls en majuscule les accents ne sont pas affichés, dès qu'on revient en minuscule, ils seront affichés. La bonne solution est une procédure VBA de remplacement des caractères.

[78chris]

Bonjour

Bonjour,

Je crois bien que cela ne marchera pas, seuls en majuscule les accents ne sont pas affichés, dès qu'on revient en minuscule, ils seront affichés. La bonne solution est une procédure VBA de remplacement des caractères.

Tu crois mais as-tu testé ? Chez moi les accents disparaissent bien...

[Heureux-oli]

Salut,

J'ai essayé et sur ma version 2010, les accents restent.
Et currieusement, je ne parviens pas supprimer les accents sur les majuscules.

[78chris]

Bonjour

Salut,

J'ai essayé et sur ma version 2010, les accents restent.
Et currieusement, je ne parviens pas supprimer les accents sur les majuscules.

Dans fichier, options, vérification : décocher majuscules accentuées en français

[carden752]

Bonjour,

Oui j'ai testé et cela ne marche pas non plus sur la version 2007.
Ils disparaissent qu'en majuscule mais dès qu'on revient en minuscule ils rapparaissent.

[Heureux-oli]

Salut,

Chez moi, ils restent même en majuscule.

J'ai tenté

Code :

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

Application.Options.AllowAccentedUppercase

Et fait la vérification que l'option était bien prise en compte

Code :

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

Print Application.Options.AllowAccentedUppercase

Avec un retour en False, mais toujours les accents.

[78chris]

Bonjour

Bizarre, bizarre j'ai 2010 et cela marche.

Utilisez-vous bien Shift F3 et pas la mise en majuscules par les effets (bouton Aa) ?

[Heureux-oli]

Salut,

J'ai utilisé Shift F3

[carden752]

Bonjour,

Voici une fonction permettant de modifier un caractère en un autre pour une chaine de caractères. Ici, il s'agit de supprimer tous les accents dans mon exemple mais ce tableau est bien sûr adaptable à souhait.
Il suffit d'ajouter l'élément à remplacer dans Tab_Car_Accent et l'élément qui le remplace dans Tab_Car

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
Function texte_Sans_Accent(Ori As String) As String
Dim Compteur As Integer, Compteur2 As Integer
Dim Tab_Car_Accent, Tab_Car, Chaine_Test As String
Tab_Car_Accent = Array("á", "à", "â", "ä", "ã", "å", "é", "è", "ê", "ë", "í", "ì", "î", "ï", "ó", "ò", "ô", "ö", "õ", "ð", "ú", "ù", "û", "ü", "ÿ", "ý", "ç", "ï", "ë")
Tab_Car = Array("a", "a", "a", "a", "a", "a", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", "o", "o", "o", "u", "u", "u", "u", "y", "y", "c", "i", "e")
For Compteur = 1 To Len(Ori)
Ori = Replace(Ori, "-", " ")
Ori = Replace(Ori, "'", " ")
Chaine_Test = Mid$(Ori, Compteur, 1)
For Compteur2 = LBound(Tab_Car) To UBound(Tab_Car)
If Chaine_Test = Tab_Car_Accent(Compteur2) Then Chaine_Test = Tab_Car(Compteur2): Exit For
Next Compteur2
Ori = Left(Ori, Compteur - 1) & Chaine_Test & Right(Ori, Len(Ori) - Compteur)
Next Compteur
texte_Sans_Accent = Ori
End Function