combobox à la place d'un commandbutton

[Mimi]

Bonjour à tous,
J'ai une base de donnée avec des noms, je sélectionne un nom et avec le commandbutton je fais une nouvelle feuille avec le modèle, avec le nom sélectionné, jusque la tout va bien.
Ce que je recherche, c'est avec mon userform (avec combobox et bouton valider) de faire la même chose.
Je vous joint un petit fichier.
D'avance merci
Mimi

 

[Lolote83]

Re : combobox à la place d'un commandbutton

Salut Mimi,
en reprenant ton code simplement

Private Sub CommandButton1_Click()
    On Error Resume Next
    [B]a = ComboBox1.Value[/B]
    Sheets(a).Activate
    If ActiveSheet.Name <> a Then
    Sheets("Modele").Copy before:=Sheets("Modele")
    Sheets(Sheets.Count - 1).Name = a
    Sheets(a).Visible = True
    End If
End Sub

Ca devrait fonctionner
Cordialement
Lolote83

 

[Mimi]

Re : combobox à la place d'un commandbutton

Bonjour Lolote,
Le résultat est parfait.
J'avais essayé mais j'avais un message d'erreur.
Je l'ai adapter à mon userform et la aussi j'avais le message, du coup dans le VBA j'ai enlever Option Explicit et sa marche, je ne comprend pas pourquoi ??
Encore merci
Mimi