Couleur et cellule

Gustav -  
 Gustav -
Bonjour et merci pour tout!
Voilà ma question:
En A1 si la police et la cellule ont la même couleur (donc la police disparait dans la cellule), je voudrais avoir en B1 la valeur 0
En A1 si la police et la cellule ont une couleur différente, je voudrais avoir en B1 la valeur 1
Un grand merci d'avance à celui qui trouvera la réponse
Gustav
A voir également:

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

C'est une question à combien?


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Font.Color = Target.Interior.Color Then
Range("B1").Value = "0"
Else
Range("B1").Value = "1"
 End If
End Sub


parce que là avec une recherche simple c'est élémentaire!

je te laisse chercher pour ne mettre cela que sur la cellule A1


0
Gustav
 
10000000000000 €
0
Gustav
 
Désolé ça ne marche pas
Merci
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Désolé ça ne marche pas

T'es-tu posé la question: pourquoi cela ne marche pas?

Le code est-il au bon endroit?

Quel message d'erreur reçois-tu?

Tant de questions sans réponse de ta part!

Pas de solution non plus!
0
Gustav
 
Oui je me suis posé plein de questions à savoir, le code me semble au bon endroit, pas de message d'erreurs et je pense qu'il doit y avoir en B1 une formule mais laquelle?
Merci à toi
Gustav
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Tu ouvres un nouveau classeur tu fais Alt F11 sur la feuille concernée et tu mets ce code et tu verras que cela marche!

Pour le reste je ne peux rien pour toi, vu le peu d'informations données!
0