Cmt recopier la couleur de la cell situé au dessus de l'activcel

alexandre0999 Messages postés 8 Statut Membre -  
Gyrus Messages postés 3360 Statut Membre -
Bonjour,

Je souhaite recopier la couleur de la plage de cellule qui est située directement au dessus de ma plage de cellule active.

Je n'y arrives malheureusement pas.

J'aimerai réaliser cette manip sous VBA.

Merci de votre aide !

Alexandre

7 réponses

Gyrus Messages postés 3360 Statut Membre 526
 
Bonjour,

ActiveCell.Interior.Color = ActiveCell.Offset(-1).Interior.Color

A+
0
alexandre0999
 
Merci beaucoup de votre réponse !

cela marche bien pour une cellule mais ou une plage de cellule je n'y arrive pas. Savez vous vous comment faire ?

Cdt,

Alexandre
0
Gyrus Messages postés 3360 Statut Membre 526
 
Désolé, je ne comprends pas ce que tu cherches à faire.
Le plus simple est de joindre un fichier avec une présentation de l'état initial et une autre présentation avec le résultat attendu.

Pour joindre un fichier : https://www.cjoint.com/

A+
0
alexandre0999
 
J'ai ajouté un fichier pour plus de clarté !

http://cjoint.com/?3Gko5IlxMB0

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Gyrus Messages postés 3360 Statut Membre 526
 
En utilisant l'évènement CHANGE de la feuille, tu peux faire en sorte que la cellule modifiée prenne la couleur de remplissage de la cellule du dessus.

https://www.cjoint.com/?DGkpVn3VQ6L

A+
0
alexandre0999
 
Merci c'est exactement ce qu'il me faut !

Par contre que je ne vois ce qu'il faut faire pour utiliser le "Change" dans la feuille de calcul et du coup je n'arrive pas à le reproduire.

Pouvez vous m'éclairer sur ce point svp ?

Alexandre
0
Gyrus Messages postés 3360 Statut Membre 526
 
Worksheet_Change est une procédure évènementielle qui permet de détecter une modification des cellules de la feuille de calcul.
Tu peux visualiser cette procédure dans l'éditeur avec le raccourci ALT + F11.
Elle se trouve sous le module Microsoft Excel Objets > Feuil1
(accès à l'explorateur de projet avec le raccourci CTRL+ R).

Si tu n'est pas un habitué de VBA, tu vas sûrement avoir des difficultés pour traduire le code et encore plus pour l'adapter .
Il aurait été préférable que tu sois plus précis dans ta demande et que tu exposes très clairement ton projet, avec fichier exemple et explications à l'appui.

A+
0