egal format

champomy11 · 20 Avril 2009

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 · 20 Avril 2009

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 :

Code:

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

bon après midi
@+

champomy11 · 20 Avril 2009

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 · 20 Avril 2009

Re : egal format

Re,

pour copier la couleur, essaye peut être ainsi :

Code:

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

@+

champomy11 · 21 Avril 2009

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

egal format

champomy11

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

champomy11

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

champomy11

XLDnaute Nouveau

Discussions similaires