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 :

[][Excel] Comment ne pas détruire les formules ?


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    mai 2003
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2003
    Messages : 4
    Points : 4
    Points
    4
    Par défaut [][Excel] Comment ne pas détruire les formules ?
    Bonjour,

    voila mon problème :

    j'ai une classeur M qui contient des feuilles de calcul, et je dois insérer des feuilles de données dans ce classeur. Ce traitement vos pour un peu plus de milles itérations.

    En fait je copie et renome mon classeur M, je supprime les feuilles de données qui m'on servi à le contruire et je recopie les bonnes feuilles de données.

    Hélas, les formules ont une erreur de REF puis que les feuilles ont été supprimer.

    Il faut savoir que ma technique précèdente était recopier cellule par cellule les nouvelles données, mais j'en ai pour 1 heure de traitement au mieux 40 minutes. Alors qu'avec la technique de copie de feuille dans les classeurs cela ne prend que 20 minutes.

    J'avais eu espoir qu'en annulant le calcul automatique il ne chercherait pas à évaluer mes formules lors de la suppresion des feuilles de données, mais c'est raté, à moins que j'ai fait une erreur.

    Voici le code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
     ' on désactive le calcul automatique des classeurs
     XL.Calculation = xlCalculationManual
     ' on ne calcule pas avant de sauvegarder
      XL.CalculateBeforeSave = False
     
    ' ouverture du fichier modèle qui a été renommé 
    ' updatelinks = 0 pour aucune mise à jour des références 
    Set classeur = XL.Workbooks.Open(fichier, 0)
     
    ' ... on supprime les feuilles de données dans classeur .... 
    ....
     
    ' ouverture du classeur contenant 1 feuille de donée
    XL.Workbooks.OpenText FileName:=NomFichierSource ....
     
    Set p_classeur = XL.Workbooks(2)
     
    ' on copies les donnnées dans le classeur contenant les feuilles de calculs
    p_classeur.Sheets(1).Copy After:=classeur.Sheets(classeur.Sheets.Count)
    classeur.Sheets(classeur.Sheets.Count).Name = "D_" & nomRequete
    p_classeur.Close
    ....
    Si jamais vous avez une idée sur le moyens de bloquer l'évalutation des formule lors de la suppresion de feuilles ...

    Merci ...

  2. #2
    Membre à l'essai
    Profil pro
    Inscrit en
    février 2003
    Messages
    15
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2003
    Messages : 15
    Points : 16
    Points
    16
    Par défaut
    salut quand tu recopie pourquoi n'utilise tu pas la copie special avec comme choix que la valeur et non pas la formule : :

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    mai 2003
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2003
    Messages : 4
    Points : 4
    Points
    4
    Par défaut
    En fait,

    je recopie les feuilles de données (valeurs) dans le classeurs contenant les feuilles de calcul (formules)

    le problème vient du fait que je dois supprimer mes feuilles de valeurs me servant d'exemple pour contruire mes feuilles de calcul, et puis j'insère mes bonnes feuilles de donnnées.
    Et c'est lors de la supprésion de mes feuilles exemples que la formule n'est plus correcte car il ne trouve plus la référence ...
    et ce que je ch à faire c'est de l'empecher d'évaluer une formule lorsque l'on supprime une feuille ...

  4. #4
    Candidat au Club
    Profil pro
    Inscrit en
    mai 2003
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : mai 2003
    Messages : 4
    Points : 4
    Points
    4
    Par défaut
    Finalement ... en effet autant ne pas supprimer les feuilles mais seulement remplacer le contenu avec un collage des nouvelles données ...

    Merci pour m'avoir mis sur la voie ...

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

Discussions similaires

  1. Réponses: 16
    Dernier message: 11/12/2013, 12h20
  2. Réponses: 7
    Dernier message: 16/11/2011, 15h18
  3. Copier un fichier excel sous un autre nom en supprimant les formules
    Par Quentin15 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 23/06/2011, 13h19
  4. Réponses: 4
    Dernier message: 30/08/2010, 10h21
  5. Comment ne pas etre bloqué par les dépendances ?
    Par mucky dans le forum Mandriva / Mageia
    Réponses: 4
    Dernier message: 20/12/2009, 14h37

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