Copie de couleur de cellule

[Stupidophil]

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! 🙂

 

[Stupidophil]

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...

 

[Paritec]

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 🙂

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

 

[Stupidophil]

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?

 

[Paritec]

Re : Copie de couleur de cellule

Bonsoir Stupidophil le forum,
oui je vais lire ton post ce soir car là je dois m'occuper d'un client mais à mon retour je regarde ton truc
a+
papou

 

[Paritec]

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 🙂

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

 

[Stupidophil]

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. 🙂

 

[Paritec]

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

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