Copie une page et InputBox pour le nom

Fermé
Black11189 - 23 avril 2012 à 19:32
 Utilisateur anonyme - 23 avril 2012 à 20:51
Bonjour,
Dans Excel 2010, en VBA, je cherche a copier un onglet, puis a avoir un "inputbox" qui me demande le nouveau nom de l'onglet, puis la nouvelle page serait copie après ou au début. Et si possible ce nouvel onglet n'aurais pas de couleur (ou sinon en changeant le code je pourrais lui mettre une couleur). Ceci avec un Commandebutton.
Pour l'instant j'ai un code qui ressemble a ceci :

Private Sub CommandButton2_Click()

Sheets("IMP R").Select
'Sheets("IMP R").Copy After:=Sheets("IMP R")


Dim Rename_Sheet As String

Rename_Sheet = InputBox("Nouveau Nom :", "Titre", "Agent #")
If Rename_Sheet <> "" Then MsgBox Rename_Sheet
End If


Sheets("IMP R").Select
Sheets("IMP R").Copy After:=Sheets("IMP R")
Sheets("IMP R").Name = Rename_Sheet
With ActiveWorkbook.Sheets(("IMP R").Tab
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With

End Sub

Mais il en résulate surtout que je réussi a copier la page et en creez une autre, mais la page original a changer de nom ou "IMP R (2)". Bref, c'est pas génial

Quelqu'un aurais des suggestions ?

MErci

1 réponse

Utilisateur anonyme
23 avril 2012 à 20:51
Bonjour,

    Dim Rename_Sheet As String

    Sheets("IMP R").Select
    Rename_Sheet = InputBox("Nouveau Nom :", "Titre", "Agent #")
    If Rename_Sheet <> "" Then
        MsgBox Rename_Sheet
    End If
    Sheets("IMP R").Select
    Sheets("IMP R").Copy After:=Sheets("IMP R")
    ActiveSheet.Name = Rename_Sheet
    
    Sheets(Rename_Sheet).Select
    With ActiveWorkbook.Sheets(Rename_Sheet).Tab
        .ColorIndex = xlNone
        .TintAndShade = 0
    End With


Cdt

Lupin
0