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 :

Ecrire une formule dans une cellule en VBA [XL-2003]


Sujet :

Macros et VBA Excel

  1. #1
    Expert éminent
    Avatar de qi130
    Homme Profil pro
    Expert Processus IT
    Inscrit en
    Mars 2003
    Messages
    3 911
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France

    Informations professionnelles :
    Activité : Expert Processus IT
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2003
    Messages : 3 911
    Points : 6 032
    Points
    6 032
    Par défaut Ecrire une formule dans une cellule en VBA
    Bonjour,

    Après avoir parcouru le forum et utilisé F1, je me décide à poster pour "mon" problème:

    Je souhaite modifier la formule d'une cellule
    formule initiale
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SOMME.SI($A2:$A430;"D";AC2:AC430)
    afin qu'elle reflète le "bon" nb de lignes au lieu de "430"

    Je fais donc
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    formule = "=SOMME.SI($A2:$A" & nblignes & ";""D"";AC2:AC" & nblignes & ")"
      Worksheets(1).Cells(nblignes, 29).Formula = formule
    et j'ai l'erreur 1004 Erreur définie par l'application ou par l'objet

    Pourtant, en pas à pas, la variable formule parait bien formée, conformément à la formule initiale

    Qu'est-ce qui cloche ?

    Merci.

  2. #2
    Membre expérimenté
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    747
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 747
    Points : 1 332
    Points
    1 332
    Par défaut
    Bonjour qi130,

    essaye de remplacer "Formula" par "FormulaLocal"

    ou alors il faut traduire les noms de fonctions en anglais et remplacer les ";" par des "," dans la formule

  3. #3
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 379
    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 379
    Points : 12 075
    Points
    12 075
    Billets dans le blog
    8
    Par défaut heu!...
    bonjour

    est ce que ta variable formule est bien declarée dans le bon type en debut de macro? dans ton cas "dim formule as variant"



    au plaisir

  4. #4
    Expert éminent
    Avatar de qi130
    Homme Profil pro
    Expert Processus IT
    Inscrit en
    Mars 2003
    Messages
    3 911
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France

    Informations professionnelles :
    Activité : Expert Processus IT
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2003
    Messages : 3 911
    Points : 6 032
    Points
    6 032
    Par défaut
    La variable formule est déclarée en string

  5. #5
    Expert éminent sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Points : 31 877
    Points
    31 877
    Par défaut
    Regarde ce qu'on te propose, totti
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    formule = "=SOMME.SI($A2:$A" & nblignes & ";""D"";AC2:AC" & nblignes & ")"
      Worksheets(1).Cells(nblignes, 29).Formulalocal = formule
    Ou bien
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    formule = "=sumif($A2:$A" & nblignes & ",""D"",AC2:AC" & nblignes & ")"
      Worksheets(1).Cells(nblignes, 29).Formula = formule

  6. #6
    Expert éminent
    Avatar de qi130
    Homme Profil pro
    Expert Processus IT
    Inscrit en
    Mars 2003
    Messages
    3 911
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France

    Informations professionnelles :
    Activité : Expert Processus IT
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2003
    Messages : 3 911
    Points : 6 032
    Points
    6 032
    Par défaut
    Ca marche avec Formulalocal

    à tous

  7. #7
    Membre expérimenté
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    747
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 747
    Points : 1 332
    Points
    1 332
    Par défaut
    Bonjour à tous,

    ça fait plaisir de voir qu'on est lu quand on propose une solution

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

Discussions similaires

  1. [Toutes versions] Imbriquer une formule dans une formule à l'aide de l'outil Insertion de fonction
    Par Philippe Tulliez dans le forum Contribuez
    Réponses: 0
    Dernier message: 27/08/2014, 11h21
  2. Réponses: 2
    Dernier message: 23/03/2014, 12h05
  3. [XL-2010] Formule : attribuer une formule dans une cellule
    Par popi33370 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 06/03/2014, 18h06
  4. Réponses: 3
    Dernier message: 29/01/2008, 12h08
  5. Envoyer une formulaire dans une page dans une Frame
    Par zooffy dans le forum Balisage (X)HTML et validation W3C
    Réponses: 5
    Dernier message: 29/06/2007, 10h13

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