Discussion :

[atoutal]

Bonjour,
Voila je cherche a copier des données sans couleur de A1:D1000 en MFC ( couleur réel sur l'exemple)
vers une autre feuille
Ci joint un exemple
http://cjoint.com/?0Kbkuh05OZF
Bonne journée et Merci

[nibledispo]

Bonjour,

Je vois des couleurs sur ta feuille mais aucune MFC proprement dite.

Voici le code qui fait la copie sans les couleurs de ton fichier.
tu peux l'appliquer à la feuille entière en remplaçant le range("a1:d9") par cells

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
Sub cop()
Sheets("Feuil1").Range("a1:d9").Copy Sheets("Feuil2").Range("a1")
 
With Feuil2.Range("A1:D9").Interior
      .Pattern = xlNone
End With
End Sub

Cordialement