Liste et Mise en Forme

[Seb]

Bonjours à tous;

Est-t'il possible de garder une mise en forme quand on fait une mise en forme sur des mots?

Je m'explique: Sur une feuille, j'ai creé une liste. Dans cette liste les mots on une couleurs, sont en gras ou pas, italique ou pas ect....

Sur une autre feuille, je rappelle les mots de ma liste avec une liste déroulante. Mais les mots perdent leurs mise en forme.

Comment faire pour la garder???

merci encore au forum

seb

 

[MJ13]

Re : Liste et Mise en Forme

Bonjour Seb

Il suffirait de faire une macro sur l'évènement change qui recopie la mise en forme (avec find par exemple).

 

[Seb]

Re : Liste et Mise en Forme

Bonjours MJ13,

Merci d'y avoir jetté un oeil. Je comprend pas trop comment tu veux faire, je suis débutant dans les macros et la je sais pas trop.....

Tu peux mon montrer un debut de macro ?

 

[JCGL]

Re : Liste et Mise en Forme

Bonjour à tous,

Un petit essai pour la couleur de la police :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([Plage], Target) Is Nothing Then
On Error Resume Next
Target.Font.ColorIndex = [Format].Find(Target, LookAt:=xlWhole).Font.ColorIndex
End If
End Sub

Avec deux plages nommées PLage et Format

A+ à tous

 

[Guest]

Re : Liste et Mise en Forme

Bonsoir le fil,
Hi JC😀

Une adaptation de la macro de l' ami JC (que je salue cordialement au passage) qui copie la totalité du format (pas JC, la macro!!!!).

Bonne soirée
A+ à tous😉

 

[JCGL]

Re : Liste et Mise en Forme

Bonjour à tous,
Salut Hasco 🙂🙂,

Ravi de te croiser et de te lire

A++ ami Ges
A+ à tous

 

[MJ13]

Re : Liste et Mise en Forme

Bonjour à tous

Une autre façon de faire.
Mais les solutions de JC et Hasco que je salue sont très bien.

 

[JCGL]

Re : Liste et Mise en Forme

Bonjour à tous,
Salut Michel 🙂,

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([Plage], Target) Is Nothing Then
On Error Resume Next
Target.Font.ColorIndex = [Format].Find(Target, LookAt:=xlWhole).Font.ColorIndex
Target.Font.Underline = [Format].Find(Target, LookAt:=xlWhole).Font.Underline
Target.Font.FontStyle = [Format].Find(Target, LookAt:=xlWhole).Font.FontStyle
End If
End Sub

Pour compléter mon code

A+ à tous

 

[MJ13]

Re : Liste et Mise en Forme

Bonjour SEB, JC, Hasco...

Voici une seconde version avec la feuille contenant les listes masquée.

Par contre quelqu'un connaîtrait-il la syntaxe pour éviter d'avoir à mettre le nom de la feuille (ici "Feuille2") contenant la liste comme dans cette syntaxe:

Sheets("Feuil2").Range("Verb").Find(What:=nat).Copy

Il faudrait que cela fonctionne quelque soit le nom de la feuille où se trouve la liste.

 

[BOISGONTIER]

Re : Liste et Mise en Forme

Bonjour,

Données/Validation

http://boisgontierjacques.free.fr/fichiers/MFC/MFCPlus3Couleurs2.xls

JB