A voir également:
- Tri excel sur une couleur
- Liste déroulante excel - Guide
- Excel couleur conditionnelle - Guide
- Tri excel - Guide
- Somme si couleur excel - Guide
- Déplacer une colonne excel - Guide
10 réponses
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
572
31 mars 2009 à 11:15
31 mars 2009 à 11:15
Bonjour à tous,
Dans le cas présent ik semble plus simple d'utiliser VBA.
En copiant le code suivant dans un Module standart :
Function NumCoulCel(C As Object)
Application.Volatile True
NumCoulCel = Abs(C.Interior.ColorIndex)
End Function
il suffit ensuite de saisir la fonction (pour les cellules coloriées à partir de A1)
=NumCoulCel(A1)
puis de dérouler vers le bas afin d'obtenir le numéro de la couleur de chaque cellule.
Le tri pourra ensuite être fait sur la colonne contenant ces numéros.
Et si la couleur porte sur le texte le code sera
Function NumCoulFont(C As Object)
Application.Volatile True
NumCoulFont = Abs(C.Font.ColorIndex)
End Function
et la fonction
=NumCoulFont(A1)
De plus si ces opérations sont à répéter sur plusieurs classeurs, voire régulièrement les codes VBA peuvent être enregistrés en macros complémentaires permettant ainsi l' utilisation des fonctions NumCoulCel et NumCoulFont comme de simples fonctions.
Bonne journée.
Dans le cas présent ik semble plus simple d'utiliser VBA.
En copiant le code suivant dans un Module standart :
Function NumCoulCel(C As Object)
Application.Volatile True
NumCoulCel = Abs(C.Interior.ColorIndex)
End Function
il suffit ensuite de saisir la fonction (pour les cellules coloriées à partir de A1)
=NumCoulCel(A1)
puis de dérouler vers le bas afin d'obtenir le numéro de la couleur de chaque cellule.
Le tri pourra ensuite être fait sur la colonne contenant ces numéros.
Et si la couleur porte sur le texte le code sera
Function NumCoulFont(C As Object)
Application.Volatile True
NumCoulFont = Abs(C.Font.ColorIndex)
End Function
et la fonction
=NumCoulFont(A1)
De plus si ces opérations sont à répéter sur plusieurs classeurs, voire régulièrement les codes VBA peuvent être enregistrés en macros complémentaires permettant ainsi l' utilisation des fonctions NumCoulCel et NumCoulFont comme de simples fonctions.
Bonne journée.
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 397
Modifié par Vaucluse le 12/07/2012 à 17:33
Modifié par Vaucluse le 12/07/2012 à 17:33
Bonjour
je met peut être les pieds dans le plat, mais filtre automatique sur excel à partir de 2007 comporte une option "par couleur".
crdlmnt
ne sommes nous pas seuls à comprendre ce que l'on explique?
je met peut être les pieds dans le plat, mais filtre automatique sur excel à partir de 2007 comporte une option "par couleur".
crdlmnt
ne sommes nous pas seuls à comprendre ce que l'on explique?
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 306
12 juil. 2012 à 17:34
12 juil. 2012 à 17:34
Je confirme (pour les pieds dans le plat et pour le filtrage par couleur) ^^
Cordialement.
Cordialement.
zaphod29
Messages postés
3
Date d'inscription
dimanche 29 mars 2009
Statut
Membre
Dernière intervention
29 mars 2009
1
29 mars 2009 à 20:58
29 mars 2009 à 20:58
Bonjour,
Ce qu'il faudrait deja savoir c'est comment ces lignes sont devenue rouge, elles ont ete surligne une a une ou avec une mise en forme automatique.
Dans le second cas dans ton filtre il sufit de mettre la meme information que dans la mise en forme automatique.
Dans le premier cas je n'ai de de réponse immediate, mais je pense qu'il faut faire une formule afin de recuperer le code colleur de la cellule puis de faire un trie dessus.
Zaphod
Ce qu'il faudrait deja savoir c'est comment ces lignes sont devenue rouge, elles ont ete surligne une a une ou avec une mise en forme automatique.
Dans le second cas dans ton filtre il sufit de mettre la meme information que dans la mise en forme automatique.
Dans le premier cas je n'ai de de réponse immediate, mais je pense qu'il faut faire une formule afin de recuperer le code colleur de la cellule puis de faire un trie dessus.
Zaphod
Raymond PENTIER
Messages postés
58405
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
4 mai 2024
17 098
30 mars 2009 à 15:49
30 mars 2009 à 15:49
Bonjour, lermite222.
Je suis interpelé et intrigué par ta fonction =XLM.LIRE.CELLULE(63;A5) que je n'ai jamais encore vue dans Excel, même dans la version 2007. Peux-tu m'en dire plus ?
Ne serait-ce pas une de ces fonctions supplémentaires qu'on peut télécharger depuis certains sites, et qui s'ajoutent aux fonctions habituelles d'Excel ? Dans ce cas il faudrait en communiquer les coordonnées à superassistante.
Merci d'avance.
Je suis interpelé et intrigué par ta fonction =XLM.LIRE.CELLULE(63;A5) que je n'ai jamais encore vue dans Excel, même dans la version 2007. Peux-tu m'en dire plus ?
Ne serait-ce pas une de ces fonctions supplémentaires qu'on peut télécharger depuis certains sites, et qui s'ajoutent aux fonctions habituelles d'Excel ? Dans ce cas il faudrait en communiquer les coordonnées à superassistante.
Merci d'avance.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
wilfried_42
Messages postés
907
Date d'inscription
mardi 19 août 2008
Statut
Contributeur
Dernière intervention
8 décembre 2009
243
30 mars 2009 à 16:15
30 mars 2009 à 16:15
Salut à tous
ça ressemble aux macro XL4 avec un XML en plus mais leur utilisation dans les feuilles en direct ne fonctionne pas, il faut passer par une formule nommée.
tu te positionnes sur la ligne 1
Menu Insertion / Noms /définir
Le nom : Couleur_text
fait référence à : =Lire.Cellule(24;$A1)
valider
ensuite une astuce car si tu changes la couleur de ton texte, même en relançant le calcul, ça ne marchera pas on va donc adjoindre à la formule, une instruction volatile qui permettra un recalcul.
ça ressemble aux macro XL4 avec un XML en plus mais leur utilisation dans les feuilles en direct ne fonctionne pas, il faut passer par une formule nommée.
tu te positionnes sur la ligne 1
Menu Insertion / Noms /définir
Le nom : Couleur_text
fait référence à : =Lire.Cellule(24;$A1)
valider
ensuite une astuce car si tu changes la couleur de ton texte, même en relançant le calcul, ça ne marchera pas on va donc adjoindre à la formule, une instruction volatile qui permettra un recalcul.
=couleur + (MAINTENANT()*0)
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
30 mars 2009 à 16:22
30 mars 2009 à 16:22
Bonjour Wilfried,
Exact, c'est la même fonction, sauf qu'elle fonctionne directement et est actualisée avec le recalcul.
Si c'est pour publier l'appli vaut mieux employer ton système, si c'est pour "chez soi", l'ajout de MoreFunc est un plus qui a bien d'autre macros utile.
A+
Exact, c'est la même fonction, sauf qu'elle fonctionne directement et est actualisée avec le recalcul.
Si c'est pour publier l'appli vaut mieux employer ton système, si c'est pour "chez soi", l'ajout de MoreFunc est un plus qui a bien d'autre macros utile.
A+
Bonjour à tous,
merci pour votre aide. Il me semblait qu'il fallait téléchargé morefunc, mais je suis au boulot, alors les téléchargements sont controlés.
Finalement, je dois faire quoi ? je me suis mis dans une case en haut d'une colonne, j'ai fait insérer/nom/définir....
une fois que j'ai valider, je fais quoi ensuite dans ma case ?
merci pour votre aide. Il me semblait qu'il fallait téléchargé morefunc, mais je suis au boulot, alors les téléchargements sont controlés.
Finalement, je dois faire quoi ? je me suis mis dans une case en haut d'une colonne, j'ai fait insérer/nom/définir....
une fois que j'ai valider, je fais quoi ensuite dans ma case ?
Bonjour,
merci pour ton aide. Les lignes ont été mis en rouge à la main, pas de mise en forme conditionnel, ou automatique. J'aurais juste aimé qu'il y ait une astuce pour trier par couleur....
merci pour ton aide. Les lignes ont été mis en rouge à la main, pas de mise en forme conditionnel, ou automatique. J'aurais juste aimé qu'il y ait une astuce pour trier par couleur....
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
30 mars 2009 à 10:17
30 mars 2009 à 10:17
Bonjour,
Ajouter une colonne avec la formule...
Tu peu ensuite faire le tri sur le N° de la couleur.
A+
Ajouter une colonne avec la formule...
=XLM.LIRE.CELLULE(63;A5)
Tu peu ensuite faire le tri sur le N° de la couleur.
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
>
superassistante
30 mars 2009 à 15:40
30 mars 2009 à 15:40
Si c'est la police qui est en couleur c'est 64 que tu doit mettre.
Sinon il n'y a rien de plus à faire
Sinon il n'y a rien de plus à faire
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
30 mars 2009 à 16:06
30 mars 2009 à 16:06
Bonjour Raymond,
oups, j'ai pas fait attention, effectivement c'est une fonction de MoreFunc (téléchargable sur CCM)
Et la valeur référence est bien 24.
Et si superassistante a bien trouvé la référence à mettre probable qu'il a le Add-in.
Si c'est le cas, met la formule sur un poste suivant.
A+
oups, j'ai pas fait attention, effectivement c'est une fonction de MoreFunc (téléchargable sur CCM)
Et la valeur référence est bien 24.
Et si superassistante a bien trouvé la référence à mettre probable qu'il a le Add-in.
Si c'est le cas, met la formule sur un poste suivant.
A+
Excel 2003 :
http://monsieur-excel.blogspot.fr/2008/09/filtrage-selon-la-couleur-sans-2007.html
Execution parfaite !
pensez à faire un filtre automatique sur la deuxième colonne, une fois le remplacement des données effectuées, et positionner votre filtre sur la couleur.
Il va automatiquement filtré la colonne d'origine.
Cordialement,
http://monsieur-excel.blogspot.fr/2008/09/filtrage-selon-la-couleur-sans-2007.html
Execution parfaite !
pensez à faire un filtre automatique sur la deuxième colonne, une fois le remplacement des données effectuées, et positionner votre filtre sur la couleur.
Il va automatiquement filtré la colonne d'origine.
Cordialement,
12 juil. 2012 à 17:02
Je cherche à procéder à un tri par format. Faire ressortir les lignes rouges...
Donc ces lignes de codes devraient me convenir parfaitement si je parvenais à les faire fonctionner...
Msg d'erreur: "End Sub attendu"... Je débute et souhaite une écriture simple et fonctionnant sur xls 2003.
Peux-tu me donner un coup de main?
Merci beaucoup :D
Modifié par g le 13/07/2012 à 23:41
Le code ci-dessus fonctionne parfaitement avec Excel 2003.
L'erreur "End Sub attendu" signifie qu'un End Function est absent ou mal orthographié dans le code.
Tu peux voir la procédure complète sur http://gerard.g.pagesperso-orange.fr/logexl_05.htm#Numero_couleur_cellule
A noter que ce procédé ne peut pas fonctionner si la couleur de remplissage des cellules est due à ma mise en forme conditionnelle.
Corialement.