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 :

Colorier une cellule par copier-coller


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2014
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Mexique

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juillet 2014
    Messages : 58
    Par défaut Colorier une cellule par copier-coller
    Bonjour tout le monde,

    Je souhaiterais copier-coller la mise en forme d'une cellule d'une page vers une autre page (attention : uniquement la mise en page, pas la valeur de la cellule).
    J'ai essayé avec une cellule contenant une couleur particulière, la couleur qui m'intéresse pour le copier coller.

    Le problème est que lorsque j'applique le code suivant, ce n'est pas la bonne couleur qui apparait. Cela est en concordance avec le fait que l'index de couleur renvoyé pour ces 2 couleurs est malheureusement le même (en l'occurence 50).

    Voici le code en question :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test()
     
    With ThisWorkbook.Worksheets("Feuil2")
    .Cells(1, 1).Interior.ColorIndex = Sheets("Feuil1").Cells(1, 1).Interior.ColorIndex
    '.Cells(1, 1).Font.ColorIndex = Sheets("Feuil1").Cells(1, 1).Font.ColorIndex               'cette ligne est-elle utile ?
    End With
     
    End Sub
    Voir le dossier excel en piece-jointe dans lequel se trouve la cellule a copier

    J'espère que vous pourrez m'aider car je ne comprends pas ce que fait Excel ici...

    Classeur1.xlsx

  2. #2
    Expert éminent 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
    Par défaut
    Utilise Color à la place de ColorIndex, c'est plus large

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2014
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Mexique

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juillet 2014
    Messages : 58
    Par défaut
    Bonjour Mercatog,

    Excuse moi mais je ne vois pas bien ce que cela change car le problème sera le même avec Color ou ColorIndex non ?

  4. #4
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 134
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 134
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Excuse moi mais je ne vois pas bien ce que cela change car le problème sera le même avec Color ou ColorIndex non ?
    Tout simplement parce-que la propriété ColorIndex correspond à une palette de couleur alors que Color correspond au code RGB et que le résultat d'une copie de couleur avec cette propriété (ColorIndex) peut se révélé incorrect.
    Modifie le code et tu verras.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     .Cells(1, 1).Interior.Color = Sheets("Feuil1").Cells(1, 1).Interior.Color
    A lire sur le sujet Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  5. #5
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2014
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Mexique

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juillet 2014
    Messages : 58
    Par défaut
    Effectivement sa marche beaucoup mieux ! Pas bete de passer par RGB plutot que par l'index, très bonne idée !

    Merci

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

Discussions similaires

  1. Copier une base de sauvegarde par copier-coller
    Par piflechien73 dans le forum Réplications
    Réponses: 3
    Dernier message: 18/09/2011, 19h25
  2. [WD14] Comment colorier une cellule de table par programation
    Par cooltechfr dans le forum WinDev
    Réponses: 6
    Dernier message: 06/04/2010, 11h57
  3. Copier/coller d'une cellule par rapport à une autre
    Par AzelRoth dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 26/02/2009, 15h54
  4. Insérer une image dans un cellule par copier coller
    Par jalseth dans le forum VBA Word
    Réponses: 2
    Dernier message: 13/08/2008, 18h19
  5. copier une ligne d'une cellule et la coller
    Par sam01 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 11/07/2006, 14h34

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