Garder le couleur de remplissage

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
riderpsy
Membre habitué
Membre habitué
Messages : 77
Appréciations reçues : 3
Inscrit le : 21 juillet 2017
Version d'Excel : 2013 FR

Message par riderpsy » 9 juillet 2019, 14:16

Salut à tous,

Je dois recopier un tableau, d'une feuille vers une autres en realisant un transpose, et en gardant le fond de remplissage.
J'ai pu transpose mais je n'arrive pas garder le fond de remplissage.

Voici mon code.
  • Sub Copie()
    Dim r As Range
    Dim c As Range
    Set r = Worksheets("Gestion des personnels").Range("C7:C49")
    Set c = Worksheets("Bulletin").Range("C3")
    r.Copy
    c.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    c.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False

    Worksheets("Bulletin").Range("C3:AS3").Orientation = 90

    r.Interior.ColorIndex = c.Interior.ColorIndex

    End Sub
Merci d'avance
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'042
Appréciations reçues : 265
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 9 juillet 2019, 14:28

Bonjour,
La première ligne de collage avex xlpastall suffit, si les couleurs ne suivent pas c'est que peut être qu'elles sont dues à une MFC... Si tel est le cas alors il faut modifier les MFC pour qu'elles s'applique sur la nouvelle plage de cellules.

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
r
riderpsy
Membre habitué
Membre habitué
Messages : 77
Appréciations reçues : 3
Inscrit le : 21 juillet 2017
Version d'Excel : 2013 FR

Message par riderpsy » 9 juillet 2019, 15:19

Je n'ai aucune MFC sur la feuille qui recoit le collage... je ne comprends pas pourquoi je n'arrive pas a recevoir le collage dans sa totalité
r
riderpsy
Membre habitué
Membre habitué
Messages : 77
Appréciations reçues : 3
Inscrit le : 21 juillet 2017
Version d'Excel : 2013 FR

Message par riderpsy » 9 juillet 2019, 15:27

Si ça peux vous aider...
j'ai fais le tour de tout je pense, je ne trouve pas le moyen d'obtenir la même chose.
Suivi_Formation.xlsm
(63.74 Kio) Téléchargé 4 fois
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'042
Appréciations reçues : 265
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 9 juillet 2019, 16:04

riderpsy a écrit :
9 juillet 2019, 15:19
Je n'ai aucune MFC sur la feuille qui recoit le collage... je ne comprends pas pourquoi je n'arrive pas a recevoir le collage dans sa totalité
En fait c'est la question : votre feuille source a t elle des MFC ? Si c'est le cas et qu'en plus la feuille qui reçoit n'en a pas alors il est normal que les cellules restent blanche..

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'205
Appréciations reçues : 185
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 9 juillet 2019, 16:10

Bonjour à tous,

Oui, la feuille source contient des MFC sur les cellules à copier.
Un essai ...
Option Explicit
Sub Copie()
Dim r As Range
Dim c As Range
Dim X As Integer

  Set r = Worksheets("Gestion des personnels").Range("C7:C49")
  Set c = Worksheets("Bulletin").Range("C3")
  r.Copy
  c.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
  Application.CutCopyMode = False

   Worksheets("Bulletin").Range("C3:AS3").Orientation = 90

   For X = 1 To 42
      c.Cells(1, X).Interior.Color = r.Cells(X, 3).DisplayFormat.Interior.Color
   Next X
End Sub




ric
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
r
riderpsy
Membre habitué
Membre habitué
Messages : 77
Appréciations reçues : 3
Inscrit le : 21 juillet 2017
Version d'Excel : 2013 FR

Message par riderpsy » 9 juillet 2019, 16:38

Merci LouReed je en savais pas que cela ne prenait pas les MFC.

Merci à Ric pour ton code, il me manquait la derniere instructions; Que j'ai compris. Merci

Le VBA c'est génial, la partie continue !!!!!!
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 6'042
Appréciations reçues : 265
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 9 juillet 2019, 16:55

Merci @ vous pour vos remerciements.
Merci @ric pour son téléchargement ;;)
Sur mon tel point de xlsM...

@ bientôt

LouReeD
Contributeur depuis peu ! 8-)
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message