Discussion :

[SylvainM]

Bonjour à tous,

J'ai récupéré (ici je crois, mais je ne sais plus où) il y a quelques temps une super macro, qui me permet de disposer d'une nouvelle formule dans mes tableurs Excel.
Celle-ci me permet de renvoyer le contenu d'une cellule, sans caractères accentués, par le biais de la formule =sansAccents()
Voici le code source en question, qui marche très bien :

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
' Définition de la conversion
Const accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
 
' La fonction :
Public Function sansAccents(ByRef s As String) As String
Dim i As Integer
Dim lettre As String * 1
sansAccents = s
For i = 1 To Len(accent)
lettre = Mid$(accent, i, 1)
If InStr(sansAccents, lettre) > 0 Then
sansAccents = Replace(sansAccents, lettre, Mid$(noAccent, i, 1))
End If
Next i
End Function

Cependant, pour que cette fonction fonctionne (!), je n'ai trouvé d'autres solution que de la mettre dans un module de mon classeur.
J'aimerai, comme je le fais avec d'autres macros, qu'elle soit enregistrée dans mon "PERSONAL.XLSB" afin d'être appellée depuis n'importe quel fichier Excel. Hors, lorsque je créé un module dans "PERSONAL.XLSB" et que j'y mets ce code, la fonction ne réponds pas.

Avez-vous une idée de la source du problème ?

Merci à vous.

Sylvain M.

[parmi]

Je pense que c'est simplement dû au fait qu'il y a un paramètre à ta Function.
Tu pourrais enlever ce paramètre et modifier ta macro selon tes besoins.

[SylvainM]

Merci pour ta réponse.
Excuse mon ignorance, mais je ne sais pas ce qu'est un paramètre, et encore moins comment l'enlever en conservant cette macro opérationnelle...
Peux tu m'éclairer un peu plus ?

Sylvain M.

[parmi]

Le paramètre, c'est ByRef s As String entre les parenthèses.
Ta Function m'apparaît comme étant une fonction personnalisée que tu utilises en tant que formule dans les cellules que tu veux.

Il faudrait peut-être repenser le problème et modifier la macro pour qu'elle change les accents d'une feuille au complet ou encore des cellules que tu aurais préalablement sélectionnées.

[SylvainM]

modifier la macro pour qu'elle change les accents d'une feuille au complet ou encore des cellules que tu aurais préalablement sélectionnées.

Ce n'est pas vraiment ce que je souhaite : j'aimerai - si possible - pouvoir appeler cette fonction, sous forme d'une formule (=sansAccents(A1) ) depuis n'importe quel tableur. En effet, je l'utilise un peu pareil, et aussi souvent, que les formules =majuscule(), =minuscule(), =nompropre()...
D'ailleurs, je trouve que c'est une manque dans les fonctions disponibles.

Maintenant, si ce n'est vraiment pas possible de cette manière (formule), je passerai par une macro sans paramètre.

Merci encore !

Sylvain M.

[78chris]

Bonjour

Placer cette fonction
soit dans le classeur de macro personnelles (mais cela oblige, il me semble, à faire référence au classeur quand on invoque la fonction)
soit dans un complément (classeur xla ou xlam selon la version) et installer ce complément afin qu'il se charge à l'ouverture d'Excel.

J'ai, pour ma part, un xlam où sont stockées toutes mes fonctions persos et cela marche impec depuis des années.

[SylvainM]

Super !
Je viens de créer mon premier () complément, et ça marche impeccable !!!
Merci beaucoup 78chris.

Bonne soirée.

Sylvain M.