Copier Cellules de la feuille 1 a la feuille 2

Bonjour ,

Sub Copie_F1()
'
Dim maPlage As Range
Dim maPlage2 As Range
Dim DernLigne As Long, DernColonne As Integer

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

    Sheets("Facture_1").Select

    Set maPlage = Range(Cells(17, 1), Cells(DernLigne, 7))
    Selection.Copy
    Sheets("Facture_2").Select
    'Set maPlage2 = Range(Cells(17, 1), Cells(DernLigne, 7))
    'Range(maPlage2).Select
    ActiveSheet.Paste
    'Selection.Paste

End Sub

Je souhaite copier une partie de cellules de la feuille 1 vers la feuille 2

lorsque j execute la macro je vois mes cellules et texte qui sont copiées mais elles disparaissent aussitot.

J ai essayé plusieurs choses mais impossible de trouver la bonne solution

Pouvez vous m aider ?

Cordialement

Bonjour Laurent 696969, le forum,

A tester:

Sub Copie_F1()
'
Dim maPlage As Range, DernLigne As Long

  With Sheets("Facture_1")
   DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
    Set maPlage = .Range(Cells(17, 1), Cells(DernLigne, 7))
     maPlage.Copy Sheets("Facture_2").Cells(17, 1)
  End With
End Sub

Cordialement,

Au lieu de Selection.Copy mettez maPlage.Copy

xorSankukai tu as été plus rapide

A tester:

Sub Copie_F1()

'

Dim maPlage As Range, DernLigne As Long

With Sheets("Facture_1")

DernLigne = .Range("A" & Rows.Count).End(xlUp).Row

Set maPlage = .Range(Cells(17, 1), Cells(DernLigne, 7))

maPlage.Copy Sheets("Facture_2").Cells(17, 1)

End With

End Sub

Cordialement,

Bonjour ,

Cela ne fontionne pas malheureusement , en elevant le "." devant Range("A" & Rows.Count).End(xlUp).Row et Range(Cells(17, 1), Cells(DernLigne, 7))

Le code me copie la première ligne uniquement , faut t'il les enlever les "." ou alors je fais fausse route ?

Cordialement

Re,

Merci pour le retour,

Pourquoi le "." devant range ?

Parce que j'ai stipulé With Sheets("Facture_1") , donc tous les .range ne concernent que cette feuille.

On copie donc la plage (A17 : G et dernière ligne) sur la feuille 2, et on colle cette plage à partir de A17.

Ce n'est pas ce que tu voulais ?

Cordialement,

re ,

Si , c'est tout a fait ce que je veux , j ai copié le code et j ai le droit a une erreur 400 :/

mes débuts en VBA sont compliqué mdr

même a l exécution pas a pas , ca plante sur a la première ligne de lecture :(

et ton fichier fonctionne très bien ! je vais m arracher le peu de cheveux qu il me reste xD

Re,

Autant pour moi.....je pensais que le fait de mettre .range

Set maPlage = .Range(Cells(17, 1), Cells(DernLigne, 7))

me dispensait de le faire sur les cells, mais il semble que non.....

Donc

Sub Copie_F1()
'
Dim maPlage As Range, DernLigne As Long

  With Sheets("Facture_1")
   DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
    Set maPlage = .Range(.Cells(17, 1), .Cells(DernLigne, 7))
     maPlage.Copy Sheets("Facture_2").Cells(17, 1)
  End With
   Sheets("Facture_2").Activate
End Sub

Bonne continuation,

Re !

Super ca fonctionne !!! Merci beaucoup !!