Copi vers une autre feuille sans formule ni MFC

[maval]

Bonjour

Je recherche a modifier mon code, j'aimerai que lorsque je copie vers une autre feuille il ya que le texte et les chiffres des cellules concerner qui se copie mais pas les formules ou les MFC

Private Sub CommandButton4_Click()
[F4:F37].Interior.ColorIndex = 15 'Remise des cellule "F4:F37" en gris avant de les copier
With Sheets(21)
    Sheets(20).Range("D4:AP53").Copy .Range("D4:AP53")
    Sheets(20).Range("D4:AP53").Copy
    .Range("D4:AP53").PasteSpecial xlPasteColumnWidths
  
End With
 Sheets("Imprim_Point").Select
   'Range("A1").Select
 End Sub

Je vous remercie de votre aide

Cordialement

Maval

 

[mikachu]

Re : Copi vers une autre feuille sans formule ni MFC

Salut!

Pense à utiliser l'enregistreur de macro.
Apparemment tu veux juste coller les valeurs (sans formule ni mise en forme)

essaye en remplaçant

.Range("D4:AP53").PasteSpecial xlPasteColumnWidths

par

.Range("D4:AP53").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

(récupéré via l'enregistreur de macros)

 

[maval]

Re : Copi vers une autre feuille sans formule ni MFC

Bonjour mikachu

Avant de mettre se post j'ai bien essayer de passer par l'enregistreur de macro mais j'ai toujours les formes

Et avec ton code Idem j'ai toujours les formes

@+

Maval

 

[mikachu]

Re : Copi vers une autre feuille sans formule ni MFC

Se sont les mises en forme conditionnelles qui sont recopiées ?

Tu pourrais nenvoyer ton fichier afin d'y regarder ? (en format xls si possible, je suis sous XL2003)

si c'est un problème de MFC, essaye en ajoutant ça après .Range("D4:AP53").PasteSpecial...

.Range("D4:AP53").FormatConditions.Delete

 

[maval]

Re : Copi vers une autre feuille sans formule ni MFC

RE,

Nickel je te remercie bonne journée

@+
Maval