recopier contenu et format. Compléter formule.

2 réponses

Help Me

16/10/2004 à 22:29

Bonjour
Quelqu'un peut m'indiquer comment améliorer cette ligne (qui me copie la
valeur d'une ligne) de sorte qu'elle recopie aussi le format (code couleur
de la police et code couleur du fond) de la cellule en question ?

Merci à vous tous

Michel

Worksheets("synthèse").Cells(l + z, 2).Value = Worksheets(i).Cells(l,
2).Value

2 réponses

michdenis

17/10/2004 à 00:14

Bonjour Help Me,

Worksheets(i).Cells(l, 2).copy Worksheets("synthèse").Cells(l + z, 2)

Recopie aussi les bordures, police de caractère, couleur de fond, de police, grosseur de la police ....

Salutations!

"Help Me" a écrit dans le message de news:4171849b$0$18095$
Bonjour
Quelqu'un peut m'indiquer comment améliorer cette ligne (qui me copie la
valeur d'une ligne) de sorte qu'elle recopie aussi le format (code couleur
de la police et code couleur du fond) de la cellule en question ?

Merci à vous tous

Michel

Worksheets("synthèse").Cells(l + z, 2).Value = Worksheets(i).Cells(l,
2).Value

Bernard

17/10/2004 à 00:33

Bonsoir,
je pense que ceci est une solution

Worksheets(i).Cells(l, 2).Copy
Worksheets("synthèse").Cells(l + z, 2).Select
Worksheets("synthèse").Paste

Bernard

"Help Me" wrote:

Bonjour
Quelqu'un peut m'indiquer comment améliorer cette ligne (qui me copie la
valeur d'une ligne) de sorte qu'elle recopie aussi le format (code couleur
de la police et code couleur du fond) de la cellule en question ?

Merci à vous tous

Michel

Worksheets("synthèse").Cells(l + z, 2).Value = Worksheets(i).Cells(l,
2).Value

recopier contenu et format. Compléter formule.

2 réponses

Veuillez sélectionner un problème