XL 2016 Ajouter des données dans colonnes différentes

[FaruSZ]

Bonjour,
J'ai le tableau suivant:

Je veux ajouter des données dans les colonnes: D,E,F,G / I,J,K,L / N,O,P,Q ...etc
a partir d'une liste on choisi le nom de la lame qui est dans les colonnes : C, H, M … dans ma feuille ((Cycle_Vie_M1).
On clique sur un bouton on a un formulaire qui s'affiche on choist la lame:

puis on a le formulaire suivant ou on peut introduire les valeurs qui doivent se rajouter dan les colonnes que j'ai mentionné en haut.:

J'ai rédigé ce code mais j'ai aucune donnée qui se rajoute dans ma feuille quelqu'un pourrait me dire qu'est ce qui manque dans mon code merci a vous.

Private Sub CommandButton1_Click()
Dim ws_Cycle_M1 As Worksheet
Set ws_Cycle_M1 = ActiveWorkbook.Worksheets("Cycle_Vie_M1")
fin_liste_Cycle_M1 = ws_Cycle_M1.Range("A65533").End(xlUp).Row

Nom_Lame = UF_Ajout_Lame_M1.ListBox1.List(UF_Ajout_Lame_M1.ListBox1.ListIndex, 0)
Dim sCol!
Dim Y%, X%
    sCol = 3 + (UF_Ajout_Lame_M1.ListBox1.ListIndex * 5)
    Dim Plage As Range
        Set Plage = ws_Cycle_M1.Range("C2:C" & sCol)
        Nom_Lame = UF_Ajout_Lame_M1.ListBox1.List(UF_Ajout_Lame_M1.ListBox1.ListIndex, 0)
        Set Trouve = Plage.Cells.Find(what:=Nom_Lame, lookat:=xlWhole)
If Trouve Is Nothing Then
  With Worksheets("Cycle_Vie_M1")
 
        For X = 2 To .Cells(Rows.Count, sCol).End(xlUp).Row
        .Cells(X, sCol) = Nom_Lame
        .Cells(X, sCol + 1) = Me.TextBox_Long.Value
        .Cells(X, sCol + 2) = Me.ComboBox_Tens.Value
        .Cells(X, sCol + 3) = Me.ComboBox_Type.Value
        .Cells(X, sCol + 4) = Me.ComboBox_Nomb.Value

        Next X
    End With
End If

Unload Me

End Sub

 

[Dranreb]

Bonjour.
Vous auriez meilleur temps de travailler sur une seule liste de lames quitte à avoir une colonne qui indique que c'est une lame M1 ou M2 etc. avec une ComboBox dessus, et d'utiliser cette fourniture pour la consulter et la mettre à jour :

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com