Combobox

Dranreb

XLDnaute Barbatruc

• 22 Octobre 2011

• #2

Re : Combobox

Bonjour.
Ça devrait donner quelque chose comme ça:

VB:

Private Sub Valider_Click()
If ComboBox.ListIndex > -1 Then
   Worksheets Add
   ActiveSheet.Name = ComboBox.Value
   End If
End Sub

À +

 

Vote positif 0 Vote négatif

RENAUDER

Nous a quitté

Repose en paix

• 22 Octobre 2011

• #3

Re : Combobox

Bonjour Ivan et Dranreb,

Une autre variante

Code:

Sub cmdValider_Click()
    If Me.cboFeuille.ListIndex > -1 Then
        Worksheets.Add().Name = Me.cboFeuille.Text
    End If
    Unload Me
End Sub

 

Dernière édition: 22 Octobre 2011

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 22 Octobre 2011

• #4

Re : Combobox

Hello tout le monde 🙂

J'sais pas si j'ai bien compris, mais voici une version avec une Fonction (voir Module et merci à l'auteur !)

Bon week à tous !

 

Pièces jointes

• Test_Feuille.xlsm

  28.4 KB · Affichages: 66

Vote positif 0 Vote négatif

I

ivan34

Guest

• 23 Octobre 2011

• #5

Re : Combobox

Bonjour,

Je tenais à vous remercier. Cela fonctionne comme je veux. Merci pour votre promptitude.

Ivan

 

Vote positif 0 Vote négatif