Reporter la mise en forme d'un cellule sur d'autres feuilles. [Résolu]

[Tor_XIII]

Bonjour,
J'ai créé une feuille "compétences" dans laquelle j'ai des cases avec du texte en gras et souligné.
Je reporte sur une feuille1 l'ensemble des cases selon la formule: "=Compétences!A4" par exemple. Le texte apparaît mais perd sa mise en forme.
Comment faire pour la conserver? C'est pénible, surtout que je dois répéter l'opération sur une vingtaine de feuilles.
Merci pour votre aide.

Si vous aviez aussi la solution pour qu'elle ait des bordures ou non

[jfontaine]

Bonjour,

Il y a 3 manières de mettre en place une mise en forme sur une cellule :

1. Manuellement
2. En utilisant une Mise en Forme Conditionnelle (MFC)
3. En utilisant VBA

Quelle méthode as tu utilisé sur la feuille Compétence?

[Daniel.C]

Bonjour,

Mets ce code dans le module de la feuille, mais cela ne fonctionnera que pour des formules se référant à UNE cellule d'une AUTRE feuille :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, Feuille As String, Cellule As String
    On Error Resume Next
    For Each c In Target
        If c.HasFormula Then
            Feuille = Split(Right(c.Formula, Len(c.Formula) - 1), "!")(0)
            Cellule = Split(Right(c.Formula, Len(c.Formula) - 1), "!")(1)
 
            If Range(Cellule).Count = 1 Then
                Application.EnableEvents = False
                Sheets(Feuille).Range(Cellule).Copy
                c.PasteSpecial xlPasteFormats
                Application.EnableEvents = True
            End If
        End If
    Next
    On Error GoTo 0
End Sub

[Tor_XIII]

Envoyé par Daniel.C

Bonjour,

Mets ce code dans le module de la feuille, mais cela ne fonctionnera que pour des formules se référant à UNE cellule d'une AUTRE feuille :

C'est exactement ce qu'il me faut.
Merci beaucoup pour le code, cela dépasse largement mes compétences
je vais tester ça.

[Tor_XIII]

Quelle méthode as tu utilisé sur la feuille Compétence?

J'ai mis le texte en gras manuellement.

[Tor_XIII]

Bon maintenant je vais faire le boulet:
Pour la macro j'ai fait:
Outils/macro/visualbasiceditor.
Ensuite module1 j'ai copier/coller le code...
J'ai essayé de bidouiller enregistrer/réouvrir la feuille mais ça ne change rien.
Je suppose qu'il ya des manips que je n'ai pas faite. C'est la première fois que j'utilise (essaie d'utiliser) des macros.
Merci pour votre patience.
En attendant je chercher

[Daniel.C]

Ensuite module1 j'ai copier/coller le code...

Quand tu es sur la fenêtre Visual Basic, repère, dans la partie fauche, le nom de ton classeur, et en dessous, la feuille où tu veux que les formules entrées aient le format de la cellule cible (celle où tu entres la formule: "=Compétences!A4"). Double clique sur son nom. Colle alors la macro dans la partie droite. Tu peux aussi faire un clic droit sur l'onglet et un clic gauche sur "visualiser le code") tu arrives directement au bon endroit pour coller la macro.

PS. Le format ne s'applique que lorsqu'on entre où qu'on édite une formule. Les anciennes formules ne sont pas concernées par la copie de format.

[Tor_XIII]

SUPER ça marche!!!!!!

Merci d'avoir précisé:

PS. Le format ne s'applique que lorsqu'on entre où qu'on édite une formule. Les anciennes formules ne sont pas concernées par la copie de format.

C'est ça qui me posait problème!!!!
Merci