Macro collage spéciale valeur d'un tableau

azerty64

XLDnaute Junior
Bonjour à tous,

Je me permets de vous solliciter car je sais que vous êtes les meilleurs !
J'ai besoin d'automatiser un collage spécial de valeurs se trouvant dans une page. #Macro
Mais je ne sais absolument pas faire de macro sur Excel donc si quelqu'un pouvait m'aider ca serai super !!!
Concrètement j'aimerais avoir un copier collé des valeurs d'une feuille avec formule sur une autre feuille.
Si vous avez des idées je suis preneur.
Merci d'avance les amis !!!

Cordialement,
Azerty64
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Azerty,
Pour se familiariser avec les macros, une méthode simple est d'utiliser l'enregistreur de macros.
Vous faites Affichage/Macros/Enregistrer une macro, puis vous faites ce que vous voulez, par ex je copie les valeurs feuil1, je vais en feuil2, je fais coller valeurs.
Puis Affichage/Macros/Arreter l'enregistrement.
Vous faites ALT+F11 pour accéder à l'éditeur de macros et vous trouvez à gauche Module1 :
VB:
Sub Macro1()
'
' Macro1 Macro
'

'
    Range("B1:B11").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C18").Select
End Sub
C'est brut de fonderie, non optimisé mais ça marche. Si vous l'exécuter il fera exactement ce que vous avez fait.
C'est un bon début pour appréhender les macros, même si très vite vous verrez que vous pouvez optimiser, modifier, améliorer ce que donne cet enregistreur.
 

soan

XLDnaute Barbatruc
Inactif
Bonjour @azerty64, sylvanu,

je propose le fichier ci-dessous.

* tu peux voir que la 2ème feuille est vide ;
* va sur la 1ère feuille ; fais Ctrl e
* va vérifier en 2ème feuille


VB:
Sub CpyData()
  Application.ScreenUpdating = 0
  [B1:B5].Copy: [Feuil2!B1].PasteSpecial -4163
  Application.CutCopyMode = 0
End Sub
soan
 

Pièces jointes

  • Exo azerty64.xlsm
    13.4 KB · Affichages: 10

soan

XLDnaute Barbatruc
Inactif
@sylvanu

oui, effectivement, de c'point d'vue-là ! :) mais l'enregistreur de macros
à tout d'même oublié Application.CutCopyMode = False ! :p

l'enregistreur a aussi oublié Application.ScreenUpdating = False ;)
j'crois qu'l'Enregistreur est un peu amnésique ! :rolleyes:


soan
 
Dernière édition:

Discussions similaires

Réponses
7
Affichages
292
Réponses
7
Affichages
790

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG