Couleur et cellule

Fermé
Gustav - 5 mars 2018 à 10:53
 Gustav - 5 mars 2018 à 12:12
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

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 5 mars 2018 à 11:01
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
10000000000000 €
0
Désolé ça ne marche pas
Merci
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
5 mars 2018 à 11:44
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
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 jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
5 mars 2018 à 12:02
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