Discussion :

[FCL31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonsoir,

Comme ceci peut-être ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[FCL31]

Merci beaucoup de ton aide