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 :

Copier une formule avec vba


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Inscrit en
    Octobre 2005
    Messages
    7
    Détails du profil
    Informations forums :
    Inscription : Octobre 2005
    Messages : 7
    Points : 6
    Points
    6
    Par défaut Copier une formule avec vba
    Bonjour,
    Je dois recopier dans une cellule a l'aide d'une macro la formule suivante =SI(ET(ET(J7<>"";B7<>"");J7>=B7);DATEDIF(B7;J7;"d");"") au démarrage du classeur
    Le problème ,ce sont les guillemets...la formule ne s'exécute pas ! même en doublant les guillemets .Si vous aviez une solution...je pense que quelque chose m'échappe.Merci de vos réponses

    Merci pour vos réponses

  2. #2
    Membre éclairé
    Inscrit en
    Septembre 2005
    Messages
    617
    Détails du profil
    Informations forums :
    Inscription : Septembre 2005
    Messages : 617
    Points : 733
    Points
    733
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    cell(1,1).formulaLocal = "SI(ET(ET(J7<>"""";B7<>"""");J7>=B7);DATEDIF(B7;J7;""d"");"""")"
    ou

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    cell(1,1).formula = "IF(AND(AND(J7<>"""";B7<>"""");J7>=B7);DATEDIF(B7;J7;""d"");"""")"

  3. #3
    Futur Membre du Club
    Inscrit en
    Octobre 2005
    Messages
    7
    Détails du profil
    Informations forums :
    Inscription : Octobre 2005
    Messages : 7
    Points : 6
    Points
    6
    Par défaut re
    ça ne fonctionne pas dans mon prog
    Je veux copier cette formule au démarrage en k7
    j'ai donc
    range ("k7").activate
    activecell.formula="=IF(AND(AND(J7<>"""";B7<>"""");J7>=B7);DATEDIF(B7;J7;""d"");"""")"
    ce qui me donne une erreur definie par l'application ou par l objet
    merci

  4. #4
    Futur Membre du Club
    Inscrit en
    Octobre 2005
    Messages
    7
    Détails du profil
    Informations forums :
    Inscription : Octobre 2005
    Messages : 7
    Points : 6
    Points
    6
    Par défaut suite et fin
    ça marche enfin mais j'ai dû modifier quelque peu
    voici la dernière mouture
    Cells(7, 11).FormulaLocal = "=SI(ET(ET(J7<>"""";B7<>"""");J7>=B7);DATEDIF(B7;J7;""d"");"""")"
    merci

  5. #5
    Membre éclairé
    Inscrit en
    Septembre 2005
    Messages
    617
    Détails du profil
    Informations forums :
    Inscription : Septembre 2005
    Messages : 617
    Points : 733
    Points
    733
    Par défaut
    De rien... Tu peux cliquer sur résolu stp?

Discussions similaires

  1. Réponses: 6
    Dernier message: 18/06/2013, 09h42
  2. [XL-2003] Insérer une formule avec "Rank" en VBA
    Par apnw7931 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 08/04/2011, 11h48
  3. [XL-2003] Copie d'une formule avec VBA
    Par akane dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 15/09/2009, 19h32
  4. [VBA-Excel] Calcul d'une formule avec une inconnue
    Par micwiss dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 23/10/2006, 16h04
  5. [VBA-E] Copier une formule de calcul dans toute la ligne
    Par kernel57 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/12/2005, 18h18

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