Copier la valeur d'une cellule selon sa couleur

Signaler
-
via55
Messages postés
11754
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
15 février 2020
-
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

Messages postés
11754
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
15 février 2020
1 659
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
Messages postés
11754
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
15 février 2020
1 659
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
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
Excuse moi en effet elles sont colorées manuellement sur une page excel.
Messages postés
11754
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
15 février 2020
1 659
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