La même mise en forme
Bonjour à tous,
Dans la cellule d’un document excel, j’ai placé une formule qui peut donner comme résultat = (une autre cellule).
Or, j’aimerai savoir si la mise en forme de la cellule ds laquelle il y a cette formule peut devenir celle du résultat de la formule.
Par exemple :
Dans la cellule A1, une formule peut donner deux résultats :
B1, dans laquelle il y a un carré bleu
Ou
C1, dans laquelle il y a un carré rouge.
Or, la mise en forme de A1 est tout ce qu’il y a de plus standard, et le carré qui y apparaît est invarriablement noir.
Est-ce possible de faire appel, dans la formule (ou par un autre moyen), à la mise en forme de la cellule dont le résultat est égal (en l’occurrence, pour obtenir un carré bleu ou rouge) ?
Je ne sais pas si j’ai été assez clair ?...
Voilà, auriez-vous une idée sur la question ?...
Merci d’avance,
Le Glauque
Configuration :
Processeur : AMD Athlon 64 1800 (9x200) 3000+
Carte Mère : Asus A8N-SLI Premium 1.02
Chipset CM : nVidia nForce4 SLI, AMD Hammer
Mémoire Vive : 2048 Mo (PC3200 DDR SDRAM)
C Vidéo : nVidia GeForce 6600 GT (256 Mo)
O.S. : Windows XP Familial sp 2
Bonjour,
....un carré bleu ou rouge)...
Que veux tu dire par là ? Tu parles de la bordure de la cellule, d'un objet ou d'une lettre mise en forme qui te donne un carré ?
Merci de tes précisions
Amicalement
Dan
Alors, la formule peut donner deux "résultat", qui sont en fait, deux cellules.
Il y a ds ces cellules, un carré (un caractère spécial qui est un carré).
Et il a une couleur différente ds chacune des deux cellules de réponse.
Suis-je plus clair ?...
Je précise un peu ma recherche.
En fait, est-ce possible de lui demander d'adopter le "format" de la cellule résultat ?
Existe-t-il une Macro qui reprend cette fonction ?
Un peu comme lorsqu'on fait un copier/coller :
Il adopte par défaut la mise en forme « source », mais tu as la possibilité d'adopter la mise en forme « destination ».
Pour l’instant, Excel adopte tjrs la mise en forme « destination » (la mise en forme de la cellule où s‘affiche le résultat).
En sachant qu’ici, le résultat est une cellule (qu’on va chercher avec une formule INDEX ;EQUIV), est-il possible de lui demander d’afficher le résultat dans la même mise en forme que la cellule où il va piocher le résultat ?
hello
la cellule d'origine possède-t-elle une mise en forme conditionnelle ?
si oui, tente la même MFC sur la cellule de destination
si non, je pense qu'il va falloir du VBA. Et là, je en peux pas t'aider. D'autres vont le faire.
joins ton fichier comme suggéré par V_Elbie
Bonjour,
Comme V_Elbie et jmd :
Je t'aurais bien proposé une solution de secours si tu avais eu un texte différent en B1 et en C1. Par exemple "oui" et "non".
Mais là vu que le texte est le même (caractère "carré"), il nous faudrait ta formule, et la retranscrire dans la macro.
Bonjour
Si c'est juste pour avoir un carré rouge ou noir reproduit, je te propose sans macro la solution suivante.
https://www.excel-pratique.com/~files/doc/Noir_Rouge.xls
Cordialement
Voilà un fichier test vite fait.
https://www.excel-pratique.com/~files/doc/_test_mise_en_forme.xls
L'idée, ce serait que la case de résultat affiche la même mise en forme que la cellule où elle vient piocher ce résultat.
Bonjour,
Ci-après une macro qui remplace ta formule, et copie la mise en forme.
Adaptée à ton fichier exemple, peut-être à adapter à ton fichier final, notamment si INDEX(Baston;1;1) n'est pas en G5
Code à placer dans Feuil1 (test mise en forme)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim equiv1 As Byte
Dim equiv2 As Byte
Application.ScreenUpdating = False
With Application.WorksheetFunction
equiv1 = .Match(Range("B4"), Range("Def"), 0)
equiv2 = .Match(Range("B3"), Range("Att"), 0)
End With
Cells(4 + equiv1, 6 + equiv2).Copy Range("B5")
With Range("B5").Borders
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Range("B5").Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
End With
Columns("B:B").EntireColumn.AutoFit
End Sub