Insérer des valeurs copié

Résolu/Fermé

WILK642 Messages postés 6 Date d'inscription mercredi 30 décembre 2020 Statut Membre Dernière intervention 5 mars 2021 - 15 janv. 2021 à 10:56
yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 - 18 janv. 2021 à 13:21

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

A voir également:

Insérer des valeurs copié
Insérer signature word - Guide
Copie cachée - Guide
Insérer liste déroulante excel - Guide
Insérer une vidéo dans powerpoint - Guide
Super copie - Télécharger - Gestion de fichiers

3 réponses

Réponse 1 / 3

yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 1 471
15 janv. 2021 à 11:32

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

Réponse 2 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié le 15 janv. 2021 à 11:39

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

Réponse 3 / 3

WILK642 Messages postés 6 Date d'inscription mercredi 30 décembre 2020 Statut Membre Dernière intervention 5 mars 2021
18 janv. 2021 à 11:07

Super, merci à vous, ca marche comme je voulais

yg_be Messages postés 22696 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 17 avril 2024 1 471
18 janv. 2021 à 13:21

peux-tu alors marquer la discussion comme résolue?

Discussions similaires

lien copié

Comment retrouver des lien copier sur sont téléphone

Discussions similaires

Newsletters