Discussion :

[November-Oscar]

Bonjour
Excel n'est pas comme Word car on ne peut pas voir les fautes de frappe ou autre soulignées en vert ou en rouge.
J'ai trouvé ce bout de code

Code :

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

1
2
3
4
5
6
7
Sub ColorMispelledCells()
    Dim cl As Range
    For Each cl In ActiveSheet.UsedRange
        If Not Application.CheckSpelling(Word:=cl.Text) Then _
          cl.Font.Color = -16776961
    Next cl
End Sub

Ce code met l'écriture de toute la cellule en rouge si la vérification d'orthographe d'Excel remonte quelque chose.
Maintenant mon problème est que parfois/souvent mes feuilles excel sont soit en Français soit en Anglais.

Donc ma question est : est-il possible de changer la langue la langue d'édition (qui doit servir pour la vérification orthographique) par du code VBA.

Excel est réglé en Français chez moi et c'est très bien.
Donc lorsque je veux faire un tel contrôle, il faudrait que :
1- j'enregistre la langue réglée
2- je demande quelle langue de contrôle je veux utiliser
3- je modifie ma langue réglée si c'est différent et c'est là que j'ai besoin de vous
4- je lance la procédure ci-dessus
5- je remets la langue de départ si elle a été modifiée pour le besoin de contrôle.

Voilà tout. Merci pour votre aide.

[Jean-Philippe André]

Salut,

la notion de langue sous Excel est accessible via

Code :

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

Application.LanguageSettings.LanguageID(msoLanguageIDUI)

qui te retournera par exemple 1036 pour le français.

Malheureusement (ou plutôt heureusement), cette propriété est en lecture seule (imagine une macro qui te change l'interface en thai ou russe...

La seule piste que je verrai qui t'amènerai plus proche de ton objectif est de trouver une API Windows.

[November-Oscar]

Je me doutais d'un truc du type 'lecture seule' ; car rien sur le net.

pas grave au final : le code remontera simplement la langue réglée et dira à l'opérateur d'aller la modifier au besoin... toujours mieux que rien.

Pour l'histoire d'API Windows, je n'y connais absolument rien. donc pas compris.

merci encore

[laurent_ott]

Bonjour.
Dans la documentation de MicroSoft, le 4e argument de la fonction permet de déterminer la langue :
CheckSpelling (CustomDictionary, IgnoreUppercase, AlwaysSuggest, SpellLang) (voir https://docs.microsoft.com/fr-fr/off....checkspelling).

SpellLang = Langue du dictionnaire utilisé. Peut être l’une des valeurs MsoLanguageID (voir https://docs.microsoft.com/fr-fr/off....msolanguageid).

J'ai mis "hello word" en A1 et j'ai testé :
Debug.Print Range("A1").CheckSpelling(, , , msoLanguageIDFrench) => trouve une erreur.
Debug.Print Range("A1").CheckSpelling(, , , msoLanguageIDEnglishUK) => pas d'erreur.

Puis "hello everibodi"
Debug.Print Range("A1").CheckSpelling(, , , msoLanguageIDEnglishUK) => trouve une erreur et propose "everybody".

Donc ça semble bien marcher avec ma configuration : Version Excel 2016 / Window 10.
A vérifier le résultat sur votre PC.

Cordialement.

[November-Oscar]

Merci pour cette idée qui me fait poser la question suivante :

est-il possible d'intercepter l'action sur la touche F7 ? --> au lieu de de lancer la vérification orthographique selon une langue réglée dont l'utilisateur n'a pas conscience, on pourrait intercepter l'action et faire qqch avant, non ?

[laurent_ott]

est-il possible d'intercepter l'action sur la touche F7 ? --> au lieu de de lancer la vérification orthographique selon une langue réglée dont l'utilisateur n'a pas conscience, on pourrait intercepter l'action et faire qqch avant, non ?

Oui, c'est possible de rediriger F7 vers une autre fonction, par exemple MaCorrection qui fera votre correction orthographique :
A placer (généralement) à l'ouverture du classeur :

Code :

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

Application.OnKey "{F7}", "MaCorrection"

puis pour restaurer la fonction normale:

Code :

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

Application.OnKey "{F7}", ""

Cordialement.

[November-Oscar]

Merci pour cette réponse du 4e argument...

Ci-dessous le code que je vous avais mis dans mon tout premier message. Code qui fonctionne très bien selon la langue déjà renseignée dans les options.

Code :

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

1
2
3
4
5
6
7
Sub ColorMispelledCells()
    Dim cl As Range
    For Each cl In ActiveSheet.UsedRange
        If Not Application.CheckSpelling(Word:=cl.Text) Then _
          cl.Font.Color = -16776961
    Next cl
End Sub

Comment intégrer cette notion de 4e argument dans ce code ? J'ai tenté cela (voir ci-dessous) mais ça plante "Erreur de compilation - Erreur de syntaxe" en pointant sur la 2e virgule ajoutée.

Code :

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

1
2
3
4
5
6
7
Sub ColorMispelledCells()
    Dim cl As Range
    For Each cl In ActiveSheet.UsedRange
        If Not Application.CheckSpelling(Word:=cl.Text,,,msoLanguageIDEnglisUS) Then _
          cl.Font.Color = -16776961
    Next cl
End Sub

Merci. Si ça pouvait fonctionner, je n'aurais plus qu'un choix de la langue de contrôle à choisir au début du programme.

[Jean-Philippe André]

Bonjour.
Dans la documentation de MicroSoft, le 4e argument de la fonction permet de déterminer la langue :
CheckSpelling (CustomDictionary, IgnoreUppercase, AlwaysSuggest, SpellLang) (voir https://docs.microsoft.com/fr-fr/off....checkspelling).

...

A faire apparaitre dans la

[November-Oscar]

Que dois-je faire apparaître dans la foire aux questions ? (je ne suis pas un habitué du forum)

Je voulais juste terminer par votre avis sur cette ligne de code qui plante

Code :

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

If Not Application.CheckSpelling(Word:=cl.Text,,,msoLanguageIDEnglisUS) Then cl.Font.Color = -16776961

[laurent_ott]

La fonction renvoie True ou False donc le test est du genre :
If ... = False Then ...