Copier et insérer des VALEURS avec VBA.

Bonjour à tous,

J'ai lu différents sujets à ce propos mais je n'arrive pas à trouver une solution qui me convient. J'aimerais copier des cellules dans une feuille et les insérer dans une autre feuille sous forme de valeur car actuellement lorsque je copie et insère les cellules sa me marque #REF. Je vous met en dessous ma formule actuelle pour que vous puissiez regarder.

Merci d'avance :D

Code:

---

1 2 3 4 5 6 7 8 9 10

Sheets("CB").Select Range("AG35:BG43").Select Selection.Copy Sheets("Feuil1").Select Range("A21:AB21").Select Selection.Insert Shift:=xlDown Range("AG28").Select Sheets("CB").Select Application.CutCopyMode = False Range.Formula = Range.Value

---

Citation:

---

Envoyé par pikben

J'ai lu différents sujets à ce propos mais je n'arrive pas à trouver une solution qui me convient.

---

Etant donné que ce que tu demandes est très basique, tu n'as pas dû chercher très longtemps... :?

Code:

---

1 2 3

Sheets("Feuil1").Range("A21:AB21").Insert Shift:=xlDown Sheets("CB").Range("AG35:BG43").Copy Sheets("Feuil1").Range("A21").PasteSpecial(xlPasteValues)

---

Il reste un problème dans ton code : les zones source et destination ne sont pas de la même taille.

Merci beaucoup pour ta réponse Menhir, et j'ai trouvé une solution pour les tailles de zones qui étaient différentes.

Bonne après-midi.