Couleur et cellule

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

Afficher la suite

1 réponse

Réponse 1 / 1
cs_Le Pivert Contributeur
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
1. Gustav
  
  10000000000000 €
  
  0
2. Gustav
  
  Désolé ça ne marche pas
  Merci
  
  0
3. cs_Le Pivert Contributeur
  
  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
4. 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
5. cs_Le Pivert Contributeur
  
  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

Couleur et cellule

1 réponse

Discussions similaires

Newsletters