minuscule MAJUSCULE sans accent

J

jp14

XLDnaute Barbatruc

• 5 Février 2010

• #2

Re : minuscule MAJUSCULE sans accent

Bonsoir

Ci joint le fichier avec des formules personnalisées.
Elles sont basées sur le code ASCII.

Utilisation des codes ascii pour éliminer les lettres avec accent.
Les fonctions ne traitent que les noms avec 3 éléments, si par hasard les noms sont plus complexes il faut mettre un séparateur autre qu'un espace ( utilisation de split pour faire la séparation entre le nom et prénom).
Les prénoms sont reconnus du fait qu'a partir de la deuxième lettre on a des minuscules.

A tester

JP

 

Pièces jointes

• Accents pour Forum.zip

  14.2 KB · Affichages: 102

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Février 2010

• #3

Re : minuscule MAJUSCULE sans accent

Bonsoir à tous


Une solution deux en un 😉

Code:

Const Accents = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿŠŽšžŸ"
Const Sans_Accents = "AAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyySZszY"

Sub suprr_accents(x As Range)
Dim a$, nac$
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Len(Accents)
a = Mid(Accents, i, 1)
nac = Mid(Sans_Accents, i, 1)
x.Replace a, nac, xlPart, True
Next
Application.ScreenUpdating = True
End Sub

Sub test()
suprr_accents [A1].CurrentRegion
[A1].CurrentRegion.TextToColumns Range("B1"), xlDelimited, , True, , , , True
End Sub

 

Vote positif 0 Vote négatif

F

Fonmaz

XLDnaute Junior

• 6 Février 2010

• #4

Re : minuscule MAJUSCULE sans accent

Bonjour jp14, bonjour Staple 1600, et un grand merci pour intéresser à mon cas

Pour toi JP, compte tenu des complexités des prénoms et noms (j'ai 150 000 lignes), en rouge le dernier Nom (que j'ai rajouté) avant séparation te montre pourquoi, je suis obligé de garder les formules en C et D. J'ai trop galérer pour en arriver là. Donc je ne peux pas utiliser ta formule qui me fausse la séparation des prénoms et des noms.
Pour toi staple n'étant pas un pro de la macro et nul de chez nul en VBA, je n'arrive pas a faire fonctionner ton code.
Il n'y a pas une formule plus simple pour supprimer tous ces accents cédille et autres a mettre en colonne G et H ?
Sur ce fichier j'ai rajouté le passage de C et D en majuscule (MAJUSCULE()en E et F. C'est à partir de là que je voudrais supprimer tous les accents ...
Merci de m'aider ;

 

Pièces jointes

• Copie de Accents pour Forum.zip

  17.9 KB · Affichages: 42
• Copie de Accents pour Forum.zip

  17.9 KB · Affichages: 42
• Copie de Accents pour Forum.zip

  17.9 KB · Affichages: 43

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 6 Février 2010

• #5

Re : minuscule MAJUSCULE sans accent

Bonsoir

Ci dessous la procédure modifiée pour tenir compte du nombre indéterminé de prénoms : décomposition du nom et inscription des nom et prénoms sans accent et en majuscule.
J'ai rajouté les fonctions pour, partant des noms et prénoms décomposés, supprimer les accents .

A tester

JP

 

Pièces jointes

• Copie de Accents pour Forum.zip

  23.5 KB · Affichages: 79
• Copie de Accents pour Forum.zip

  23.5 KB · Affichages: 81
• Copie de Accents pour Forum.zip

  23.5 KB · Affichages: 82

Dernière édition: 6 Février 2010

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 6 Février 2010

• #6

Re : minuscule MAJUSCULE sans accent

Bonjour è tous,
Fonmaz, dans votre premier fil sur le sujet il y avait une condition sipplémentaire. Est elle toujours d'actualité?
Cordialement

 

Vote positif 0 Vote négatif

F

Fonmaz

XLDnaute Junior

• 6 Février 2010

• #7

Re : minuscule MAJUSCULE sans accent

Efgé à dit:

Bonjour è tous,
Fonmaz, dans votre premier fil sur le sujet il y avait une condition sipplémentaire. Est elle toujours d'actualité?
Cordialement

Cliquez pour agrandir...

Pardon Efgé, mais je ne suis pas là ...
Merci de vouloir m'aider mais de quelle conditions vous parlez ?

 

Vote positif 0 Vote négatif

F

Fonmaz

XLDnaute Junior

• 6 Février 2010

• #8

Re : minuscule MAJUSCULE sans accent

Bonsoir JP14. C'est extraordinaire. A première vue ça marche. Je vais tester sur les 151 668 lignes précisément. Pardon de pousser le bouchon JP14, mais j'ai trouvé dans mon fichier des noms avec des lettres que je ne connaissais pas et qui manque
ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøðÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿýÝÑñÇ犚
J'ai souligné ces lettres, mais j'en ai peut-être oublié une. Si vous le pouvez en prenant toute la liste ca devrait aller. JE crois qu'il y a une sorte de "i" avec une barre que j'ai omi de souligner. mais il est dans la liste.
Je vais mieux dormir ce soir. MERCI
Un grand merci. Quel niveau !!!!! Je suis admiratif.

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 6 Février 2010

• #9

Re : minuscule MAJUSCULE sans accent

Bonsoir

Pour faire les corrections
Utiliser la formule =CODE(cellule contenant le carractère) pour trouver le code ascii

Reporter le code ascii dans la procédure
Case 255, 253, 221
data2 = data2 & "Y"

pour ýÝ

Si nécessaire créer une nouvelle option, par exemple pour les S
Case 138, 154
data2 = data2 & "S"

JP

 

Pièces jointes

• Copie de Accents pour Forumv2.zip

  20.9 KB · Affichages: 70

Dernière édition: 8 Février 2010

Vote positif 0 Vote négatif