Ajouter des données sous condition de positionnement

[FaruSZ]

Bonjour,
j'ai la liste suivante:

Je veux ajouter des éléments dans les colonnes C, E, G, … jusqu'à la dernière colonne.
l'idée est de chercher le numéro qui dans la ligne 1 dans les colonnes C, E, G, comparer sa valeur avec une valeur chois a partir d'une comobobox ( Combobox_Num) si le numéro a été trouvée on le rajoute dans la bonne colonne.
Par exemple si je choisi 002 a partir de ma combobox, donc la donnée se rajoute dans la colonne E ligne 7, sans oublier que il faut que rajoute la date dans la colonne de coté (colonne F pour cette exmeple)
j'ai rédigé ce code mais j'ai aucune données qui se rajoute :/ quelqu'un peut identifier mon erreur merci;

Private Sub CommandButton1_Click()
If Me.ComboBox_Lame.Value = "" Then
    MsgBox ("Veuillez choisir une lame")
Else
'Nom_Lame = Me.ComboBox_Lame.Value
Num_Lame = Me.ComboBox_Num.Value

Dim ws_verifM1 As Worksheet
Set ws_verifM1 = ActiveWorkbook.Worksheets("Verif_M1")
fin_liste = ws_verifM1.Range("A" & Rows.Count).End(xlUp).Row
'fin_col = ws_verifM1.Cells(1, Columns.Count).End(xlToLeft).Column

Dim Plage As Range
Set Plage = ws_verifM1.Rows(1)

Set Trouve = Plage.Cells.Find(what:=Num_Lame)
If Trouve Is Nothing Then
Else
    ws_verifM1.Cells(1, Trouve.Column).Value = Num_Lame
   
    ws_verifM1.Cells(Trouve.Rows, 3) = Me.ComboBox_Lame.Value & Me.ComboBox_Operation.Value
    ws_verifM1.Cells(Trouve.Rows, 4) = Me.TextBox_Date.Value
End If
End If
Unload Me
End Sub

Fichier: consulter feuille Verif_M1

 

[fanfan38]

Bonjour
J'ai fait des modifs sur M2
A savoir si ça te convient...
on peut prévoir une mise à jour automatique des données
exemple si verification d'une lame mettre la date de la dernière vérification sur la feuille des lames en plus de la date sur la feuille verif
A+ François

 

[FaruSZ]

Bonjour
J'ai fait des modifs sur M2
A savoir si ça te convient...
on peut prévoir une mise à jour automatique des données
exemple si verification d'une lame mettre la date de la dernière vérification sur la feuille des lames en plus de la date sur la feuille verif
A+ François

Merci bcp pour ton aide, j'ai adapté ton code selon mes besoins, j'ai une question comment je désactive la mise a jour du userform après avoir ajouter une vérification.
aussi comment faire pour ajouter une verification pour les lames 2, 3 , 4... N en les mettant dans les bonnes colonnes, c'est a dire: E, G, I... respectivement.
dans le fichier joint, cliquez sur le bouton de la feuille Verif_M2.
MERCI