Ajouter un element composé

Bonjour,

J'ai une liste de lames sur une feuille Excel, le nom de la lame a le format suivant: Constructeur.Modele.N°.Mois.Annee.Stock

Pour ajouter une lame a ma liste on clique sur le bouton Ajout lame dans mon userform Menu, on a unserform avec des comboboxes, on choisit les éléments après on valide pour avoir le nom complet de la lame et qui se rajoute dans la feuille liste_lameM1

Le choix de chaque valeur se fait a partir de comboxes :

Constructeur==> ComboBox_Const

Modele==> ComboBox_Modele

N°==>ComboBox_Num

Mois==>TextBox_Mois

Annee==> TextBox_Annee

Stock==> ComboBox_Stock_Cmnd

j'ai rédigé ce code mais ca marche pas, que dois je modifier merci

Private Sub CommandButton1_Click()
Dim ws_liste_M1 As Worksheet
Dim fin_liste_M1 As Integer
Set ws_liste_M1 = ActiveWorkbook.Worksheets("Liste_Lame_M1")
fin_liste_M1 = ws_liste_M1.Range("A65533").End(xlUp).Row
If Me.ComboBox_Num.Value = "M1" Then
ws_liste_M1.Activate
ws_liste_M1.Cells(fin_liste_M1 + 1, 1) = Me.ComboBox_Const.Value & "-" & Me.ComboBox_Modele.Value & "-" & Me.ComboBox_Num.Value & "-" & Me.TextBox_Mois.Value & "-" & Me.TextBox_Annee.Value & "-" & Me.ComboBox_Stock_Cmnd.Value
End If
Unload Me
End SUB 

bonjour,

M1 c'est un modèle non ? pas un numéro. Remplace

If Me.ComboBox_Num.Value = "M1" Then

par

If Me.ComboBox_Modele.Value = "M1" Then

Ah oui, merci mais rien n'a changé… quand je retire la condition, la lame se rajoute a la liste apparemment ma condition n'est pas bien posée.

car si le Modelé est un M1, la lame se rajoute dans la feuille liste_LameM1, si c'est M2 c'est dans List_LameM2.... etc

Bonjour à tous,

Essai ainsi ...

Private Sub CommandButton1_Click()
Dim ws_liste As Worksheet
Dim fin_liste As Integer

    Set ws_liste = ActiveWorkbook.Worksheets("Liste_Lame_" & Me.ComboBox_Modele.Value)
    fin_liste = ws_liste.Range("A65533").End(xlUp).Row
    ws_liste.Cells(fin_liste + 1, 1) = Me.ComboBox_Const.Value & Me.ComboBox_Modele.Value & Me.ComboBox_Num.Value & Me.TextBox_Mois.Value & Me.TextBox_Annee.Value & Me.ComboBox_Stock_Cmnd.Value
    Unload Me
End Sub

ric

ric, mercii pour ton aide ca marche bien

ric