Copier feuil1 vers feuil de notre coix

[maval]

Bonjour


Est-il possible de copier toutes la feuille 1 vers une feuille de notre choix

Merci d'avance

 

[Pierrot93]

Re : Copier feuil1 vers feuil de notre coix

Bonjour,

voir aussi ici :
Ajouter et Copier un onglet : Excel - VBA
bonne journée
@+

 

[Lolote83]

Re : Copier feuil1 vers feuil de notre coix

Salut,
Tout d'abord, je profite pour te souhaiter une bonne année 2015.
Maintenant, voici un petit code qui devrait correspondre à ta demande

Sub CopieColleFeuilleChoix()
Début:
    xRep = InputBox("Indiquer la feuille de copie", "COPIE")
    For Each xFeuille In ActiveWorkbook.Sheets
        If xFeuille.Name = xRep Then
            GoTo Suite
        End If
    Next xFeuille
    xMess = Empty
    xMess = xMess & "La feuille " & xRep & " n'existe pas" & Chr(13)
    xMess = xMess & "Veuillez ressaisir un nom de feuille correct"
    MsgBox xMess, vbCritical, "NOM FEUILLE"
    GoTo Début
Suite:
    ActiveSheet.Cells.Copy
    Sheets(xRep).Paste
End Sub

Cordialement
Lolote83

 

[MJ13]

Re : Copier feuil1 vers feuil de notre coix

Bonjour à tous

On peut faire ainsi, code à adapter. On peux rajouter aussi le Workbooks avant le sheets.

Sub a()
Sheets("Feuil1").Cells.Copy Sheets("Feuil2").[A1]
End Sub
Sub b()
Sheets(ActiveSheet.Name).Cells.Copy Sheets(Sheets.Count).[A1]
End Sub

 

[maval]

Re : Copier feuil1 vers feuil de notre coix

Bonjour et bonne année

Je vous remercie beaucoup et vous souhaite une bonne journée