collage spécial en appuyant sur entrée

[benoua]

Bonjour à tous!

Est ce que c'est possible de faire un collage spécial sans faire un clic droit? Je m'explique, je fais actuellement une macro dans laquelle il prépare un copier coller dans un classeur en copiant une sélection puis ouvre un autre classeur se place sur la dernière ligne. Je ne veux pas que le coller se fasse automatiquement mais seulement lorsque l'utilisateur appuie sur Entrée. Le problème c'est qu'il me fait un collage normal par défaut et je voudrais PasteValuesAndNumberFormats.

Voici mon code :

Range("AE7:BK7").Select
Selection.Copy
Workbooks.Open (Chemin + "Bases Budgétaires\Base Budgétaire " + y)
Sheets("Base").Select
Range("A1000").End(xlUp).Select

Merci d'avance,

Ben.

 

[SergiO]

Re : collage spécial en appuyant sur entrée

Bon jour benoua,Bonjour le forum,

Essaie ceci:

Range("AE7:BK7").Select
Selection.Copy
Workbooks.Open (Chemin + "Bases Budgétaires\Base Budgétaire " + y)
Sheets("Base").Select
Range("A1000").End(xlUp).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End Sub

@+

 

[Staple1600]

Re : collage spécial en appuyant sur entrée

Bonsoir


Ca devrait marcher aussi comme cela 😉

(A tester)

With Range("AE7:BK7")
.Copy
Workbooks.Open (Chemin + "Bases Budgétaires\Base Budgétaire " + y)
ActiveWorkBook.Sheets("Base").Range("A1000").End(xlUp).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With 
End Sub

 

[benoua]

Re : collage spécial en appuyant sur entrée

Merci beaucoup Sergio!
Cela semble marcher, j'ai juste un problème c'est que si au lieu de mettre valueandnumberformats je met allexceptborders ca ne change rien... Du coup j'ai mes bordures qui foirent...
je referai des tests demain, j'ai fini pour aujourd'hui ! 🙂
Merci encore,
Bon courage poru ceux qui doivent encore bosser,
bonne soirée,

Ben

edit : j'essaierai plus longuement ta solution demain staple mais celle-ci n'a pas fonctionné non plus au premier essai...
merci également pour ton aide 😉