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 :

utilisation de "copy destination" [XL-2007]


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
    Développeur décisionnel
    Inscrit en
    Juin 2013
    Messages
    151
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur décisionnel
    Secteur : Santé

    Informations forums :
    Inscription : Juin 2013
    Messages : 151
    Par défaut utilisation de "copy destination"
    Bonjour,

    La copie d'une série de cellules dans une autre feuille modifie le format conditionnelle de la feuille cible.
    J'ai une feuille avec les dates de janvier, une autre avec celles de février ....
    Les dates vont de A6 à A31 maximum.
    La "Feuilleactive" contient deux formules de mises en forme conditionnelle pour les cellules de A6 à A...
    Comme je copie les cellules en B12 dans ma feuille d'impression "PrintStef", j'ai mis les mêmes formules dans le format conditionnelle mais pour les cellules de B12 à B.... Lorsque j'exécute le code ci-après, les formules sont modifiées dans ma feuille "PrintStef"!!!.
    Dans mes formules, le $A6 devient $A12 au lieu de $B12 et le champ d'application devient $B$12:$B$42 au lieu de $B$12:$H$42.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets(FeuilleActive).Range("A6:H" & NbreLgTotalStef).Copy Destination:=Worksheets("PrintStef").Range("$B$12")
    J'ai utilisé exactement les mêmes codes dans une autre fonction avec à la place de "PrintStef", j'ai "PrintHrSup" pour une autre feuille d'impression et la, tout fonctionne bien. j'ai essayé avec des $ devant les lignes et colonnes, sans, seulement les colonnes, puis seulement les lignes, rien n'y fait, mon format cible est modifié.

    Auriez-vous une solution et aussi une explication pour que ce format conditionnelle s'applique après copie sur la zone de B12 à H...?

    Merci d'avance pour votre aide

  2. #2
    Membre éprouvé Avatar de defluc
    Homme Profil pro
    Architecte
    Inscrit en
    Mai 2002
    Messages
    1 383
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 75
    Localisation : Belgique

    Informations professionnelles :
    Activité : Architecte

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 383
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
      ActiveSheet.Range("A6:H" & NbreLgTotalStef).Copy
      Worksheets("PrintStef").Range("$B$12").PasteSpecial Paste:=xlPasteValues

  3. #3
    Membre confirmé
    Homme Profil pro
    Développeur décisionnel
    Inscrit en
    Juin 2013
    Messages
    151
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur décisionnel
    Secteur : Santé

    Informations forums :
    Inscription : Juin 2013
    Messages : 151
    Par défaut
    Bonjour,

    Désolé de répondre avec un peu de retard mais des priorités du boulot m'en ont empêché...

    Le copy ...paste fonctionne mais comme j'ai des formules, j'ai essayé avec le xlPasteFormula et toute la panoplie de possibilité, ca fonctionnait mais mes le format conditionnel apès le copy était aussi modifié, j'ai garde le "copy destination" et j'ai trouvé une astuce qui teste le contenu des cellules en "B" et qui applique la coloration du fond de cellule en fonction de ce test.

    Merci pour ton aide et bon week end

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

Discussions similaires

  1. Quote et double quote
    Par aktos dans le forum Langage
    Réponses: 8
    Dernier message: 05/01/2007, 19h55

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