[XL-2003] Vba & orthographe [Résolu]

[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 :

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 :

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

Donc

Code :

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

Cordialement

D'accord bbil

Code :

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"

[bbil]

Envoyé par Jean-Pierre49

Oui

en intervertissant

Code :

Donc

Code :

Cordialement

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

[vieuxmonsieur]

Bonjour Jean Pierre, bbil,
Comment alors ?

[bbil]

Envoyé par Jean-Pierre49

...

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

[vieuxmonsieur]

Merci à vous deux pour avoir donné suite à ma demande et de vos explications.
Je vous souhaite un excellent week-end.