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 :

reproduire "Format painter" avec VBA


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Femme Profil pro
    Inscrit en
    Septembre 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme

    Informations forums :
    Inscription : Septembre 2011
    Messages : 2
    Par défaut reproduire "Format painter" avec VBA
    Bonjour,

    J'aimerai savoir s'il est possible de reproduire le même fonctionnement que "Format Painter" sur VBA.
    En fait, je souhaiterais sélectionner toute la feuille 1 et coller le même format (couleur, police) sur une feuille 2 mais en gardant la même longueur de colonne et largeur de ligne, ainsi que garder les colonnes et lignes cachées si possible.



    Merci d'avance si vous avez une réponse.

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Est ce cela que tu cherches
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    'Copie et colle le format
    Cells.Select
    Selection.Copy
    Sheets("Feuil2").Select
    Cells.Select
    ActiveSheet.Paste
     
    'Reproduit les lignes et colonnes cachées
    Sheets("Feuil2").Cells.SpecialCells(xlCellTypeVisible) = Cells.SpecialCells(xlCellTypeVisible)

  3. #3
    Nouveau candidat au Club
    Femme Profil pro
    Inscrit en
    Septembre 2011
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme

    Informations forums :
    Inscription : Septembre 2011
    Messages : 2
    Par défaut
    Merci pour votre réponse. Mais ce code ne fonctionne pas dans mon cas puisqu'en fait j'ai des données dans la "feuille 2" et j'essaye de récupérer la mise en page de la "feuille 1" pour la reproduire sur la "feuille 2".
    Quand je dis mise en page je parle des mêmes couleurs, des mêmes longueurs de colonnes et de lignes ainsi que de garder les colonnes cachés et lignes cachés.
    En tout cas merci de votre aide.

  4. #4
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Voila avec uniquement la copie du format
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    'Copie et colle le format
    Cells.Select
    Selection.Copy
    Sheets("Feuil2").Select
    Cells.Select
    ActiveSheet.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
     
    'Reproduit les lignes et colonnes cachées
    Sheets("Feuil2").Cells.SpecialCells(xlCellTypeVisible) = Cells.SpecialCells(xlCellTypeVisible)

Discussions similaires

  1. Requete avec quote et double quote
    Par swissmade dans le forum VBA Access
    Réponses: 2
    Dernier message: 20/08/2007, 15h01

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