Vba & orthographe

Version imprimable

04/11/2011, 12h22
vieuxmonsieur

Vba & orthographe

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.

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

Citation:

Peut-on également corriger l'orthographe des titres

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

Cordialement

04/11/2011, 13h31
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 ?

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

04/11/2011, 13h42
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"

Citation:
Envoyé par Jean-Pierre49
Oui

en intervertissant
Code:

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

1 2 Avec = "eeeeuuuooyaaaiiEEEEUUUOOYAAAII_ " Sans = "èéêëùúûòôÿàáâîïÈÉÊËÙÚÛÒÔŸÀÁÂÎÏ'-"
Cordialement
la je crois que tu as répondu un peu vite .... ;)

04/11/2011, 15h31
vieuxmonsieur

Bonjour Jean Pierre, bbil,
Comment alors ?
04/11/2011, 15h37
SfJ5Rpw8

Citation:

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 :arrow: èéêë ?
04/11/2011, 15h46
Jean-Pierre49

Exact bbil

:aie::aie::aie::aie::aie::aie::aie::aie:

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

Cordialement

Citation:

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
04/11/2011, 15h58
vieuxmonsieur

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