Macro Correcteur orthographe sur une ligne d'un tableau

**joel50** · 03/08/2016, 18h41

Bonjour
Je souhaite crée une macro qui me vérifie l'orthographe sur une seule ligne d'un tableau Excel.
Les lignes du tableau sont sélectionnées sur 3 critères (les 3 premières colonnes), j'ai essayé d'adapter le code suivant, le correcteur s'ouvre bien mais vérifie l'ensemble des données de la feuille et non la seule ligne sélectionnée.

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Orthographe()
Sheets("Donnees").Select                'selection de la feuille de donnee
    For I = Range("A65536").End(xlUp).Row To DebLigne Step -1        'Recupere le N° de ligne à partir de la derniere écrite
        If Cells(I, 1) = Range("Donnees_1") And Cells(I, 2) = Val(Range("Donnees_2")) And Cells(I, 3) = Val(Range("Donnees_3")) Then
        Cells.CheckSpelling SpellLang:=1036
        End If
    Next I
End Sub

Je précise que je suis plus un bricoleur de code absolument pas un "codeur" averti, je n'ai pas écris le code ci-dessus mais récupéré et tenté de l'adapter.
Merci de votre aide
Joël

**eric4459** · 03/08/2016, 19h22

Bonsoir,
Pas testé mais tu pourrais essayer

Code :

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

1
2
3
4
5
6
7
For I = Range("A65536").End(xlUp).Row To DebLigne Step -1        'Recupere le N° de ligne à partir de la derniere écrite
        For J= 1 to 3
           If Cells(I, 1) = Range("Donnees_1") And Cells(I, 2) = Val(Range("Donnees_2")) And Cells(I, 3) = Val(Range("Donnees_3")) Then
           Cells(I,J).CheckSpelling SpellLang:=1036
           End If
      Next J
    Next I

Eric

**joel50** · 03/08/2016, 19h28

Bonjour Eric et Merci

Il ne se passe plus rien, le correcteur ne s'ouvre plus.

(Concernant le message précédent supprimé, j'avais fait trop vite et mal orthographié les noms, d'ou erreur 1004.)
Joël

**patricktoulon** · 03/08/2016, 22h18

re
bonsoir

perso je sais pas mais il me semble que "val(...)" donne une valeur numérique alors le correcteur walouh walouh!!!!!!

supprime tes val

**joel50** · 03/08/2016, 22h38

Bonsoir Patrick
Merci

Ca ne change rien, ni sur mon code, ni sur celui d'Eric. Avec ou sans Val, mon code continue à scanner le tableau complet et le code d'Eric n'ouvre plus le vérificateur d'orthographe.

Les Val ont pour but de s'assurer que les variables prise en compte pour le sélection de la ligne soit bien au format numérique, ce n'est pas spécifiquement ces valeurs que j'ai à tester, mais une série complète de données (340) contenant un vingtaines de données texte pouvant comporter des fautes d'orthographes.

Cdt
joël

**clementmarcotte** · 03/08/2016, 23h03

Bonjour,

Il ne faut pas utiliser val quand le séparateur décimal est la virgule. Val n'est pas foutu de reconnaître la virgule comme séparateur décimal. Et puis, pour contrôler une valeur numérique il y a IsNumeric

**patricktoulon** · 03/08/2016, 23h09

a oui bien vu clément
en effet val donne que l'entier dans ces cas la: et donc résultat erroné si décimal différent

**joel50** · 03/08/2016, 23h11

Bonjour Clément
Merci de tes éclaircissements.
J'ai enlevé les Val, sans succès pour autant, Je ne parviens par à obtenir ce que je souhaite.
Les 2 données sur lesquels j'avais un Val sont toujours des entiers: 1;2 ou 3 pour l'un et 6 chiffres entre 000000 à 999999 pour l'autre.
Je suis peut être complétement sur une fausse route.
Cdt
Joël

**unparia** · 04/08/2016, 08h14

Bonjour

Utiliser ce genre (exemple) de notation :

Code :

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

1
2
3
4
5
6
7
With Range("A1")
 If Application.CheckSpelling(.Text, , msoLanguageIDFrench) = False Then
   .Font.Color = vbRed
 Else
   .Font.Color = vbBlack
 End If
End With

**joel50** · 04/08/2016, 09h14

Bonjour
Je reviens avec un point et joint à ce message un fichier exemple, le tableau initial est beaucoup grand, je souhaitais que le code ne fasse la vérification d'orthographe que sur la ligne correspondant aux 3 critères dans fiche.
Merci unparia, je suis ne comprend pas comment adapter ton bout de code pour obtenir ce dont j'ai besoin.
Je travaille à partir de l'onglet Fiche, je navigue quasiment jamais sur l'onglet Donnees en visu. Les données du tableau sont modifié par différents formulaires.

Mon code initial ci dessous, vérifie l'ensemble de la feuille sans sélectionner une ligne (et erreur 1004 à la sortie):

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Orthographe()
Sheets("Donnees").Select                'selection de la feuille de donnee
    For I = Range("A65536").End(xlUp).Row To DebLigne Step -1        'Recupere le N° de ligne à partir de la derniere écrite
           If Cells(I, 1) = Range("Date_Visite") And Cells(I, 2) = Val(Range("Num_Ration")) And Cells(I, 3) = Val(Range("N_Eleveur")) Then
        Cells.CheckSpelling SpellLang:=1036
        End If
    Next I
