Copier la valeur d'une cellule selon sa couleur

Signaler
-
Messages postés
12904
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
11 janvier 2021
 -
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
Afficher la suite

5 réponses

Réponse 1 / 5
Messages postés
12904
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
11 janvier 2021
 2 100
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
Réponse 2 / 5
Messages postés
12904
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
11 janvier 2021
 2 100
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
Réponse 3 / 5

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
Réponse 4 / 5

Excuse moi en effet elles sont colorées manuellement sur une page excel.
Réponse 5 / 5
Messages postés
12904
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
11 janvier 2021
 2 100
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

Répondre Posez votre question