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:
Ce code ne provoque aucun bug mais les motifs ne sont pas copiés.
Merci de votre attention.
Bonne journée.
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:
Code:
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.
Dernière édition: