Discussion :

[Fanfan2A]

Bonjour.
Je voudrai que la couleur de la police d'une cellule soit la même que celle du fond, et cela même lorsque l'on change la couleur du fond de ladite cellule! (automatiquement quoi!)
Quelles sont les possibilités? (VBA)
Merci.
Si besoin de précisions, n'hésitez pas!
Cdlt

[ucfoutu]

Bonjour,

Je n'en vois personnellement pas pendant que l'utilisateur est dans la cellule.
Le seule possibilité que je vois dans ce sens serait une intevention au moment de quitter la cellule concernée (pour lui donner une couleur de texte = à la couleur de fond). Après coup, donc, et pas "au moment du coup".

PS : sauf, bien sûr (mais à quel prix/ressources) à mettre en place un timer tournant sans cesse.... ===>> à éviter !

[Fanfan2A]

Merci pour ta réponse, mais il faut que je précise le contexte:
Soit un groupe de 4 cellules que je nommerai A, B, C et D.
Le choix d'une valeur (parmi 12) dans A conditionne une autre valeur (parmi 5) dans B; cette dernière conditionne à son tour la couleur du groupe (via une MFC).
Je souhaiterai donc que la police de B puisse prendre la même couleur que son fond.
Il y a environ 200 groupes.
Une des solutions que j'entrevois consisterai à remplacer la MFC par un traitement évènementiel qui me permettrai par la même occasion d'avoir plus de couleurs.
Mais je maitrise mal les procédures évènementielles...
Cdlt

[ucfoutu]

Je ne sais pas où tu vas ...
Voilà, à main levée et non testé (pas Excel à portée de main) , un exemple de ton "invisibilité"sur une cellule (ici ma cellule 1,1, lorsqu'on la quitte.
A toi de voir ensuite comment adapter, améliorer ce bâclage, mettre en procédure paramétrée au besoin , etc....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
private sub worksheet_selectionchange(byval target as range)
 static anc as string
 If anc = "" Then anc = "1,1"
 cells(anc).font.color = cells(anc).interior.color
 If anc = "1,1" Then MsgBox "oui"
 anc = target.cells.column & "," & target.cells.row
End Sub

[Fanfan2A]

Merci pour ta proc; cela m'a beaucoup aidé mais il me manque le moyen de déterminer si Target fait partie d'une zone (x lignes et y colonnes à partir d'une adresse fixe).
Cdlt

[Didier Gonard]

Bonjour,

un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_selectionchange(ByVal Target As Range)  
If Not Intersect(Target.Columns, Columns("H:M")) Is Nothing Then
'Test : si la négation de l'intersection de la colonne de la cellulle selectionnée avec la colonne voulue est rien : (donc négation de : (on n'a pas cliqué dans une case qui nous intéresse..)= on a cliqué où on veut réagir)
End If

cordialement,

Didier