Autres problème sous excel 2007. changer la couleur du texte en couleur de fond de cellule

S

soan

XLDnaute Barbatruc

Inactif

• 19 Septembre 2020

• #2

Bonjour goeland31,

Tu as écrit : « Par souci de lisibilité, je préférerais que le fond de la cellule soit
en rouge, jaune, vert (de la même couleur que le texte de départ donc...) »

Euh, je suis pas vraiment sûr que ce soit l'idéal ! d'ailleurs, mon caméléon est
d'accord avec moi : texte rouge / fond rouge ; ou texte jaune / fond jaune ;
ou texte vert / fond vert : tu risques de découvrir le principe de l'invisibilité !

Maintenant, si tu veux jouer à l'Homme invisible,
c'est une bonne piste à explorer !

soan

 

Vote positif 0 Vote négatif

G

goeland31

XLDnaute Nouveau

• 19 Septembre 2020

• #3

en fait je veux remplacer les croix qui ne sont pas du tout lisibles par le fond jaune vert ou rouge de la cellule

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Septembre 2020

• #4

Peux-tu joindre un fichier exemple, stp ? (sans données confidentielles)

soan

 

Vote positif 0 Vote négatif

G

goeland31

XLDnaute Nouveau

• 19 Septembre 2020

• #5

voila.... illisible hein?

 

Pièces jointes

• fichier croix.xlsx

  10.2 KB · Affichages: 26

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Septembre 2020

• #6

suggestion : mettre la couleur de fond comme tu as dit, et mettre pour le texte
une couleur contrastée ; exemple : texte blanc sur fond rouge.

je viens de voir ton post #5 ; je vais regarder ton fichier.

soan

 

Vote positif 0 Vote négatif

G

goeland31

XLDnaute Nouveau

• 19 Septembre 2020

• #7

en fait c'est un collègue qui m'a envoyé ces croix. Tous les autres m'ont envoyé avec les fonds de cellule en rouge, jaune ou vert.
C'est pour avoir qq chose de similaire pour tout le monde.

Mais pourquoi ai je dit que je voulais synthétiser tout cela aussi

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Septembre 2020

• #8

re
bonjour
ben c'est simple
exemple

VB:

Sub colortextToBackground()
    Set plage = Range("feuil1!B1:U34")
    For Each cel In plage.Cells
        If cel.Font.Color <> vbBlack And Not IsNull(cel.Font.Color) Then
            cel.Interior.Color = cel.Font.Color
            cel.Font.Color = vbBlack 'si tu ne veux pas que tes "X" soient  invisible'
        End If
    Next
End Sub

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Septembre 2020

• #9

@goeland31

Dans ton tableau, il y a plusieurs cellules vides ; alors voici une question très importante :

Sur la dernière ligne, qui est ici la ligne 34, est-ce qu'il peut y avoir aussi une cellule vide ?

soan

 

Vote positif 0 Vote négatif

G

goeland31

XLDnaute Nouveau

• 19 Septembre 2020

• #10

oui, il peut y avoir aussi des cellules vides mais elles sont toutes sur une même ligne.


Mais je peux faire en plusieurs fois, c'est à dire en ne sélectionnant que les cellules dans lesquelles il y a des croix.

 

Vote positif 0 Vote négatif

G

goeland31

XLDnaute Nouveau

• 19 Septembre 2020

• #11

Patrick merci pour la réponse
je regarde comment je peux faire cela vu que je n'ai jamais utilisé de macro

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 19 Septembre 2020

• #12

colle le code que j'ai mis dans un module et lance la sub c'est tout
ppour les eventuelles cells vides qui auraient été formaté pour la couleur du text on les met blanches d'office

VB:

Sub colortextToBackground()

    Set plage = Range("feuil1!B1:U34")
    For Each cel In plage.Cells
        If cel.Font.Color <> vbBlack And Not IsNull(cel.Font.Color) and cel.value<>""Then
            cel.Interior.Color = cel.Font.Color
            cel.Font.Color = vbBlack 'si tu ne veux pas que tes "X" soient  invisible'
        else
            cel.Interior.Color = xlnode
            cel.Font.Color = vbBlack 'si tu ne veux pas que tes "X" soient  invisible'
        End If
    Next

End Sub

 

Vote positif 0 Vote négatif

G

goeland31

XLDnaute Nouveau

• 19 Septembre 2020

• #13

ca marche nickel
merci Patrick

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 19 Septembre 2020

• #14

@goeland31

Je te propose une solution générale, car :

a) la dernière colonne utilisée est détectée automatiquement selon la ligne 4
➯ ça marchera même pour un tableau qui a plus de colonnes.

b) pour chaque colonne, la dernière ligne utilisée est détectée ➯ ça marchera
même si la dernière cellule d'une colonne est vide ; et même s'il y a plusieurs
cellules vides en fin de colonne.

fais Ctrl e ➯ travail effectué

Tu verras que ça met pour la couleur du fond la même que celle du texte,
puis ça met le texte en blanc ; les cellules vides sont ignorées ; en fait, ça
fait le job pour toute cellule non vide, donc même s'il y a autre chose
que "X".

Voici le code VBA :

VB:

Option Explicit

Sub ChgColor()
  Dim nlm&, dcol%, col%, dlig&, lig&, cx&
  nlm = Rows.Count: Application.ScreenUpdating = 0
  dcol = Cells(4, Columns.Count).End(1).Column
  For col = 2 To dcol
    dlig = Cells(nlm, col).End(3).Row
    For lig = 4 To dlig
      With Cells(lig, col)
        If .Value <> "" Then
          cx = .Font.Color: .Interior.Color = cx: .Font.ColorIndex = 2
        End If
      End With
    Next lig
  Next col
End Sub

À te lire pour avoir ton avis.

soan

 

Pièces jointes

• fichier croix.xlsm

  16 KB · Affichages: 7

Vote positif 0 Vote négatif

Solution

G

goeland31

XLDnaute Nouveau

• 19 Septembre 2020

• #15

merci bcp soan pour ta solution
elle fonctionne super bien aussi

 

Vote positif 0 Vote négatif