copier et coller cellule en vba

[mcz29]

bonjour,
je souhaite copier chaque cellule d'une plage d'une feuille puis copier cette cellule sur une autre plage (et ainsi pour toutes les cellules de la plage) mais je bute sur le code.

Sub Macro1()

Dim cel As Range

    Sheets("Récupéré_Feuil1").Select
    For Each cel In Range("a7:a80")
      Selection.Copy
      
    Sheets("FV_300906").Select
   Range("A3").Select
    ActiveSheet.Paste
    'Application.CutCopyMode = False
    'ActiveWindow.SelectedSheets.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next cel
    
End Sub

merci

 

[pierrejean]

Re : copier et coller cellule en vba

bonjour Sandrine

avec ton code tu copies chaque cellule mais toujours sur la même (A3 de la feuille Fv_...

teste

Sheets("Récupéré_Feuil1").Range("a7:a80").Copy destination:=Sheets("FV_300906").Range("A3")

 

[mcz29]

Re : copier et coller cellule en vba

Merci pierrejean mais je souhaite que chaque cellule de ma plage se colle sur l'autre feuille et s'imprime.(ta macro colle toute la plage d'un seul coup)

En fait, j'ai sur la feuille FV_300906 une formule de recherche et je souhaite imprimer pour chaque personne une fiche particulière et je ne veux pas le faire à la main pour les 80 personnes !

la cellule à copier c'est le nom de la personne, je dois donc copier chaque cellule une par une puis la coller sur FV_300906 et imprimer cette feuille et ainsi de suite pour les 80 noms.

merci

 

[michel_m]

Re : copier et coller cellule en vba

Bonjour Sandrine, Pieerejean

ci dessous proposition ( remettre le nom réel des feuilles)

Sub Macro1()

Dim cel As Range
Sheets(1).Select
For Each cel In Range("a7:a80")
Sheets(2).Range("A3") = cel.Value
ActiveWindow.SelectedSheets.PrintOut
Next cel

End Sub

Bon fin d'aprem

 

[mcz29]

Re : copier et coller cellule en vba

merci beaucoup, çà marche
j'ai juste ajouter avant le code pour imprimer Sheets("FV_300906").Select sinon çà m'imprime la mauvaise feuille.
a+