Bonjour à tous,
j'essaye depuis quelques temps de faire un WIP (work in progress) pour ma société et améliorer l'efficacité des opérateur. J'apprends petit à petit le VBA mais j'avoue que je ne comprends pas tout. Mon idée est d'avoir le tableau avec les informations essentielles avec quelques boutons interactifs. Voici une partie de mon code, avec quelques explications pour vous permettre de le comprendre.

Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub CommandAjouter_Cliquer()
' Déclaration des variables
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim serialNumber As Variant
    Dim montageRoues As Boolean
    Dim montageChargeurs As Boolean
    Dim controleDPI As Boolean
    Dim confirmation As VbMsgBoxResult
    Dim rowFound As Variant
 
    ' Définir la feuille de calcul "WIP MF"
    Set ws = ThisWorkbook.Sheets("WIP MF")
 
    ' Demander le numéro de série à l'utilisateur
    serialNumber = InputBox("Entrez le numéro de série")
 
     ' Vérifier si le numéro de série existe
    If WorksheetFunction.CountIf(ws.Columns(3), serialNumber) > 0 Then
 
        montageRoues = roue.Value
        montageChargeurs = chargeurs.Value
        controleDPI = controleDPI.Value
 
        ' Mettre à jour l'état du montage de roues dans la feuille de calcul
        ws.Rows(WorksheetFunction.Match(serialNumber, ws.Columns(3), 0)).Columns(4).Value = montageRoues
        ws.Rows(WorksheetFunction.Match(serialNumber, ws.Columns(3), 0)).Columns(5).Value = montageChargeurs
        ws.Rows(WorksheetFunction.Match(serialNumber, ws.Columns(3), 0)).Columns(6).Value = controleDPI
 
        MsgBox "L'état du montage de a été mis à jour pour le numéro de série " & serialNumber
 
    Else
        ' Afficher une boîte de dialogue de confirmation
        confirmation = MsgBox("Etes-vous sûr du numéros de chassis" & serialNumber & " ?", vbYesNo + vbQuestion)
 
        If confirmation = vbYes Then
            MsgBox "Ajout de la date d'entrée"
 
        Else
            MsgBox "Retour au Tableau"
        End If
    End If
End Sub


J'ai une erreur à la ligne : ws.Rows(WorksheetFunction.Match(serialNumber, ws.Columns(3), 0)).Columns(4).Value = montageRoues
si quelqu'un peux m'aider il me serait d'une grande aide
Merci