Copier Coller Cellule + Format Cellule

[GuillaumA]

Bonjour,
J'ai le code suivant afin de copier le texte d'une cellule dans une autre:

Sub Copier() 

Dim Formulaire As Range
Dim Tablo As Worksheet
    
    Set Formulaire = Worksheets("Feuil1").Range("A1:B10")
    Set Tablo = Worksheets("Feuil2")
    
    Formulaire.Copy
Tablo.Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False



 
 [COLOR="Green"] '   Effacer le contenu des cellules[/COLOR]
     Formulaire.ClearContents

Application.GoTo Reference:=Worksheets("Feuil1").Range("A1"), Scroll:=True

  
End Sub

Cela copie le texte mais pas le format de la cellule. En effet mes cellules ont des formats personnalisées du style:

[Couleur10]+# ##0,0pt;[Rouge]-# ##0,0pt

Mais ces derniers ne se recopient pas. Existe t'il une variable afin de la rajouter au code pour que le format soit lui aussi copié ?


Cordialement,
Guillaume

 

[Pierrot93]

Re : Copier Coller Cellule + Format Cellule

Bonjour,

modifie ton code de collage comme suit :

With Tablo.Cells(1, 1)
    .PasteSpecial Paste:=xlPasteValues, Transpose:=True
    .PasteSpecial Paste:=xlPasteFormats
End With

bon après midi
@+

 

[GuillaumA]

Re : Copier Coller Cellule + Format Cellule

Merci Pierrot.

Rapide et efficace !


Bonne journée.