Dupliquer X fois la même feuille a condition

bonsoir
Je veux dupliquer un onglet plusieurs fois à condition un message apparaitre est introduire le nombre x fois pour dupliquer l'onglet , et aussi le duplique soit en série de tel sorte rapport 1, rapport 2, rapport 3, rapport 4, rapport 5, ... ( avec code vba et un bouton clik pour aperçus le msgbox de introduire nombre de x onglet)

merci

Bonsoir nizar2015, le forum,

Un essai.....

Sub Bouton1_Cliquer()
 Dim i%, nbcopie
  nbcopie = InputBox("Nombre de copies ", "Copie")
   For i = 1 To nbcopie
    Sheets("rapport").Copy After:=Sheets(Sheets.Count)
     ActiveSheet.Name = "Rapport " & i
     ActiveSheet.Shapes.Range(Array("Créer_onglet")).Delete
   Next i
End Sub

Cordialement,

Bonjour,

Alternative à xorsankukai

En supposant que c'est toujours rapport1 que vous dupliquer, essayez ce code

Sub Dupliquer()
Dim NbOnglet As Byte, i As Byte, j As Byte
Dim Existe As Boolean

NbOnglet = Application.InputBox("Entrer le nombre de feuille a dupliquer", "Nombre de feuille", 1, Type:=1)
If vbYes = 6 Then
    For i = 1 To Sheets.Count
        If Sheets(i).Name Like "rapport*" Then j = j + 1
    Next i
    With Sheets("rapport1")
        For i = 1 To NbOnglet
            .Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = "rapport" & j + 1
            ActiveSheet.DrawingObjects(1).Delete
            j = j + 1
        Next i
    End With
End If
End Sub

Ajoutez au préalable un bouton sur votre feuille Rapport1 puis associez-le au code ci-dessus

Cordialement

svp aider moi

Re,

"xorsankukai" si s'ajoute une autrefois une erreur apparaitre

Effectivement, si la feuille a créer existe déjà, la macro plante....

Un correctif.....la macro copie la(les) onglet(s) sélectionné(s)...

Cordialement,

Merci "Dan'" aussi sa marche très bien mais svp aider moi quand je protégeais la feille "rapport" et après je fais dupliquer elle m'apparaitre une erreur

mais par contre code "dan" parfait mais aider mois pour corriger l'erreur qui appaitre si je protege quelques cellules de la page cad. je veux protéger la feille 'rapport'

Dans le code que je vous ai proposé, remplacez ces deux lignes

ActiveSheet.Name = "rapport" & j + 1
ActiveSheet.DrawingObjects(1).Delete

par ces 4 lignes

            With ActiveSheet
                .Name = "rapport" & j + 1
                .Unprotect
                .DrawingObjects(1).Delete
                .Protect
            End With

Le code suppose que votre feuille est protégée mais sans mot de passe.

Cordialement

Merci Dan fontionne tres bien
merci aussi xorsankukai