Insérer des valeurs copié Résolu/Fermé

Question

Bonjour,
J'ai fait une petite macro pour copier une plage des valeurs et les insérer dans une autre feuille en insérant les valeurs dans une colonne à gauche.
Cependant les valeurs copie sont des calcules issu des formules, du coup une fois inséré, c'est sont les formules qui c'est copient, et moi je veux que ca soit seulement les valeurs.
Comment faire pour que "Selection.Insert Shift:=xlToRight" fasse également un un genre de Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                                           SkipBlanks:=False, Transpose:=False

Voici le code:
Sub Reinseigner_des_conso()
       
Sheets("Relevés_et_Suivi").Activate

        Range("Y13:Y32").Select
        Selection.Copy
          
Sheets("Résumé_conso").Activate

        Range("R12").Select
        Selection.Insert Shift:=xlToRight
        
End Sub

Merci

yg_be · Answer

bonjour,
moi je ferais en deux étapes, d'abord insérer des cellules vides, ensuite copier les valeurs.

Patrice33740 · Answer

Bonjour,

Comme le propose yg_be  (que je salue) :
Sub Reinseigner_des_conso()

' Inserer la plage
  Sheets("Résumé_conso").Range("R12:R31").Insert Shift:=xlToRight
  ' Pour copier les formats, copier tout (inutile si pas besoin des formats)
  Sheets("Relevés_et_Suivi").Range("Y13:Y32").Copy Sheets("Résumé_conso").Range("R12")
  ' Copier uniquement les valeurs
  Sheets("Résumé_conso").Range("R12:R31").Value = Sheets("Relevés_et_Suivi").Range("Y13:Y32").Value

End Sub

WILK642 · Answer

Super, merci à vous, ca marche comme je voulais

Insérer des valeurs copié

3 réponses

Discussions similaires