utilisation Items Combobox

Version imprimable

Bonjour à tous,

J'ai un combobox sur un userform avec 16 items. chaque item correspond au nom d'une feuille dans thisworkbook.
J'aimerai que lorqu'un item est choisi qu'un nouveau classeur s'ouvre et que l'on copie toute la feuille(comboBox.text) de thisworkbook dans une nouvelle feuille(ComboBox.text) du nouveau classeur.
J'ai écris le code suivant mais à chque item choisi un nouveau classeur s'ouvre.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub ComboBox1_Change() Dim NewSheet As Variant ThisWorkbook.Worksheets(ComboBox1.Text).UsedRange.Copy Set NewSheet = Workbooks.Add NewSheet.ActiveSheet.Paste ActiveSheet.Name = ComboBox1 [A1].Select End Sub
Merci pour votre aide

Bonjour,

Tu peux essayer comme ceci :

Code:

1
2
3
'variables à déclarer en tête des procédures
Dim NbrFeuil As Byte
Dim WbNew As Workbook, WbOri As Workbook

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ComboBox1_Change()
 
NbrFeuil = NbrFeuil + 1
 
If NbrFeuil = 1 Then
    'si c'est la première sélection on crée un nouveau classeur avec la feuille sélectionnée
    Set WbOri = ThisWorkbook
    Sheets(Me.ComboBox1.Text).Copy
    Set WbNew = ActiveWorkbook
Else
    'sinon on ajoute les feuilles sélectionnées au classeur créé
    WbOri.Sheets(Me.ComboBox1.Text).Copy After:=WbNew.Sheets(Sheets.Count)
End If
 
End Sub

Et dans le bouton qui ferme ton UserForm

Code:

1
2
3
4
Private Sub CommandButton1_Click()
    Unload Me
    NbrFeuil = 0 '<-- remet le compteur à 0 pour la création d'un nouveau classeur lors de la prochaine utilisation
End Sub

26/08/2008, 15h00
bmeda72

Merci Fring,

J'ai essayé le code mais il bloc sur la ligne - Sheets(Me.ComboBox1.Text).Copy - avec cette erreur " La methode copie de la classe worksheet a éhoué.

Comment faire