Copie des motifs de plusieurs zones de cellule

[Pat2A]

Bonjour,
Je cherche à copier uniquement la valeur et les motifs de plusieurs plages de cellule d'une feuille vers une autre.
Pour les valeurs cela fonctionne mais pas pour les motifs.
Je vous sollicite donc à nouveau afin de trouver une solution.

Exemple:

Private Sub CommandButton1_Click()
Dim zon as Range
  For Each zon In Worksheets("E").Range("A1:I3,A5:I7,A9:I10,A12:I13").Areas
       Worksheets("D").Range(zon.Address).Value = zon.Value
       Worksheets("D").Range(zon.Address).Interior.Pattern = zon.Interior.Pattern
  Next zon
End Sub

Ce code ne provoque aucun bug mais les motifs ne sont pas copiés.

Merci de votre attention.

Bonne journée.

 

[Guest]

Re : Copie des motifs de plusieurs zones de cellule

Bonjour,

Il me semble qu'il faille également reproduire la couleur du pattern : .PatternColorIndex

A+

 

[Pat2A]

Re : Copie des motifs de plusieurs zones de cellule

Bonjour Hasco,

Non ce n'est pas nécessaire, il utilise alors la couleur par défaut. Mais par acquis de conscience j'ai quand même essayé et ça ne donne rien de plus.

Merci à toi.

 

[Guest]

Re : Copie des motifs de plusieurs zones de cellule

Re,

Eh bien joint un fichier exemple avec la macro.

A+