Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Selectionner des cellules colorées par mfc

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion patatra
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

patatra

Guest
Bonjour,

voila mon problème:

Sur une plage de cellules (B3;R41) je souhaite copier coller les lignes colorées en jaune par mfc, nombre variable selon les saisies et les collées dans une autre feuille pour avoir une stat annuelle.
Mon code ne colle que la 1er cellule

For Each C In Range("B3:R41")
If C.Interior.ColorIndex = 36 Then
C.Value = 36
End If
Next C
Selection.Copy
Sheets("RECAP").Select
Range("B5").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("SAISIE").Select
Range("A1").Select
End Sub

Merci pour votre cooperation

A bientot patatra
 
Trier par date Trier par votes
Re : Selectionner des cellules colorées par mfc

Bonjour patatra,

Voilà le code qu'il te faut mettre dans ThisWorkbook :

Code: 
Sub test()
    Sheets("RECAP").Range("B2:B65536").ClearContents
    For Each C In Range("B3:R41")
        If C.Interior.ColorIndex = 36 Then
            Sheets("RECAP").Range("B" & Sheets("RECAP").Range("B65536").End(xlUp).Row + 1).Value = C.Value
        End If
    Next C
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Selectionner des cellules colorées par mfc

Salut patatra et le forum
Une MFC ne colorie pas la cellule, mais un "calque". À ma connaissance, il n'existe aucune méthode permettant de savoir si une MFC est appliquée ou non. Le seul moyen c'est de refaire le test dans la macro. Et pour t'aider, il faut avoir une idée de la formule de la MFC.
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
B
  • Résolu(e)
Autres Copier le contenu de plusieurs cellules en fonction de la couleur de fond
2 3
Réponses
33
Affichages
3 K
beauserge
B
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
4 K
Usine à gaz
T
  • Résolu(e)
XL pour MAC Target
Réponses
9
Affichages
2 K
tdenis
T
T
  • Question Question
XL pour MAC Recherche date
Réponses
5
Affichages
2 K
tdenis
T
M
  • Question Question
XL 2019 copier des cellules sur une autres feuilles en fonction de multiple conditions avec un code vba
Réponses
0
Affichages
1 K
miral20
M
W
  • Résolu(e)
Microsoft 365 Boucle Loop infinie lors écriture dans des fichier
Réponses
7
Affichages
2 K
Staple1600
S
  • Question Question
XL 2016 Appliquer des formules sur des cellules filtrées (VBA)
Réponses
1
Affichages
2 K
Staple1600
L
  • Résolu(e)
XL 2019 Copier/Coller valeur + couleur d'un classeur à un autre
Réponses
7
Affichages
2 K
Etoto
W
  • Question Question
XL 2010 Détection automatique des doublons
Réponses
9
Affichages
2 K
whiteshark
W
C
  • Résolu(e)
Microsoft 365 Imprimer des plages de cellules sous condition
Réponses
2
Affichages
844
comardud
C
S
  • Résolu(e)
Microsoft 365 VBA contrôle cellule(s) vides(s) encadrée(s) par cellules non vides
Réponses
6
Affichages
2 K
spike29
S
R
  • Question Question
XL 2019 Probleme de code VBA
Réponses
1
Affichages
1 K
ChTi160
  • Résolu(e)
Microsoft 365 Supprimer des caractères non visibles en passant par une variable tableau
Réponses
5
Affichages
2 K
Patrice33740
N
  • Question Question
XL 2016 Effacement cellules non colorées
Réponses
3
Affichages
625
mapomme
  • Question Question
XL 2016 Insérer le contenu d'une ListBox dans cellules
Réponses
2
Affichages
2 K
Yoyo01000
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…