Valeur selon la couleur de police

Salut
J'ai 2 colonnes, A et B, la colonel A rempli de nom de personnes (sont mis en forme de tel façon a avoir les doublon en couleure rouge),

Comment peut on avoir dans la colonne B pour chaque nom coloré en rouge la valeur 0,et un 1 si c'est la couleur est noire.
Mes remerciements anticipés.

Bonjour
je sais pas si j'ai compris la demande
si tes données commence en ligne 1 tester avec (à copier vers le bas)

Citation:

---

SI(NB.SI($A$1:$A$100;A1)>1;1;0)

---

Je vous remercie, mais c pas ça que je cherche.
Je veux que pour chaque nom coloré en rouge, mettre pour chaque cellule en face un 0 et une valeur 1 pour chaque nom coloré en noir.

coloré c'est à dire doublon non?? et donc si le nom se répète plus qu'une fois dans la zone de recherche la formule met "1" et si c'est pas un doublon 0
si c'est l'inverse tu peux juste modifier la formule

C pas ça du tout,
Chaque boublon coloré en rouge dans la colonne A doit correspondre dans la colonne B la valeure 0. Et tous les noms en couleuvre noir doit correspondre une valeure 1.

voir ça si non un capture écran ou un fichier test sans données confid

Colons B	Colonne A
0	nom1
0	nom1
1	nom2

Bonjour

C'est une question qui est souvent posée, mais malheureusement, il n'y a pas une solution fiable à 100%. Chacun choisit ses inconvénients avec les diverses solutions possibles.

S'il s'agit de ne faire cela qu'une seule fois, vous pouvez filtrer (pour la colonne A) sur la couleur de remplissage et prendre le rouge. Ceci étant, en écrivant ces mots, je ne me rappelle plus si c'était possible en version 2007. Puis vous pouvez écrire 0 dans la colonne B. Puis recommencer avec le noir et inscrire 1 dans la colonne d'à côté.

En espérant que cela aide.

Bonne fin d'après-midi

Pierre Dumas

J'ai trouvé la solution, on cherchant un peut dan le VVBA Excel,
Il suffit de mettre une boucle comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim numero as integer Numero =1 Do while numero <=10 ' si couleur rouge mettre un zero If range("A"& numero).font.colorindex =3 Range("C"& numero).value=0 Else ' sinon mettre un 1 Range("C"& numero).value=1 End if Numero = numero +1 Loop

---

Bonjour à tous les lecteurs : Pour Information : Après avoir testé la macro de baba je me suis aperçu que celle-ci pose problème dans Excel. En effet si dans une nouvelle feuille Excel je colorie par une cellule en Rouge ou par exemple je met un texte d'une couleur de police par exemple en vert et que je ferme le fichier après avoir enregistré celui-ci, puis je l'ouvre de nouveau la dernière couleur utilisée ne reste pas mémorisée. Après avoir désactivé la macro de baba tout rentre dans l'ordre.

Salut

Tel qu'expliqué dans le post initial, la solution de BENASSR est une solution qui fonctionne. Il suffit juste d'inverser les 1 et 0 dans la formule pour avoir les doublons à 0 et les valeurs uniques à 1...

Une autre solution

Pièce jointe 618600


Sinon, sans VBA, ce n'est pas possible de travailler sur les couleurs, et le besoin de recourir à cela témoigne souvent d'un problème de conception de classeur.