Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ajouter une fonction dans excel

Ajouter une fonction dans excel

20 réponses
Avatar
Juke
bonjour,

J'ai un soucis pour enlever les accents d'une colonne.

J'a itrouver la fonction suivante:

Function Virer_Accents$(Chaine$)
Dim tmp$, i, x
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function 'AV


Mais je ne sais pas comment l'ajouter dans excel.

Quelqu'un peut t'il m'aider svp ?

jul
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jessy SEMPERE
Bonjour

Tu vas dans le menu "outils" - "macro" - "visual basic editor"
Là tu ajoute un nouveau module et tu copis dedans la fonction
que tu as...

Ensuite tu n'a plus qu'à mettre dans ta feuille excel :

=Virer_Accents$(TaCellule)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Juke" a écrit dans le message news:
bm3cct$qq5$
bonjour,

J'ai un soucis pour enlever les accents d'une colonne.

J'a itrouver la fonction suivante:

Function Virer_Accents$(Chaine$)
Dim tmp$, i, x
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function 'AV


Mais je ne sais pas comment l'ajouter dans excel.

Quelqu'un peut t'il m'aider svp ?

jul




Avatar
Clément Marcotte
J'a itrouver la fonction suivante:


Mettons que tu l'as trouvée parce que AV te l'as donnée hier.

Avatar
ru-th
Salut jul

en complément, si tu veux l'utiliser dans tous les classeurs,
tu peux la mettre dans le classeur des macro personnelles, Perso.xls avec la
propriété Isaddin à True
ou éventuellement, mettre tes fonctions personnalisé dans un classeur
complémentaire enregistrer sous forme de macro complémentaire xla
dans le repertoire macro complémentaires.
elle apparaitra alors dans la liste des macro complémentaires que tu pourras
"xlcocher"

a+
rural thierry


"Juke" a écrit dans le message de news:
bm3cct$qq5$
bonjour,

J'ai un soucis pour enlever les accents d'une colonne.

J'a itrouver la fonction suivante:

Function Virer_Accents$(Chaine$)
Dim tmp$, i, x
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function 'AV


Mais je ne sais pas comment l'ajouter dans excel.

Quelqu'un peut t'il m'aider svp ?

jul




Avatar
Vincent.
Ben, il me semble que c'est ce qu'il entendait
par "trouver" genre trouver sur le forum (c'est un défaut
des gens qui ne viennent pas souvent sur le mpfe de ne pas
dire de qui vient la formule/macro..., j'ai remarqué) et
non pas trouver dans sa tête... Donc, pas de blâme trop
hâtif serait mieux, non ?
(pasque moi je me sentirais un peu agressé quand même là,
même si ça ne me regarde absolument pas)

-----Message d'origine-----
J'a itrouver la fonction suivante:


Mettons que tu l'as trouvée parce que AV te l'as donnée
hier.



.




Avatar
Juke
Merci


"Vincent." a écrit dans le message de
news:2627301c38e57$a1599f10$
Ben, il me semble que c'est ce qu'il entendait
par "trouver" genre trouver sur le forum (c'est un défaut
des gens qui ne viennent pas souvent sur le mpfe de ne pas
dire de qui vient la formule/macro..., j'ai remarqué) et
non pas trouver dans sa tête... Donc, pas de blâme trop
hâtif serait mieux, non ?
(pasque moi je me sentirais un peu agressé quand même là,
même si ça ne me regarde absolument pas)

-----Message d'origine-----
J'a itrouver la fonction suivante:


Mettons que tu l'as trouvée parce que AV te l'as donnée
hier.



.




Avatar
Juke
"Clément Marcotte" a écrit dans le message
de news:e7%23%
J'a itrouver la fonction suivante:


Mettons que tu l'as trouvée parce que AV te l'as donnée hier.




Oui,
Mais je l'avais trouver avant sur google. (dans les archive du NG)
J'ai pas dis "trouver" dans le sens "inventer".

Je suis dsl AV si tu t'en est trouvé insulté.

salut


Avatar
Juke
C'est cool ça fonctionne,
c'est ce que j'avais fais mais à priori ça deconnais à cause du $ je l'ai
virer et ça marche.

Je te remercie


"Jessy SEMPERE" a écrit dans le message de
news:bm3d60$sd9$
Bonjour

Tu vas dans le menu "outils" - "macro" - "visual basic editor"
Là tu ajoute un nouveau module et tu copis dedans la fonction
que tu as...

Ensuite tu n'a plus qu'à mettre dans ta feuille excel :

=Virer_Accents$(TaCellule)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Juke" a écrit dans le message news:
bm3cct$qq5$
bonjour,

J'ai un soucis pour enlever les accents d'une colonne.

J'a itrouver la fonction suivante:

Function Virer_Accents$(Chaine$)
Dim tmp$, i, x
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function 'AV


Mais je ne sais pas comment l'ajouter dans excel.

Quelqu'un peut t'il m'aider svp ?

jul








Avatar
sabatier
sache, juke, que les $ que tu peux voir fleurir ici de temps en temps ne
sont
pas une allusion à la richesse de bilou mais simplement de petites
fioritures
inutiles (n'en es-tu pas la preuve vivante) que les MVP se plaisent à
mettre dans leurs procs pour se distinguer
des pauvres néophytes que nous sommes, toi, moi et beaucoup d'autres...
jps

Juke wrote:

C'est cool ça fonctionne,
c'est ce que j'avais fais mais à priori ça deconnais à cause du $ je l'ai
virer et ça marche.

Je te remercie

"Jessy SEMPERE" a écrit dans le message de
news:bm3d60$sd9$
Bonjour

Tu vas dans le menu "outils" - "macro" - "visual basic editor"
Là tu ajoute un nouveau module et tu copis dedans la fonction
que tu as...

Ensuite tu n'a plus qu'à mettre dans ta feuille excel :

=Virer_Accents$(TaCellule)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Juke" a écrit dans le message news:
bm3cct$qq5$
bonjour,

J'ai un soucis pour enlever les accents d'une colonne.

J'a itrouver la fonction suivante:

Function Virer_Accents$(Chaine$)
Dim tmp$, i, x
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function 'AV


Mais je ne sais pas comment l'ajouter dans excel.

Quelqu'un peut t'il m'aider svp ?

jul










Avatar
sabatier
meuh non, juke, l'AV n'est pas désolé...seule, la terre qui l'entoure
l'est
profondément...
disons que tu as été victime d'une nouvelle réaction à l'emporte-pièce
(j'ai
failli écrire à la pince-monseigneur) de notre pape dont visiblement la
vitalité n'a rien à voir avec celle de son collègue polaco-romain...
jps

Juke wrote:

"Clément Marcotte" a écrit dans le message
de news:e7%23%
J'a itrouver la fonction suivante:


Mettons que tu l'as trouvée parce que AV te l'as donnée hier.




Oui,
Mais je l'avais trouver avant sur google. (dans les archive du NG)
J'ai pas dis "trouver" dans le sens "inventer".

Je suis dsl AV si tu t'en est trouvé insulté.

salut




Avatar
AV
c'est ce que j'avais fais mais à priori ça deconnais à cause du $


Ha bon....?
Chez moi ça le fait...un micro-climat ?

AV

1 2