Copie d'1 feuille en la nommant par un combobox

[Dull]

Salut le Forum,

J'ai un petit problème, certainement facile à résoudre mais...

Alors voilà j'ai dans un classeur, une feuille à copier en dernier en vba (ça c'est fait!) mais comment la nommée à partir de données d'un combobox dans un userform ?

Heu!!! Ai-je été assez clair?

@+ :woohoo:

 

[porcinet82]

Salut Dull,

Comme un exemple vaut mieux qu'un long discours, je te laisse regarder le fichier joint.

[file name=Dull.zip size=9351]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Dull.zip[/file]

@+

 

[Dull]

Salut porcinet82, le forum,

Merci beaucoup porcinet82... mais... parce qu'il y en à un, ce que je voudrais que
1/le CommandButton1 me copie la feuille active
2/me la renomme selon le combobox1 et
3/me la copie en dernier
(je te jure, la prochaine fois je joint mon '#@ :evil: :whistle: XXX &## Arf!!! inch: de fichier')et encore j'suis poli!

@+ :woohoo:

 

[porcinet82]

re,

Il te suffit de modifier le code du bouton du USF en mettant ca a la place de ce qu'il y avait :

Private Sub CommandButton1_Click()
    ActiveSheet.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = UserForm1.ComboBox1.Value
End Sub

@+

 

[Dull]

Re:

eh bin voila! je te remercie beaucoup de ta réponse. (Une bonne chose de faite).

@+ :woohoo: