XL 2016 Erreur dans code VBA

[piga25]

Bonjour,
Dans le fichier joint, en cliquant dans une cellule du tableau cela ouvre un Userform. C'est là que j'ai un problème, après avoir renseigné les 3 combobox de l'EPI concerné, le code suivant devrait normalement me renseigner les 2 label (dernière vérification) - Je n'arrive pas a afficher la ligne qui correspond au critères des 3 combobox.

Private Sub RenseignerLabels()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim rowNum As Long

    ' Boucle à partir de la ligne 6 jusqu'à la dernière ligne non vide de la colonne A
    For rowNum = 6 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        ' Vérifie si les valeurs des cellules correspondent aux ComboBox 1, 3 et 4
        If ws.Cells(rowNum, 1).Value = Me.ComboBox1.Value And _
           ws.Cells(rowNum, 3).Value = Me.ComboBox3.Value And _
           ws.Cells(rowNum, 4).Value = Me.ComboBox4.Value Then
          
            ' Remplir Label10 avec la valeur de la colonne 11 (date de vérification)
            Me.Label10.Caption = ws.Cells(rowNum, 11).Value ' Date de vérification

            ' Remplir Label11 avec la valeur de la colonne 5 (statut)
            Me.Label11.Caption = ws.Cells(rowNum, 5).Value ' Statut

            ' Afficher le numéro de la ligne dans un label (par exemple Label12)
            'Me.Label12.Caption = "Ligne correspondante : " & rowNum

            ' Quitter la boucle une fois la ligne correspondante trouvée
            Exit For
        End If
    Next rowNum
End Sub

 

[patricktoulon]

re
bonjour bonjour

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

 

[piga25]

J'ai complété l'userform pour l'ajout de matériel, (marque, date de fabrication et date mise en service).
Par contre je ne saisie pas bien pourquoi les dates de fabrication et mise en service ne se renseignent pas bien.

C'est bon j'ai trouvé l'erreur. C'est ce qui arrive quand on applique pas les bons conseils, c'est à dire nommer les combobox et les textbox.

 

[piga25]

Re,
Y a t'il un moyen de ne pas retaper entièrement le n° de serie lors de l'ajout d'un nouveau materiel.
En effet lorsque je vais devoir entrer 200 à 300 mousquetons avec des N° de série qui se suivent le plus souvent.
Exemple d'un n° de série :

exemple : pour le premier je mets : 152472753A , 152472754A et 152472755A
il se peut que des n° ne suivent pas parfaitement : 152472758A, 152472759A, 152472823A etc

Donc ma question est : lorsque je clique sur le bouton ajouter, je rentre bien les données dans le tableau, par contre si je change le n° pour un second article, cela me modifie le précédent article rentrée.
Est-il possible d'ajouter une commande pour cela dans combobox4-change()

 

[patricktoulon]

re
non là il va falloir enlever l'auto completion(matchentrynone)
et faire une petite boucle de sub remplissage de la combo
ca va devenir un sac de noeuds ton truc
je réfléchirais demain sur cette question 😉

 

[piga25]

re
non là il va falloir enlever l'auto completion(matchentrynone)
et faire une petite boucle de sub remplissage de la combo
ca va devenir un sac de noeuds ton truc
je réfléchirais demain sur cette question 😉

Ok merci

 

[ChTi160]

Bonjour le fil
piga25
tu dis :

Y a t'il un moyen de ne pas retaper entièrement le n° de serie lors de l'ajout d'un nouveau materiel.
En effet lorsque je vais devoir entrer 200 à 300 mousquetons avec des N° de série qui se suivent le plus souvent.

