Copier la valeur d'une cellule selon sa couleur
saxe
-
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention -
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
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
-
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
-
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 -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