End Sub

Idem si j'enlève les Val

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Orthographe2()
Sheets("Donnees").Select                'selection de la feuille de donnee
    For I = Range("A65536").End(xlUp).Row To DebLigne Step -1        'Recupere le N° de ligne à partir de la derniere écrite
           If Cells(I, 1) = Range("Date_Visite") And Cells(I, 2) = Range("Num_Ration") And Cells(I, 3) = Range("N_Eleveur") Then
        Cells.CheckSpelling SpellLang:=1036
        End If
    Next I
End Sub

Le code d'Eric (sans les Val) ne fonctionne pas non plus, le vérificateur d'ortographe ne s'ouvre pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Orthographe3()
Sheets("Donnees").Select                'selection de la feuille de donnee
    For I = Range("A65536").End(xlUp).Row To DebLigne Step -1        'Recupere le N° de ligne à partir de la derniere écrite
        For J = 1 To 3
           If Cells(I, 1) = Range("Date_Visite") And Cells(I, 2) = Range("Num_Ration") And Cells(I, 3) = Range("N_Eleveur") Then
           Cells(I, J).CheckSpelling SpellLang:=1036
           End If
      Next J
    Next I
End Sub

Merci à tous pour votre aide
Cdt
Joël

**unparia** · 04/08/2016, 11h07

Ce n'est pas pour rien, que je t'ai montré un exemple (à toi d'adapter ensuite).
- Le correcteur d'orthographe ne s'affiche que si faute détectée
- je te suggère donc de ne le lancer (par ton code de lancement) que si (par mon code)

Code :

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

 Application.CheckSpelling(.Text, , msoLanguageIDFrench) = False

**joel50** · 04/08/2016, 11h50

Bonjour Unparia et merci

Je ne doute pas de tes compétences et ton conseil, c'est les miennes qui sont limités dans le domaine, et de plus je ne pratique que très peu.
J'ai essayé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Orthographe3()
 
With Sheets("Donnees")
    For I = Range("A65536").End(xlUp).Row To DebLigne Step -1       'Recupere le N° de ligne à partir de la derniere écrite
        If Cells(I, 1) = Range("Date_Visite") And Cells(I, 2) = Range("Num_Ration") And Cells(I, 3) = Range("N_Eleveur") Then
    Application.CheckSpelling(.Text, , msoLanguageIDFrench) = False
    Else
        Exit Sub
    End If
End With
End Sub

J'ai un bug sur Application.CheckSpelling(.Text, , msoLanguageIDFrench) = False avec Erreur de compilation: Un appel de fonction dans la partie gauche de l'affectation doit renvoyer Variant ou Object.

Joël

**unparia** · 04/08/2016, 12h45

Tu me vois vraiment désolé, joel50, de constater (je ne peux que constater) que tu ignores apparemment ce qu'est un bloc With, ce qu'il traite et comment on l'utilise.
Bonne continuation, mais tu devrais recommencer par les bases.

**joel50** · 04/08/2016, 12h59

Unparia
Effectivement, comme je le précisais dans mon message, la programmation n'est pas mon métier, je bricole un peu et je pratique peu, juste quand j'ai besoin de faire une évolution dans mon fichier. Et mon emploi du temps ne me permet pas de faire bien plus.

Merci tout de même de ton aide.

Cordialement
Joël

**eric4459** · 04/08/2016, 13h00

Joel,
Comme le suggère Unparia, tu devrait lire ceci
http://silkyroad.developpez.com/

Bonne lecture
Eric

**halaster08** · 04/08/2016, 13h07

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Orthographe()
Sheets("Donnees").Select                'selection de la feuille de donnee
    For I = Range("A65536").End(xlUp).Row To DebLigne Step -1        'Recupere le N° de ligne à partir de la derniere écrite
        If Cells(I, 1) = Range("Donnees_1") And Cells(I, 2) = Val(Range("Donnees_2")) And Cells(I, 3) = Val(Range("Donnees_3")) Then
        rows(I).Cells.CheckSpelling SpellLang:=1036
        End If
    Next I
End Sub

cells selectionne toutes les cellules, peu importe le if avant.
En ajoutant rows(I) devant tu ne selectionne que les cellules de la ligne I

**joel50** · 04/08/2016, 13h42

Bonjour Halaster

Excellent, c'est ce que je voulais obtenir, ça m'a vraiment permis d'avancer.
Merci bcp, et merci de ta compréhension.
J’essayerai de me rappeler, mais je pratique très peu. Avec peu d'expérience et de protique, je cherche souvent dans la mauvaise direction

Cdt
Joël

On peut certainement faire mieux, comme le proposent Eric et Unparia, mais mon emploi du temps ne me permet pas, peut être un jour...
Merci pour tout

Macro Correcteur orthographe sur une ligne d'un tableau

Macros et VBA Excel

Discussions similaires

Partager

Partager