Ajouter des données sous condition de positionnement

  • Initiateur de la discussion Initiateur de la discussion FaruSZ
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

FaruSZ

XLDnaute Occasionnel
Bonjour,
j'ai la liste suivante:
qqq.JPG


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;
VB:
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
 

Pièces jointes

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
 

Pièces jointes

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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
608
Retour