Discussion :

[Pignon F.]

Bonjour,
j'ai déjà vu qques post à ce sujet, mais rien n'y fait, je n'arrive pas à couper qques lignes d'une feuille pour les coller dans une autre feuille du meme classeur.

Voici mon code:

Code :

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

1
2
Worksheets("feuil1").Range(Cells(3, 1), Cells(Ligne, 4)).Cut
    Worksheets("feuil2").Paste Destination:=Worksheets("feuil2").Range(Cells(3, 1), Cells(Ligne, 4))

Merci d'avance!

[titou31000]

Moi je ferais d'abord la sélection de la plage que tu souhaite couper

Code :

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

Range("A1:A3").Select

par exemple

et ensuite

Code :

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

1
2
3
Selection.Cut
    Sheets("Feuil2").Select
    ActiveSheet.Paste

[Pignon F.]

Merci de ta réponse mais du coup comment sélectionner la cellule de départ de la feuil2 dans laquelle je veux faire mon collage?
Car dans ta proposition la destination du collage dans la feuille2 est la meme que la position initiale de la sélection dans la feuille 1, right?

[nibledispo]

bonjour,

utilise l'enregistreur macro qui fera le travail pour toi.

il te suffira ensuite :
- d'éliminer les lignes de codes superflues qu'ajoute généralement l'enregistreur.
- loger le bout de code créé ou tu le souhaites.
cordialement.

[SMBeccaria]

Bonjour,

essaie comme cela :

Code :

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

1
2
 
Worksheets("feuil1").Range(Cells(3, 1).address & ":" & Cells(Ligne, 4).address).Cut (Worksheets("feuil2").Range(Cells(3, 1).address & ":" & Cells(Ligne, 4).address)

[Pignon F.]

ok je vais me débrouiller avec ça. Merci à vous!