Copier la valeur d'une cellule selon sa couleur

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

  1. 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
    1. 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
      1. 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
        1. Excuse moi en effet elles sont colorées manuellement sur une page excel.
          0
          1. 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