pour quels matériels as tu des Numéros de série?
quel format ont ils
lorsque tu entres un un nouveau matériel qui a -t'il comme données a rentrer a la suite du Numéro de série ?
ne peut on imaginer un Masque (multiple choix selon matériel) pour entrer les Données ?
ne peux tu pas entrer une Ligne pour l'ensemble de tes N° de série .
une Ligne avec :
matériel : xxxxxxx | 152472753A | 152472900A | xxxxx | yyyyyyy | xxxxxx etc ? (désignation du matériel)
matériel : yyyyyyy | 152472758A | 152472759A | aaaaa | cccccccc |vvvvvvv etc ? (idem)
Bonne Journée
Jean marie

 

[piga25]

pour quels matériels as tu des Numéros de série?
quel format ont ils
lorsque tu entres un un nouveau matériel qui a -t'il comme données a rentrer a la suite du Numéro de série

1 - Tous les EPI ont un numéro de série unique. Chaque matériel doit avoir un n° différent.
2 - Le format de ces n° de série varie en fonction des marques. Généralement il est situé à la fin des série de chiffre (généralement les 4 à 6 derniers)
3 - J'avais pensé qu'en cliquant sur bouton ajouter cela me rentre bien le matériel, comme cela garde en mémoire dans l'USERFORM les référence du matériel entré, il faudrait que la variable ligne s'incrémente de 1 et ainsi de suite. Ce qui permet de changer uniquement la partie du n° de série qui change.

 

[ChTi160]

Re
pas tout compris mais bon ! lol
et pour cela je ne sais pas si je me fais bien comprendre !

ne peut on imaginer un Masque (multiple choix selon matériel) pour entrer les Données ?
ne peux tu pas entrer une Ligne pour l'ensemble de tes N° de série .
une Ligne avec :
matériel : xxxxxxx | 152472753A | 152472900A | xxxxx | yyyyyyy | xxxxxx etc ? (désignation du matériel)
matériel : yyyyyyy | 152472758A | 152472759A | aaaaa | cccccccc |vvvvvvv etc ? (idem)

exemple :

Corde	BEAL	10,5 blanche liseret bleu-vert - 100m	24-230-j456 - 2	24-230-j456 - 3	Sûr à l'emploi	12:00:00 AM	31/12/1909		12:00:00 AM	15/11/2023	15/11/2024​
Corde	BEAL	10,5 blanche liseret bleu-vert - 50m	24-230-j456 - 1	24-230-j456 - 4	Sûr à l'emploi	12:00:00 AM	31/12/1909		12:00:00 AM	16/09/2024	16/09/2025​

pas évident lol
jean marie

 

[piga25]

Re
La nouvelle réglementation européenne qui doit entrer en vigueur cette année, nous oblige à avoir un registre ou chaque matériel est identifié par un n° de série unique pour les contrôles de vérification.

Auparavant nous avions la possibilité d'avoir des lots, exemple: 150 mousquetons de tel type, donc 01 seule ligne sur le registre.
Avec cette nouvelle réglementation, il me faut 150 lignes pour ce lot de mousquetons. (Merci l'Europe)

Donc quand je vais entrer ces matériels dans le fichier, je fais le faire lot par lot, ce qui me permettra d'avoir des n° de série similaire pour le lot.

En espérant avoir plus clair.
Merci

 

[ChTi160]

Bonjour le Fil
juste pour imager mon idée #52 !
Bonne fin de Journée
Jean marie

 

[piga25]

juste pour imager mon idée #52 !

Re
Oui l'idée est bonne mais cela ne va pas mettre utile car dans les lots que j'ai je ne sais pas si les numéros de série se suivent ou pas. Cela serait bien si c'était moi qui gravais ces numéros, mais ce n'est pas le cas.

Je voyais plus faire une boucle pour réinitialiser la procédure boutonAjouter_Click, avec un invit dans une msgbox. Si oui, alors le nmr de ligne s'incrémente de 1, et je change manuellement la partie du n° de série dans la combobox4.
Mais il faudrait auparavant réactualisé les filtres afin que la dernière donnée soit prise en compte dans la liste de la combobox4.

 

[piga25]

Re,
Un début de piste:

Private Sub boutonAjouter_Click()
    Dim lig As Integer
    lig = UBound(tbl) + 1

    If tbl(lig - 1, 1) <> "" Then
        On Error Resume Next
        With [A6].ListObject.DataBodyRange
            .Cells(lig, 1) = ComboBox1 'Description
            .Cells(lig, 2) = ComboBox2 'Marque
            .Cells(lig, 3) = ComboBox3 'Modèle
            .Cells(lig, 4) = ComboBox4 'N° de série
            .Cells(lig, 6) = CDate(TextBox4) 'Date de fabrication
            .Cells(lig, 9) = CDate(TextBox5) 'Date de mise en service
        End With
    End If
    ' Demander le nombre de lignes à ajouter
    Dim nbLignes As Integer
    nbLignes = InputBox("Veuillez saisir le nombre de lignes à ajouter :")

    ' Vérifier si l'utilisateur a saisi un nombre valide
    If IsNumeric(nbLignes) Then
        ' Boucle pour ajouter le nombre de lignes demandé
        For i = lig + 1 To lig + nbLignes
            With [A6].ListObject.DataBodyRange
                ' Copie des lignes précédentes, sauf pour la ComboBox4 qui est incrémentée
                .Cells(i, 1) = .Cells(i - 1, 1) 'Description
                .Cells(i, 2) = .Cells(i - 1, 2) 'Marque
                .Cells(i, 3) = .Cells(i - 1, 3) 'Modèle
                .Cells(i, 4) = .Cells(i - 1, 4) + 1 ' Incrémentation de la ComboBox4
                .Cells(i, 6) = .Cells(i - 1, 6) 'Date de fabrication
                .Cells(i, 9) = .Cells(i - 1, 9) 'Date de mise en service
            End With
        Next i
    Else
        MsgBox "Veuillez saisir un nombre valide.", vbExclamation
    End If
End Sub

 

[ChTi160]

Re
J'ai encore rien compris lol
Je pensais que tu avais les limites des séries .... Apparemment pas lol
Oupsss mais comment fais tu pour savoir ça ?

Demander le nombre de lignes à ajouter

autre question :
tu dis :

Donc quand je vais entrer ces matériels dans le fichier, je fais le faire lot par lot, ce qui me permettra d'avoir des n° de série similaire pour le lot.

aurais tu des exemple de ce que tu as et de ce que tu veux ,
tu parles : de Lot et d'avoir des n° de série similaire pour le lot.
merci par avance
Bonne continuation
Jean marie

 

[piga25]

Re,

J'ai encore rien compris lol
Je pensais que tu avais les limites des séries .... Apparemment pas lol
Oupsss mais comment fais tu pour savoir ça ?

Pour mettre à jour notre nouveau registre, nous seront obligé de lire les n° de série sur chaque matériel. En le faisant par lot, nous auront plus de change pour avoir des n° de série se rapprochant.
Dans le code que j'ai joins, c'est vrai que j'ai mis :

' Demander le nombre de lignes à ajouter Dim nbLignes As Integer nbLignes = InputBox("Veuillez saisir le nombre de lignes à ajouter :")

Je pense qu'une ligne à la fois suffit, car à la prochaine entrée, on modifie uniquement une partie du n° de série et ainsi de suite.
Cela n'est pas simple à réaliser car en plus je pense qu'il faudra faire une vérification si c'est un doublon.

Pour certains produits (genre textile cela sera simple car on va pouvoir écrire un n° de serie dessus et qui se suivent).
Par contre pour tout ce qui est métallique on ne peut pas car si on le fait on modifie les caractéristiques du produit à moins d'être équipé comme dans l'usine de fabrication d'un laser (merci aux bureaucrates de l'Europe)

 

[ChTi160]

re
c'est la dernière lol
dans ton ancien système pour répertorie tes matériels , tu avais quoi comme ligne de données ?
un numéro de série (premier) et le Nombre d'éléments dans la Série ?
jean marie