Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 11/03/2010, 10h40   #1
Invité(e)
Invité(e)
 
Messages : n/a
Détails du profil
Informations forums :
Messages : n/a
Points : 0
Par défaut Simplifier code .PasteSpecial

Bonjour à tous,

Je lance ce sujet plutôt simple je penses, afin de savoir comment simplifier une opération que je fais sur mon code VBA.

Code :
1
2
          CSF1.Range("EchéanceR1").Copy
          CMF1.Range("G" & Debligne1).PasteSpecial Paste:=xlValues
Voila, je vais peut-être paraître chiant, mais est-ce que c'est possible de faire tenir un PasteSpecial sur une seule ligne comme la copy normal :

Code :
          CSF1.Range("EchéanceR1").Copy CMF1.Range("G" & Debligne1)
Voila merci, et désolé de créer un topic pour si peu, mais je le fais huit fois et je cherche à rendre le code le plus simple et lisible possible.
  Envoyer un message privé Réponse avec citation 00
Vieux 11/03/2010, 12h36   #2
Membre confirmé
 
Inscription : décembre 2008
Messages : 264
Détails du profil
Informations forums :
Inscription : décembre 2008
Messages : 264
Points : 264
Points : 264
Essaie

Code :
CSF1.Range("EchéanceR1").Copy:CMF1.Range("G" & Debligne1).PasteSpecial Paste:=xlValues
JPierreM est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/03/2010, 12h37   #3
Membre Expert
 
Inscription : juillet 2007
Messages : 2 134
Détails du profil
Informations forums :
Inscription : juillet 2007
Messages : 2 134
Points : 2 154
Points : 2 154
Salut clecle69000 et le forum
Code :
CMF1.Range("G" & Debligne1)=CSF1.Range("EchéanceR1")
Je ne connais pas de possibilité d'utiliser Pastespecial en une seule instruction.
A+
Gorfael est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/03/2010, 13h48   #4
Invité(e)
Invité(e)
 
Messages : n/a
Détails du profil
Informations forums :
Messages : n/a
Points : 0
Citation:
Envoyé par Gorfael Voir le message
Salut clecle69000 et le forum
Code :
CMF1.Range("G" & Debligne1)=CSF1.Range("EchéanceR1")
Je ne connais pas de possibilité d'utiliser Pastespecial en une seule instruction.
A+
En tout cas maintenant oui puisuqe la réponse donnée quelques secondes avant me convient parfaitement !

Comme quoi ":" peut tout changer

Merci à vous deux !
  Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Enlever Résolu
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 02h30.


 
 
 
 
Partenaires

Hébergement Web