Garder le couleur de remplissage

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

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

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é

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.

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

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

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

Merci @ vous pour vos remerciements.

Merci @ric pour son téléchargement

Sur mon tel point de xlsM...

@ bientôt

LouReeD

Rechercher des sujets similaires à "garder couleur remplissage"