Extraire des lignes dont les caractères en A sont de couleur Noire
Bonjour,
Peut-on extraire ou mettre un 'X' en colonne J des cellules dont la couleur des caractères est noire?
Dans la colonne A caractères bleus et noirs
J'aimerais, si c'est possible, et seulement les caractère noirs, mettre un x en J .
Merci beaucoup
Bonjour,
Il y a un moyen avec lire.cellule()
Dans un premier temps definir une fonction dans le gestionnaire de noms
elle s'appelle noire et fait reference a =LIRE.CELLULE(24;ville!$A2).
Ensuite en j2 voici la formule =SI(@noire=1;"X";"")
Ca utilise les macro excel 4.0 qu'il faut peut etre activé
Bonjour,
Merci pour vôtre aide mais j'ai excel2007
ça ne fonctionne pas car je n'ai pas cette ligne:
Ca utilise les macro excel 4.0 qu'il faut peut etre activé@ bientôt
Salut,
C'est bizarre, ca devrait d'autant mieux fonctionner que votre version d'Excel est ancienne
Bonjour le forum, Ge0ffroy, fg2b,
@Ge0ffroy, tester avec une fonction personnalisée.
Puisque tu laissais le choix j'ai extrais la valeur de A si la couleur est = à 1, mais tu peux mettre "X" à la place de A2.
=SI(CodeCouleur(A2)=1;A2;"")=SI(CodeCouleur(A2)=1;"X";"")Cordialement.
Bonjour Mdo100,
Tu as raison cela devrait fonctionner, j'ai dû faire une mauvaise manip...
Merci Mais pareil si je transpose sur mon fichier ça reste blanc ou affiche
| #NOM? |
vais chercher pourquoi?
bonne soirée
Re Ge0ffroy,
Si ça affiche #NOM? c'est que tu n'as pas mis la fonction personnalisée dans un module de ton vrai fichier.
Dans ton fichier il faut que tu ailles sur l'onglet "Développeur" puis dans la fenêtre qui s'ouvre cliquer sur l'onglet "Insertion" puis dans le menu déroulant sélectionner "Module" puis copier ce code:
Function CodeCouleur(CelluleCouleur As Range) As Long
'Retourne le code couleur de la CelluleCouleur
Application.Volatile
CodeCouleur = CelluleCouleur.Font.ColorIndex
End FunctionEnsuite tu peux utiliser l'unes des 2 formules fournies précédemment.
Cdlt.
Merci Mdo100,
C'est bon ça fonctionne
Merci et bonne soirée