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

Copie de couleur de cellule

Créer une discussion

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
S

Stupidophil

XLDnaute Nouveau
Bonjour à tous,

J'ai un fichier planning où chaque feuille correspond à une semaine (nommées "Semaine 1", "Semaine 2"...etc).
Sur chaque feuille Semaine, il y a 9 personnes.
Une feuille finale récapitule l'année entière pour chaque personne, donc 9 feuilles.
Je récupère ainsi les données entrées dans les cellules des feuilles de semaine grace à la formule:
=INDIRECT(CONCATENER("'Semaine ";H6"'!E";$J$3))
(exemple pour une personne)
la formule appelle des numéros de semaine en H6 et la plage de cellule correspondant à la personne en J3.

Ca marche bien, mais je ne trouve pas le moyen de récupérer la couleur de la cellule source. 😕

D'avance, merci à qui pourra m'aiguiller! 🙂
 
Trier par date Trier par votes
Re : Copie de couleur de cellule

Merci Masterdico de t'intéresser à mon cas 🙂

Désolé, mais le serveur proxy de mon entreprise m'interdit l'envoi et la réception de fichier... 😡

En fait, après de longues heures de recherches, j'ai trouvé un début de solution en mettant une macro du style:
[C3].Interior.ColorIndex = [C4].Interior.ColorIndex

J'ai vu qu'une macro permet de récupérer le contenu d'une plage de cellules:
[C3:G4] = ['feuille1'!C4:G5].Value
Mais si j'ajoute
[C3:G4].Interior.ColorIndex = ['feuille1'!C4:G5].Interior.ColorIndex
ça ne recopie pas les couleurs.... 🙁

Une macro avec ces deux lignes me simplifierait la vie! Et m'éviterait des formules du genre de celle que j'ai cité dans mon premier message...
 
Vote positif 0 Vote négatif
Re : Copie de couleur de cellule

Bonjour Stupid ophil masterdico le forum
Voilà pour coller de Feuil1 C3:G19 à Feuil2 C4 avec tes couleurs et le format
bonne journée
a+
papou 🙂

Code: 
Sub copier()
    Feuil1.Range("C3:G19").Copy
    Sheets("Feuil2").Range("C4").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub
 
Vote positif 0 Vote négatif
Re : Copie de couleur de cellule

raaaahhhhhh, MERCI !!!! 🙂🙂🙂
C'est exactement ce que je cherchais!
Je te bénis sur 158 générations!

Je vais peut être un peu abuser de ta gentillesse et de ta patience...
J'ai réadapté la macro à mon classeur:
Sub copier()

Sheets("Semaine 1").Range("C4:G5").Copy
Sheets("Feuil2").Range("C3").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

ça marche impeccable, ça me colle tout (texte et couleur) comme je veux: la plage C4:G5 de la feuille "Semaine 1" vers la plage C3:G4 de la feuille "Feuil2".

Comment faire pour que cette macro aille copier la même plage (C4:G5) de la feuille "Semaine 1" à la feuille "Semaine 52" (52 feuilles) et les colle sur la feuille "feuil2"????
Je voudrais qu'il me colle donc ces 52 copies de plage, à la suite les unes des autres, en laissant une ligne entre chaque plage copiée.
'Semaine 1'!C4:G5 collée sur les lignes C3 et C4 de 'feuil2'
'Semaine 2'!C4:G5 collée sur les lignes C6 et C7 de 'feuil2'
'Semaine 3'!C4:G5 collée sur les lignes C9 et C10 de 'feuil2'
.... et ainsi de suite jusqu'à la semaine 52....

Tu vois comment je peux m'en sortir?
 
Vote positif 0 Vote négatif
Re : Copie de couleur de cellule

Bonsoir Stupidophil le forum
en supposant que tu n'as que tes 52 semaines et la feuille 2
essayes et dis moi
Bonne soirée
Papou 🙂
Code: 
Sub copiersemaine()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Feuil2" Then
ws.Range("C4:G5").Copy
Feuil2.Range("C65536").End(xlUp).Offset(2, 0).PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End If
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Copie de couleur de cellule

Merci Paritec. Merci pour ton aide!
Malheureusement, j'ai quelques onglets en plus dans mon fichier, et ta macro ne fonctionne pas très bien... 🙁
Vu que je suis à la maison, je peux te joindre le fichier. Je l'ai mis ici:
Cijoint.fr - Service gratuit de dépôt de fichiers
sur la première feuille, j'ai mis quelques explications...

En te remerciant d'avance. 🙂
 
Vote positif 0 Vote négatif
Re : Copie de couleur de cellule

Bonjour Stupidophil le forum,
bon ta macro est prête mais !!! Tu m'envoies ton fichier avec toutes les plages à copier vide!!! c'est un gag sans doute?
tu veux copier les couleurs OK mais dans tes cellules tu as quoi d'autre? des formules aussi?
bon moi j'ai fait un essais avec les copies de C2 à G3 puisque c'est le seul endroit ou il y avait des couleurs!!!!!
Maintenant si tu veux que ta macro marche pour tous les noms il faudra faire autrement je n'y ai pas encore réfléchi mais c'est possible.
Comme le résultat final je ne le connais pas essayes d'abord on verra après.
la macro pour faire le récap sur la Sheets("Feuil2")
dans l'attente de ta réponse
a+
Papou
Code: 
Sub copiersemaine()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Worksheets
        For i = 1 To 52
            If ws.Name = "Semaine " & i Then
                ws.Range("C2:G3").Copy
                Feuil66.Range("C65536").End(xlUp).Offset(2, 0).PasteSpecial _
                        Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, _
                        SkipBlanks:=False, Transpose:=False
                Feuil66.Range("C65536").End(xlUp).Offset(-1, 0).PasteSpecial _
                        Paste:=xlPasteFormats, Operation:=xlNone, _
                        SkipBlanks:=False, Transpose:=False
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub
 
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

Discussions similaires

N
  • Question Question
Microsoft 365 Excel automatisé pour gestion du temps par projet
Réponses
11
Affichages
337
Dudu2
A
  • Résolu(e)
Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus
Réponses
14
Affichages
935
Alain 79
A
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
775
Nel'
N
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
277
gbinforme
G
C
  • Question Question
XL 2013 Copie de formules
Réponses
4
Affichages
496
Cattitude
C
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
482
rtlv17
R
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
301
Guy_M
G
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
528
piga25
B
  • Question Question
Microsoft 365 Excel - formule de calcul complexe
Réponses
4
Affichages
786
Ben92290
B
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
332
job75
A
  • Question Question
XL 2016 Contrôle de la pose de 10 jours de congés consécutifs
Réponses
5
Affichages
862
djidji59430
F
  • Question Question
Microsoft 365 Copie de couleur de cellules
Réponses
3
Affichages
388
gbinforme
G
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
470
pvander
P
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
777
dysorthographie
R
  • Question Question
XL 2019 Aide à la création d'un fichier de saisie et suivi des engagements budgétaires sous Excel
Réponses
2
Affichages
228
Royaulté
R
  • Question Question
XL 2016 Récupérer données sur plusieurs feuilles
2
Réponses
20
Affichages
1 K
hypo78
  • Question Question
Microsoft 365 Copie de couleur d'une cellule à une autre
Réponses
11
Affichages
744
Dranreb
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
389
Abi23
A
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
3 K
patricktoulon
G
  • Question Question
XL 2016 SI (cellule de couleur) alors
Réponses
4
Affichages
846
Nicolas JACQUIN
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…