Discussion :

[vieuxmonsieur]

Bonjour à tous,

Question :
Peut-on par Vba remplacer les lettres Colonne ("B") comportant une accentuation (à,é,é,ç,î,ï,ê,ë etc.) par la même lettre sans accentuation, remplacer les " ' " par " _ " les traits d'union par un espace ?

Question inverse :
Peut-on également corriger l'orthographe des titres (tous dans la même colonne ("F") automatiquement sans intervention d'une boîte de dialogue ?

N'étant pas très doué en vba je vous remercie de vous pencher sur ma demande.

[Jean-Pierre49]

Bonjour

Pour la première question

Une fonction

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
Public Function SansAccent(ByVal Chaine As String) As String
                            Dim Avec                    As Variant
                            Dim Sans                    As Variant
                            Dim CompA                   As Byte
                            Dim Pos                     As Long
    Application.Volatile
 
    Avec = "èéêëùúûòôÿàáâîïÈÉÊËÙÚÛÒÔŸÀÁÂÎÏ'-"
    Sans = "eeeeuuuooyaaaiiEEEEUUUOOYAAAII_ "
 
    For CompA = 1 To Len(Chaine)
        Pos = InStr(Avec, Mid(Chaine, CompA, 1))
        If Pos > 0 Then Mid(Chaine, CompA, 1) = Mid(Sans, Pos, 1)
    Next CompA
 
    SansAccent = Chaine
 
End Function

Pour la seconde

Peut-on également corriger l'orthographe des titres

Aucune idée, si ce n'est > Option > Orthographe pour Excel 2003


Cordialement

[vieuxmonsieur]

Bonjour Jean Pierre et merci de me répondre aussi rapidement.
A défaut de pouvoir corriger automatiquement, peut-on obtenir l'inverse de ton code ?

[Jean-Pierre49]

Oui

en intervertissant

Code :

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

1
2
    Avec = "èéêëùúûòôÿàáâîïÈÉÊËÙÚÛÒÔŸÀÁÂÎÏ'-"
    Sans = "eeeeuuuooyaaaiiEEEEUUUOOYAAAII_ "

Donc

Code :

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

1
2
    Avec = "eeeeuuuooyaaaiiEEEEUUUOOYAAAII_ "
    Sans = "èéêëùúûòôÿàáâîïÈÉÊËÙÚÛÒÔŸÀÁÂÎÏ'-"

Cordialement

D'accord bbil

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
Public Function SansAccent(ByVal Chaine As String) As String
                            Dim Avec                    As Variant
                            Dim Sans                    As Variant
                            Dim CompA                   As Byte
                            Dim Pos                     As Long
    Application.Volatile
 
    Avec = "èéêëùúûòôÿàáâîïÈÉÊËÙÚÛÒÔŸÀÁÂÎÏ'-"
    Sans = "eeeeuuuooyaaaiiEEEEUUUOOYAAAII_ "
 
    For CompA = 1 To Len(Chaine)
        Pos = InStr(Sans, Mid(Chaine, CompA, 1))
        If Pos > 0 Then Mid(Chaine, CompA, 1) = Mid(avec, Pos, 1)
    Next CompA
 
    SansAccent = Chaine
 
End Function

[vieuxmonsieur]

Je m'en doutais un peu, mais ne maitrisant pas vba la confirmation me rassure.
Je pense que ce code doit être placé dans un module.
Par contre, je ne "vois" pas comment il s'appliquera à une seule feuille du classeur (la feuille Titres) ni sur quelle colonne de la dite feuille le "B"

[SfJ5Rpw8]

Oui

en intervertissant

Code :

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

1
2
    Avec = "èéêëùúûòôÿàáâîïÈÉÊËÙÚÛÒÔŸÀÁÂÎÏ'-"
    Sans = "eeeeuuuooyaaaiiEEEEUUUOOYAAAII_ "

Donc

Code :

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

1
2
    Avec = "eeeeuuuooyaaaiiEEEEUUUOOYAAAII_ "
    Sans = "èéêëùúûòôÿàáâîïÈÉÊËÙÚÛÒÔŸÀÁÂÎÏ'-"

Cordialement

la je crois que tu as répondu un peu vite ....

[vieuxmonsieur]

Bonjour Jean Pierre, bbil,
Comment alors ?

[SfJ5Rpw8]

...

D'accord bbil
...

non tu n'as pas compris ... avec ton remplacement par quoi remplace tu par exemple le caractére : e èéêë ?

[Jean-Pierre49]

Exact bbil



Tout est à revoir
Sacrés accents..........

Cordialement

Par contre, je ne "vois" pas comment il s'appliquera à une seule feuille du classeur (la feuille Titres) ni sur quelle colonne de la dite feuille le "B"

Faire Insertion > fonction > dans les personnalisées , tu cherche SansAccent

Et tu choisira ta cellule

Tu dis