IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro Correcteur orthographe sur une ligne d'un tableau


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Profession indépendande
    Inscrit en
    Octobre 2014
    Messages
    102
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Profession indépendande
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Octobre 2014
    Messages : 102
    Par défaut Macro Correcteur orthographe sur une ligne d'un tableau
    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

  2. #2
    Membre émérite
    Avatar de eric4459
    Homme Profil pro
    Ingénieur Gestion de Projets
    Inscrit en
    Avril 2014
    Messages
    605
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Ingénieur Gestion de Projets
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2014
    Messages : 605
    Par défaut
    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
    "Vous n’avez cessé d’essayer ? Vous n’avez cessé d’échouer ? Aucune importance !
    Réessayez, échouez encore, échouez mieux." Samuel Beckett
    Pensez aux balises et
    Visitez les FAQ Excel et allez faire un tour ici
    Tutoriels de SilkyRoad

  3. #3
    Membre confirmé
    Homme Profil pro
    Profession indépendande
    Inscrit en
    Octobre 2014
    Messages
    102
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Profession indépendande
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Octobre 2014
    Messages : 102
    Par défaut
    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

  4. #4
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    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
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  5. #5
    Membre confirmé
    Homme Profil pro
    Profession indépendande
    Inscrit en
    Octobre 2014
    Messages
    102
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Manche (Basse Normandie)

    Informations professionnelles :
    Activité : Profession indépendande
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Octobre 2014
    Messages : 102
    Par défaut
    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

  6. #6
    Inactif  

    Homme Profil pro
    Développeur .NET
    Inscrit en
    Janvier 2012
    Messages
    4 903
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2012
    Messages : 4 903
    Billets dans le blog
    36
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Positioner le scroolbar sur une ligne d'un tableau
    Par dellys2 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 11/02/2011, 16h22
  2. Mettre le focus sur une ligne d'un tableau
    Par HelloWorldAjaxYou dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 07/02/2011, 17h14
  3. [MaxDB] plusieures lignes du maxdb_fetch_array sur une ligne d'un tableau
    Par nicoda dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 01/02/2008, 16h52
  4. lien sur une ligne d'un tableau
    Par foffa dans le forum Balisage (X)HTML et validation W3C
    Réponses: 2
    Dernier message: 01/09/2006, 15h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo