Discussion :

[Baptistepmd]

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

[Philippe Tulliez]

Bonjour,
Avant de commencer, je ne peux que vous conseiller de placer vos données dans un tableau structuré, bien plus simple à gérer que des plages classiques.
De plus, faire des recherches en utilisant des colonnes en "dur" comme "Colonnes(3)" va vous amener à la catastrophe dès que l'on va insérer des colonnes et de plus faire une recherche sur une colonne complète est parfaitement inutile et chronophage.

Pour pouvoir vous aider efficacement, il serait utile de publier une illustration de la manière dont sont organisées vos données avec une bonne explication des données que vous voulez extraire

Pour en savoir plus sur les tableaux structurés, je vous conseille la lecture de ces deux tutoriels de Pierre Fauconnier

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
• Excel: Les tables de données en VBA

[EDIT]

J'ai une erreur à la ligne : ws.Rows(WorksheetFunction.Match(serialNumber, ws.Columns(3), 0)).Columns(4).Value = montageRoues

Vous ne précisez pas quel type d'erreur. C'est clairement indiqué dans le message d'erreur. En général cela aide beaucoup

Par contre, je suis étonné que vous n'ayez pas eu déjà un problème sur les lignes suivantes

• "Sub CommandAjouter_Cliquer()" je ne connais pas d'événement Cliquer dans un UserForm. C'est plutôt CommandAjouter_Click()
• "controleDPI = controleDPI.Value". Si le UserForm a un TextBox nommé controleDPI, on ne peut évidemment pas avoir une variable portant le même nom donc Erreur(Argument ou appel de procédure incorrect)