Copier la valeur d'une cellule selon sa couleur

Fermé
saxe - 2 févr. 2020 à 09:01
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 - 2 févr. 2020 à 13:19
Bonjour à tous,
Pouvais vous me donner la formule qui copie seulement la valeur d'une cellule de couleur rouge dans une ligne horizontale, par exemple dans l'exemple ci-dessous 32 -41 -48 sont dans une cellule rouge donc je voudrais la formule qui m'extrait ces 3 nombre seulement
32 28 56 41 13 72 82 48 52

Merci beaucoup et bon dimanche

5 réponses

via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
2 févr. 2020 à 13:06
Re

1) tu ne réponds pas à ma question si les cellules sont colorées manuellement ou par une mise en forme conditionnelle

2) tu ne fournis pas un exemple de ton fichier pour éventuellement pouvoir y appliquer une macro

Dans l'attente
Cdlmnt
Via
1
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
2 févr. 2020 à 12:00
Bonjour saxe

Si les cellules sont colorées par une lise en forme conditionnelle cela doit être possible en appliquant les mêmes critères que le MFC, sinon il faut passer par une macro en VBA
Quoiqu'il en soit il faut avoir un exemple de ton fichier
Poste le sur mon-partage.fr, copies le lien créé et reviens le coller

Cdlmnt
Via
0
Re bonjour voilà mon exemple les cellules C1 - E1 et J1 sont en rouge
A B C D E F G H I J K
1 71 11 21 42 62 51 32 31 53 61 63
je voudrais la formule qui me donne en M1 les 3 cellules rouges C1 - E1 et J1 seulement parmi les autres. Je pense avoir bien formulé mon problème.
Encore Merci
0
Excuse moi en effet elles sont colorées manuellement sur une page excel.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
Modifié le 2 févr. 2020 à 14:05
Donc c'est bien ce que je dis la copie ne peut se faire que par une macro établissant une fonction personnalisée
Function couleurrouge(plage As Range)
For Each cell In plage
If cell.Interior.ColorIndex = 3 Then couleurrouge = couleurrouge & cell.Value & "-"
Next
couleurrouge = Left(couleurrouge, Len(couleurrouge) - 1)
End Function

ALT+F11 pour ouvrir l'éditeur VBA
Insertion - Module
Dans la page du module copier-coller la macro ci-dessus
Fermer l'éditeur

Dans la cellule M1 entrer la formule =couleurrouge(A1:L1)

Cdlmnt
Via

0