egal format

[champomy11]

Bonjour a tous
je copie des données d'un classeur à l'autre avec la fonction egal . Vu que je ne copie que quelque cases cela me convient tres bien. Mais j'aimerai que cette fonction me copie egalement le format ( couleur ) de la cellule de départ . Comment faire ?
bonne journée

 

[Pierrot93]

Re : egal format

Bonjour Champomy

regarde le code ci-dessous, copie la cellule A1 d'un classeur à un autre, nom des classeurs et des feuilles à adapter :

Workbooks("classeursource.xls").Sheets("FeuilleSource").Range("A1").Copy _
    Workbooks("classeurDestination.xls").Sheets("FeuilleDestination").Range("A1")

bon après midi
@+

 

[champomy11]

Re : egal format

en fait je rectifie un peu la question ce n'est pas vraiment le format mais surtout la couleur que je veux copier .

 

[Pierrot93]

Re : egal format

Re,

pour copier la couleur, essaye peut être ainsi :

    Workbooks("classeurDestination.xls").Sheets("FeuilleDestination").Range("A1").Interior.ColorIndex = _
        Workbooks("classeursource.xls").Sheets("FeuilleSource").Range("A1").Interior.ColorIndex

@+

 

[champomy11]

Re : egal format

mes connaissance sont limitées ,ça beug un peu ! virtual basic s'ouvre et met A1 en bleu sur la deuxieme ligne . Il n'existe pas une fonction simple à rajouter égal ?
bonne journée