ActiveSheet.UsedRange.CheckSpelling

Bonjour,

j'ai une question concernant 'ActiveSheet.UsedRange.CheckSpelling' qui permet de vérifier l'orthographe d'une page.

Comment faire pour vérifier l'orthographe d'une seule plage (ex: b5:G50)?

merci par avance

Bonsoir,

Une proposition...

Cdlt.

Option Explicit
Public Sub test()
Dim ws As Worksheet
Dim rng As Range, c As Range

    Application.ScreenUpdating = False

    Set ws = ActiveSheet
    Set rng = ws.Range("A1", "A10")
    For Each c In rng
        If Not c.Text = vbNullString Then c.CheckSpelling
    Next

End Sub

bonsoir et merci!

j'ai testé et si je met juste "C1:E2" pas de soucis mais si je met "C1:E2", "A46:D68" là il me vérifie la plage que je veux ignorer et chose surprenante la macro tourne en boucle!!!!

    Set ws = ActiveSheet
    Set rng = ws.Range("C1:E2", "A46:D68") 
    For Each c In rng
        If Not c.Text = vbNullString Then c.CheckSpelling
    Next

Re,

Modifie ainsi :

Set rng = ws.Range("C1:E2, A46:D68")

Bonjour

merci pour la réponse.

J'ai testé et il me corrige tout de même la zone à éviter (C13:C42) QUE lorsqu'il y a une faute d'orthographe dans la feuille

Bonjour,

Je ne peux pas t'en dire plus.

Cdlt.

Bonjour,

ce n'est pas par ces lignes là qu'il est appelé.

Tu n'as pas laissé trainer d'anciennes lignes ?

eric

Merci Eric, mais je ne comprend pas ta réponse

Jean-Eric t'as donné la bonne syntaxe pour ta plage et les cellules C13:C42 ne sont donc pas vues par les lignes de code que tu as fourni.

L'appel à la correction est donc fait ailleurs.

eric

Je suis d'accord avec lui. Par contre j'ai volontairement fait une faute dans cette plage (qui doit être ignoré) et il me la corrigé.

J'ai fait le même test et aucune demande de correction.

Teste sur un classeur neuf avec juste ce code, tu verras.

eric

En fait le code marche très bien si on sélectionne plusieurs plage, sauf si la zone a éviter est entre ces deux plages.

Voici une solution

ActiveSheet.Range("C1:E5").CheckSpelling

ActiveSheet.Range("B46:D68").CheckSpelling
Rechercher des sujets similaires à "activesheet usedrange checkspelling"