Bonjour à tou(te)s,
Après avoir importé des données généalogiques d'un autre fichier Excel, je souhaite remplacer tous les caractères majuscules accentués par leur équivalent non-accentué.
Ex. "Élise" doit devenir "Elise"
Mon problème c'est que je me retrouve avec " Elise", donc précédé d'un blanc. Quand j'essaie de supprimer le blanc manuellement, cela s'avère impossible, un fois que j'ai tapé Enter, le blanc revient.
Voici le code utilisé :
S'il n'y a pas de remplacement, il n'y a pas de blanc non plus.
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
17
18
19 Sub RemplMajAcc() Dim myarray, myreplace Dim i As Integer Dim SH Dim rng As Range Dim LastRow myarray = Array("É", "È", "À", "Û", "Ô", "Ö", "Ç", "Â", "Ù", "Ü", "Ä", "Ê", "Ë", "Î", "Ï") myreplace = Array("E", "E", "A", "U", "O", "O", "C", "A", "U", "U", "A", "E", "E", "I", "I") For Each SH In Worksheets For i = 0 To UBound(myarray) SH.Cells.Replace What:=myarray(i), Replacement:=myreplace(i), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=False Next ...
Je suis a quia. Pouvez-vous m'aider ?
Merci d'avance et bon w-e.
Philippe
Partager