Copier Couleur Cellule

[laurent]

Salut à tous

Petit problème :

Comment copier la couleur d'une cellule et sans copier son contenu
à l'aide d'une formule au d'une macro et de manière automatique

Merci à Tous

@ +

Laurent

 

[Vériland]

Bonsoir Laurent et toi le Forum

pour l'instant nul besoin de formules ni de macro...

Je te propose dans un premier temps d'utiliser le pinceau

...

Lorsqu'on clique sur le pinceau, cela permet de "copier" la mise en forme d'une cellule source et de reproduire le format de celle-ci sur une autre cellule destination : type de caractère (normal, gras, italique...), sa couleur (fond, caractère...), ses bordures (traits, motifs)...

par contre cela ne copie pas la valeur !...on utilisera pour cela le "copier" tout simplement...

L'usage du pinceau

évite d'avoir à définir la mise en forme des cellules...c'est bien pratique mais lorsqu'il y a plusieurs cellules à paramétrer on doit à chaque fois activer le pinceau...on pourrait aussi faire une selection multiple me direz-vous !...mais il y à une parade...

Il suffit de faire un "double clic" sur ce fameux pinceau pour le rendre actif tout le temps ; ensuite on clique, on clique et on reclique sur les autres cellules et le format est collé...

Pour désactiver cette option on clique à nouveau sur ce pinceau...sinon chaque clic est considéré comme une copie de mise en forme...c'est gênant si on oublie...

Personnellement je l'emploie beaucoup surtout sur un grand tableau...

Bon ben voilà... Bonne continuation

 

[Jon]

bonjour


une idée avec une macro

effectue un sélection multiple de cellules en commençant par la cellule qui contient la couleur à répercuter et en s'assurant que celle ci soit active, ensuite on pourrait utiliser un code du genr esuivant


for i=2 to selection.cells.count
selection.item(i).interior.colorindex=selection.item(i).interior.colorindex
next i
'il y a plusieurs manières de l'écrire mais l'idée est là

tu peux aussi imaginer deuux boutons sur une barre d'outils, un te permettant de "capturer" la couleur de fond d'une cellule, et l'autre contiendrait une macro pour colorier la selection


autre idée mais je ne sais pas s'il est faisable
copier une cellule
faire une macro qui anlayse le contenu du presse-papiers et essaye de récupérer l'objet range pour en extraire la couleur de fonds. Est-ce faisable ? peut-être

bye
STéphane
royer_stephane@yahoo.fr

 

[Jon]

une autre écriture pour la solution que j'ai proposée ci-dessus

Sub d()
For Each cl In Selection
If cl <> ActiveCell Then cl.Interior.ColorIndex = ActiveCell.Interior.ColorIndex
Next cl
End Sub