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 :

erreur avec Formula [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Homme Profil pro
    Chargé d'Etudes Statistiques
    Inscrit en
    Novembre 2010
    Messages
    79
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chargé d'Etudes Statistiques
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2010
    Messages : 79
    Par défaut erreur avec Formula
    Bonjour, j'ai un gros fichier Excel dans lequel je dois insérer tout un tas de formules en fonctions des colonnes etc...voici ma macro "test":
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Sub formule()
        Dim cel As Range
        Set cel = Worksheets("Région").Range("B8")
        cel.Formula = "=SI(SOMME(base_1!M2:M648)=0;" & Chr(34) & Chr(34) & ";SOMME(base_1!M2:M648))"
    End Sub
    Cela me renvoie une erreur 1004. Je ne vois pas le problème, à mon avis c'est la gestion des guillemets (représentés par des Chr(34)).
    Si quelqu'un peut m'aider...merci d'avance!

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    46
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 46
    Par défaut
    La langue de Formula est l'anglais (IF, SUM, ...). Pour mettre du Français, il faut FormulaLocal.
    Essaye donc en remplaçant Formula par FormulaLocal.

  3. #3
    Membre éclairé
    Homme Profil pro
    Chargé d'Etudes Statistiques
    Inscrit en
    Novembre 2010
    Messages
    79
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chargé d'Etudes Statistiques
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2010
    Messages : 79
    Par défaut
    Nickel! Merci.

  4. #4
    Membre éclairé
    Homme Profil pro
    Chargé d'Etudes Statistiques
    Inscrit en
    Novembre 2010
    Messages
    79
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chargé d'Etudes Statistiques
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2010
    Messages : 79
    Par défaut
    Par contre quand je fais ça dans une boucle:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Sub form()
        Dim cel As Range
        Dim i As Integer
        Set cel = Worksheets("Vue_Région").Range("B8")
        For i = 1 To 12
            cel.Offset(i - 1, 0).FormulaLocal = "=SI(SOMME(base_& i &!M2:M648)=0;" & Chr(34) & Chr(34) & ";SOMME(base_& i & !M2:M648))"
        Next i
    End Sub
    il me renvoie la même erreur...

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    46
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 46
    Par défaut
    Tu as oublié des guillemets:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub form()
        Dim cel As Range
        Dim i As Integer
        Set cel = Worksheets("Vue_Région").Range("B8")
        For i = 1 To 12
            cel.Offset(i - 1, 0).FormulaLocal = "=SI(SOMME(base_"& i &"!M2:M648)=0;" & Chr(34) & Chr(34) & ";SOMME(base_"& i & "!M2:M648))"
        Next i
    End Sub

  6. #6
    Membre éclairé
    Homme Profil pro
    Chargé d'Etudes Statistiques
    Inscrit en
    Novembre 2010
    Messages
    79
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 36
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chargé d'Etudes Statistiques
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2010
    Messages : 79
    Par défaut
    ...ok, je suis fatigué. mais merci encore!

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

Discussions similaires

  1. [Oulook 2010] Erreur avec une ActiveCell.Formula
    Par rnicolas.1987 dans le forum VBA Outlook
    Réponses: 7
    Dernier message: 04/04/2014, 15h43
  2. Erreur avec procédure LockWorkStation ...
    Par simonseztech dans le forum API, COM et SDKs
    Réponses: 4
    Dernier message: 16/08/2004, 16h33
  3. [Débutant][Conception] Erreur avec une classe interne
    Par Devil Redneck dans le forum Général Java
    Réponses: 5
    Dernier message: 11/06/2004, 16h45
  4. Erreur avec les ADO
    Par megane dans le forum Bases de données
    Réponses: 7
    Dernier message: 08/03/2004, 22h37
  5. Erreur avec WM_COMMAND (BN_CLICKED)
    Par cyberlewis dans le forum Windows
    Réponses: 2
    Dernier message: 09/02/2004, 01h25

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