Discussion :

[pikben]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pikben]

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.