Ajouter et Copier un onglet

Bonjour

Je suis à la recherche d'un code VBA pour ajouter une feuille, et copier a l'identique la feuil1 à une feuil de notre choix si possible.

Merci d'avance

Cordialement

Maval

Bonjour

la meilleure façon de copier le contenu d'un onglet c'est de le dupliquer.

Clic droit sur le nom de l'onglet à copier

==>sélectionner "Déplacer ou copier"

==>utiliser les boites de dialogue pour positionner la copie soit dans le classeur soit dans un nouveau classeur

==> cocher la case copier et valider

un double de l'onglet est créé.... on modifie son nom...

Si ça marche manuellement, refaire la procédure en enregistrant les étapes dans une macro

Cordialement

FINDRH

Hello,

Sans plus de précision (veux-tu renommer la nouvelle feuille ? etc..)

Sub Copie_feuille_active()
       ActiveSheet.Copy After:=ActiveSheet
End Sub

Re,

Pour ce qui sa intéresse voici le code

Private Sub CommandButton1_Click() ' Bouton Valide
    If TextBox1 <> "" Then
        Sheets.Add
        On Error Resume Next
        ActiveSheet.Name = TextBox1
        If Err <> 0 Then
            On Error GoTo 0
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            Application.DisplayAlerts = True
            MsgBox " Nom de feuille incorrect"
            TextBox1 = ""
            Exit Sub
        End If
        ActiveSheet.Move After:=Sheets(ActiveWorkbook.Worksheets.Count) ' Placer la feuille à la suite
        Sheets("Accueil").Range("A1").Copy ActiveSheet.Range("A1") ' avec lien vers la feuille accueil

         'Sheets.Add After:=Sheets(Sheets.Count)
        Sheets("Accueil").Range("A:W").Copy Destination:=Sheets(Sheets.Count).Range("A1")

        Unload Me
    End If

End Sub

Max

Content de voir que tu as trouvé ton bonheur