[XL-2003] Ajouter une feuille depuis un UserForm

Ajouter une feuille depuis un UserForm

Bonjour à tous

Dans un fichier, j'ai une feuille (Vehicule) dont la colonne A me sert de donnée pour une liste déroulante dans un UserForm (UserForm1).

J'ai créer un second UserForm (UserForm2) qui me permet d'ajoutée des donnée à la liste déroulante.

Par exemple quand je suis sur le UserForm1 et que le vehicule que je veu n'est pas présent dans la liste, j'ouvre le UserForm2 pour ajouter se Véhicule.

Se que je voudrais, c'est que lorsqu'un véhicule est ajouté, une nouvelle feuille soit créée et qui porte le nom du véhicule ajouté.

Voici le code de mon UserForm2 qui contient une TextBox et un bouton :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton1_Click() Dim VeWs As Worksheet Set VeWs = Worksheets("Vehicule") i = VeWs.Range("A65536").End(xlUp).Row + 1 VeWs.Range("A" & i) = Me.TextBox1.Value UserForm2.Hide End Sub
Merci d'avance de votre aide et bonne année 2013 à tous

Bonsoir,

Comme ceci peut-être ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub CommandButton1_Click()
 
    Dim VeWs As Worksheet
 
    Set VeWs = Worksheets.Add(, Sheets(Sheets.Count))
 
    VeWs.Name = Me.TextBox1.Value
 
    'i = VeWs.Range("A65536").End(xlUp).Row + 1
    'VeWs.Range("A" & i) = Me.TextBox1.Value
 
    UserForm2.Hide
 
End Sub

Hervé.

Merci beaucoup de ton aide :ccool: :ccool: