Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copi vers une autre feuille sans formule ni MFC

  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

maval

XLDnaute Barbatruc
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
Code:
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
 
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
Code:
.Range("D4:AP53").PasteSpecial xlPasteColumnWidths
par
Code:
.Range("D4:AP53").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

(récupéré via l'enregistreur de macros)
 
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
 
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...

Code:
.Range("D4:AP53").FormatConditions.Delete
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Copie des données
Réponses
0
Affichages
627
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
911
Réponses
1
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…